استفاده از enumfont [بایگانی]

kitten

یک شنبه 31 شهریور 1387, 08:35 صبح

سلام دوستان من نياز دارم كه ليست فونت هاي ويندوز را در يه كمبو باكس نشون بدهم اما چيزي كه هست اينه كه نمي دونم چه طوري از تابع enumfont استفاده كنم مي شه راهنمايي ام بكنيد؟
ترجيحا با مثال باشد
ممنون

f.nabavi

یک شنبه 31 شهریور 1387, 14:03 عصر

سلام . میشه برای پر کردن کمبو باکس از کد زیر استفاده کرد.

Private Sub Form_Load()
For i = 0 To Screen.FontCount - 1 ' Determine number of fonts.
cbofont.AddItem Screen.Fonts(i) ' Put each font into list box.
Next i
End Sub

xxxxx_xxxxx

یک شنبه 31 شهریور 1387, 20:29 عصر

ليست فونت هاي ويندوز را در يه كمبو باكس

نمونه کاملاً ساده (http://barnamenevis.org/forum/showpost.php?p=575909&postcount=268)

aminkk

دوشنبه 01 مهر 1387, 00:27 صبح

سلام . میشه برای پر کردن کمبو باکس از کد زیر استفاده کرد.
کد:
Private Sub Form_Load()
For i = 0 To Screen.FontCount - 1 ' Determine number of fonts.
cbofont.AddItem Screen.Fonts(i) ' Put each font into list box.
Next i
End Sub

اين فونتهاي صفحه نمايش رو نمايش مي ده و براي ويندوز نيست.