Schriftarten auslesen

[Kyrodust]

Hi Leute!

Hab ne Frage: Wie kann ich die Schriftarten auf dem Computer auslesen. Und zwar so, dass dann in einer Combobox angezeigt werden. So ähnlich wie bei Word. Wenn es nicht möglich ist, habe ich eben Pech gehabt.

cu LordAlucard

 

[Dario Linsky]

Du kannst die Schriftarten einfach aus dem Screen-Objekt auslesen:

Dim i As Integer

For i = 0 To Screen.FontCount - 1
    Combo1.AddItem Screen.Fonts(i)
Next i

 

[Kyrodust]

Super Danke funktioniert prima!!

cu LordAlucard