Tipp 4.2 - Schriftart registrieren

Wie kann ich eine Schriftart im System registrieren?

Mit dieser Funktion können Sie eine Schriftart im System registrieren. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Api-AufrufeVerwendete Win32-Api-Aufrufe und Typen: AddFontResource, SendMessage

Beispiel:

Option Explicit
 
Public Declare Function AddFontResource _
    Lib "gdi32" Alias _
    "AddFontResourceA" _
    (ByVal lpFileName As String) As Long
Public Declare Function SendMessage _
    Lib "user32" Alias _
    "SendMessageA" _
    (ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any) As Long
 
Public Function AddFont(sFontPath As String) As Boolean
  '// -----------------------------------------------------
  '// Methode:   | Eine Schriftart im System registrieren
  '// -----------------------------------------------------
  '// Parameter: | sFontPath - gültiger Font-Dateipfad
  '// -----------------------------------------------------
  '// Rückgabe:  | True bei Erfolg
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  Const WM_FONTCHANGE = &H1D
  Const HWND_BROADCAST = &HFFFF&
  AddFont = CBool(AddFontResource(sFontPath))
  If AddFont Then
    SendMessage HWND_BROADCAST, WM_FONTCHANGE, 0, 0
  End If
 
End Function


Zurück Tipp 4.1 - Arbeitsbereich ermitteln | Inhalt | Tipp 4.3 - Schriftart deregistrieren Weiter