List all font in list box (VB6)

I want to list all font available on computer in a list box! Please post your sample code! Need this for VB6
Acid_BuzzAsked:
Who is Participating?
 
schildConnect With a Mentor Commented:
This is the needed code

********************************
    Dim Index As Integer
   
    For Index = 0 To Screen.FontCount
        List1.AddItem Screen.Fonts(Index)
    Next

****************************

you can rtrive the printer fornt as well like this:
********************************
    Dim Index As Integer
   
    For Index = 0 To Printer.FontCount
        List1.AddItem Printer.Fonts(Index)
    Next

****************************

Good Luck
Schild
0
 
Acid_BuzzAuthor Commented:
Ok.. I don't know why i post this question.. anyway.. i give you the point.. heheh..
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.