قرار دادن تنظيمات فونت روي فرم

[mortez_ja]

با سلام

يه سوال داشتم از اساتيد vb
ميخواستم ببينم آيا در vb6 تنظيمات مربوط به فونت رو ميشه در يك فرم قرار داد دقيقا مثل برنامه آفيس.
كه نيازي نباشه با دستور showfont پنجره تنظيمات فونت را باز كرد. ocx هست كه اين امكانات رو داشته باشه.

[محسن واژدی]

سلام علیکم
توسط تابع Screen.Fonts لیست میتوانید لیست فونت های ویندوز را در لیست باکس قرار بدین


Private Sub Command1_Click()
Dim i%
For i = 0 To Screen.FontCount
List1.AddItem Screen.Fonts(i)
Next 'i
End Sub


موفق باشید