R12.24 Alle verfügbaren Schriftarten anzeigen

Aufgabe

Geht es darum, Informationen über die verfügbaren Schriftarten zu ermitteln, können Sie über das VBA Screen-Objekt, im Gegensatz zum VB 6 Screen-Objekt, nicht die Namen abfragen. Informationen über den Schrifttyp (Raster/TrueType) sind ebenfalls Fehlanzeige.

Lösung

In diesem Zusammenhang helfen Ihnen eine Callback-Funktion, die AddressOf-Funktion sowie die API-Funktion EnumFonts weiter.

Oberfläche

Lediglich ein Formular mit einem Listenfeld und zwei Befehlsschaltflächen ist erforderlich.

Quelltext

Erzeugen Sie ein neues Modul und fügen Sie folgenden Code hinzu:

Option Explicit Public Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long Public Declare Function EnumFonts Lib "gdi32" Alias ...

Get Microsoft Access Programmierrezepte now with the O’Reilly learning platform.

O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.

Start your free trial