Getting a list of all fonts installed

[ca9mbu]

Hiya,

Is there an API or other way of getting the system to return a list of all fonts that are installed on it?

Thanx

Matt

[Ishamel]

This will display all available fonts in a list box.

    Dim I   ' Declare variable.
    For I = 0 To Screen.FontCount - 1  ' Determine number of fonts.
    
        List1.AddItem Screen.Fonts(I)  ' Put each font into list box.
    Next I

------------------
Ishamel
[email protected]

How can I tell you I love you when you are sitting on my face?

[Solinary]

Can you format the list so that it is alphabetical?

Solinary: Can you format the list so that it is alphabetical?

Set the Sorted property in the Listbox to True. That will put all the fonts in alphabetical order.

[Solinary]

Thank you