Microsoft Access Programmierrezepte

R2.25 Den Windows-Schriftartendialog aufrufen

Aufgabe

Sie möchten, dass der Anwender die im Programm verwendeten Schriftarten selbst einstellen kann.

Lösung

Wir verwenden den Standard-Fontdialog von Windows (Bibliothek COMDLG32.DLL).

Oberfläche

Ein großes Textfeld, ein Bezeichnungsfeld und eine Befehlsschaltfläche im Detailbereich eines neuen Formulars genügen zum Testen.

Quellcode

Zu einem neuen Modul (oder einem bereits vorhandenen) fügen Sie die Deklaration der API-Funktion ChooseFont sowie der dafür benötigten Typen und Konstanten hinzu:

Option Explicit

Public Declare Function ChooseFontA Lib "comdlg32.dll" (lpcf As FONT_TYPE) As Long Public Type LOGFONT lfHeight As Long lfWidth As Long lfEscapement As Long lfOrientation As Long lfWeight As Long lfItalic ...