تحميل جميع خطوط الكمبيوتر في ComboBox

التفاصيل

الزيارات: 3836

كود:

---

Private Sub Form_Load()


Dim i As Integer


For i = 0 To Screen.FontCount - 1


Combo1.AddItem Screen.Fonts


Next i


Combo1.Text = Combo1.List(0)


End Sub

---

• < السابق
• التالي >