View Full Version : لیست تمام فونتهای ویندوز
subsub
شنبه 02 تیر 1386, 18:40 عصر
سلام
چطوری می تونم لیستی از نام تمام فونتهای ویندوز رو بدست بیارم؟
__siavash__
شنبه 02 تیر 1386, 19:03 عصر
از 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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.