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

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

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

مُساهمة من طرف نجلاء فتحي في الثلاثاء نوفمبر 05, 2013 9:01 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
اتمنى ان يعجبكم

نجلاء فتحي
...
...

تاريخ التسجيل : 20/02/2011
المساهمات : 48
النقاط : 94
التقيم : 0
الجنس : انثى

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

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


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