تعلم كيفية ملىء مربع السرد و التحرير comboBox بخطوط النظام

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

تعلم كيفية ملىء مربع السرد و التحرير comboBox بخطوط النظام

مُساهمة من طرف م/موسي في الأحد أغسطس 04, 2013 2:33 pm

كود بسيط جدا لملىء مربع السرد و التحرير بخطوط النظام لديك .....على النحو التالى :

الرمز:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 Dim colFonts As InstalledFontCollection = New InstalledFontCollection
 Dim fontFamilies() As FontFamily = colFonts.Families
 Dim i As Integer

 For i = 0 To fontFamilies.Length - 1 Step 1
 Me.cboFonts.Items.Add(fontFamilies(i).Name)
 Next

 Me.cboFonts.Text = "Times New Roman"
End Sub


اتمنى ان يكون الدرس سهل Very Happy

م/موسي
الاشراف
الاشراف

تاريخ التسجيل : 18/02/2011
المساهمات : 130
النقاط : 252
التقيم : 8
الدولة : تونس
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى