لیست فونت های موجود [بایگانی]

aleas2

سه شنبه 31 تیر 1393, 00:50 صبح

سلام خسته نباشید دوستان چطور میشه لیست فونت های موجود در سیستم با کلیک روی command در یک لیست باکس نمایش داد(نام فونت ها)

Mr.305

سه شنبه 31 تیر 1393, 00:58 صبح

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