لیست تمام فونتهای ویندوز

[subsub]

سلام
چطوری می تونم لیستی از نام تمام فونتهای ویندوز رو بدست بیارم؟

[__siavash__]

از Screen آبجکت استفاده کن
تو یه کامبو باکس یا لیست باکس یه لیستی از تمام فونت ها رو میتونی ببینی !


Private Sub Command1_Click()
Dim i As Integer
For i = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(i)
DoEvents
Next
MsgBox Screen.FontCount & " Found !"
End Sub