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

كود:


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



من منتديات الفريق العربي للبرمجة
http://www.arabteam2000.com/

Share |

معلومات إضافية