Suchergebnisse

Beim Aufruf der Funktion CreateScalableFontResource Private Declare Function CreateScalableFontResource Lib "gdi32" Alias "CreateScalableFontResourceA" _ (ByVal fHidden As Long, _ ByVal lpszResourceFile As String, _ ByVal lpszFontFile As String, _ ByVal lpszCurrentPath As String) As Long wird ein Fehler PInvokeStackImbalance gemeldet. Der Aufruf erfolgt in der Form If CreateScalableFontResource(1, TempName, fname, vbNullString) Then ... End If Den Aufruf habe ich bereits mehrfach erfolglos modif…

Hallo, Danke Rod, Dein Beitrag hat mich wie schon oft auf den richtigen Weg gebracht. Der wichtige Hinweis war das "A" am Ende der Funktion. Jetzt lautet die Funktion für das Auslesen der Bezeichnungen der Fonts so: VB.NET-Quellcode (31 Zeilen)