Fonts????

How to display all the fonts and available font sizes available on the users system into a combo box???

:p Kinjal :p

You can use the Screen object, but I don't know about font sizes.

Code:

---

Private Sub Command1_Click()
    Dim i As Long
   
    For i = 0 To Screen.FontCount - 1
        Combo1.AddItem Screen.Fonts(i)
    Next i
End Sub

---

Sunny

Font sizes are irrelevant in this situation because the fonts can be displayed at any size (TrueType only). For bitmap fonts, it just snaps to the nearest size available for that font.

Thanks a lot!


:p Kinjal :p