Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Installierte Schriftarten anzeigen unter Access97
Autor: Paulinho
Datum: 04.10.02 15:57
Hallo zusammen, ich arbeite unter Access 97 und würde gerne in einer ComboBox die installierten Schriftaren anzeigen lassen. Unter den FAQs dieser Seite bin auch fündig geworden. Leider bin ich nur zu "grün" um es unter Access 97 laufen zu lassen. Ich bekomme immer so schöne Fehlermeldungen wie: "Methode oder Datenobjekt nicht gefunden" Wer kann mir sagen, wie ich den Quelltext umschreiben muß, damit es auch unter Access 97 funktioniert??? Gruß Paulinho Hier der Quelltext: Option Explicit ' zunächst die benötigten API-Deklarationen Private Declare Function SendMessage Lib "user32" Alias _ "SendMessageA" (ByVal hwnd As Long, ByVal wMsg _ As Long, ByVal wParam As Long, ByVal lParam As _ String) As Long Private Const LB_FINDSTRINGEXACT = &H1A2 Private Sub Form_Load() ' alle installierten Schriften anzeigen Dim I As Integer ' Listbox leeren List1.Clear ' Bildschirmschriften For I = 0 To Screen.FontCount - 1 If Screen.Fonts(I) <> "Symbol" Then List1.AddItem Screen.Fonts(I) End If Next I ' Jetzt noch die Drucker-Schriften For I = 0 To Printer.FontCount - 1 If Printer.Fonts(I) <> "Symbol" Then ' schon vorhanden? If SendMessage(List1.hwnd, LB_FINDSTRINGEXACT, _ -1, Printer.Fonts(I)) < 0 Then ' Nein, also hinzufügen List1.AddItem Printer.Fonts(I) End If End If Next I End Sub Private Sub Command1_Click() ' alle ausgewählten Schriften in ein Array ' kopieren Dim I As Integer Dim lCount As Long Dim arrFont() As String lCount = 0 For I = 0 To List1.ListCount - 1 ' Eintrag selektiert? If List1.Selected(I) Then ReDim Preserve arrFont(lCount) arrFont(lCount) = List1.List(I) lCount = lCount + 1 End If Next I MsgBox CStr(lCount) & " Schrift(en) ausgewählt!" End Sub

Installierte Schriftarten anzeigen unter Access97	77	Paulinho	04.10.02 15:57
Re: Installierte Schriftarten anzeigen unter Access97	376	unbekannt	04.10.02 16:14
Re: Installierte Schriftarten anzeigen unter Access97	55	Paulinho	04.10.02 21:10

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen