خیلی ضروری لطفا جواب دهید متشکرم

سلام :

من یک Combo bax دارم که می خوام فونت هایی که از طریق Commondialog نشون میده در Combo Box هم نشون بده ممنون میشم اگه راهنمایی کنید !!!!!1

:13::13::13:

Commondialog فونت هایی که تو سیستم هست رو نشون میده و فونت های داخل سیستم از دو نوع Screen و Printer هستند و برای اضافه کردن آن ها به Combo میتونید از کد زیر استفاده کنید :

کد:

---

For i = 1 To Screen.FontCount
Combo1.AddItem Screen.Fonts(i)
Next
For i = 1 To Printer.FontCount
Combo1.AddItem Printer.Fonts(i)
Next i

---