Wie kann ich in meinem Programm dem Anwender die installierten Fonts zurAuswahl anbieten, so dass er sich mehrere Schriften aussuchen kann? Mit einerListbox funktioniert das so: Auf einer Form platzieren Sie eine ListBox und einen CommandButton. StellenSie die ListBox-Eigenschaften wie folgt ein: Dann noch folgenden Code einfügen: 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 Oder soll der Benutzer die Schriften aus einem PopUp-Menü auswählen können? Dannsehen Sie sich doch mal unseren Tipp Schriftauswahl per PopUp-Menü realisieren an. Diese Seite wurde bereits 8.756 mal aufgerufen. |
sevISDN 1.0 Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Buchempfehlung Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. Neu! sevPopUp 2.0 Dynamische Kontextmenüs! Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... |
||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |