[حسن الجلب]

السلام عليكم ورحمه الله وبركاته
ممكن ملف وليكن ملف اكسيل فيه اسماء الألوان ودراجتها بالعربي والإنجليزي؟
وعايز كود تاني لأخذ كل اسماء الألوان ودرجاتها ووضعها في ليست بوكس
وكود ثالث لأخذ جميع الخطوط ووضعها في ليست بوكس

[moosa_alabri]

السلام عليكم ورحمة الله
سأجيبك عن سؤال واحد وضع خطوط النظام في قائمة منسدلة
هذا هو الكود

PHP كود :

Imports System
Imports System.Drawing.Text
Imports System.Drawing
 
Dim InstalledFonts As New InstalledFontCollection
Dim fontfamilies() As FontFamily = InstalledFonts.Families()
For Each fontFamily As FontFamily In fontfamilies
      cmbFonts.Properties.Items.Add(fontFamily.Name)
Next 


[حسن الجلب]

(16-01-21, 06:48 AM)moosa_alabri كتب : السلام عليكم ورحمة الله
سأجيبك عن سؤال واحد وضع خطوط النظام في قائمة منسدلة
هذا هو الكود

PHP كود :

Imports System
Imports System.Drawing.Text
Imports System.Drawing
 
Dim InstalledFonts As New InstalledFontCollection
Dim fontfamilies() As FontFamily = InstalledFonts.Families()
For Each fontFamily As FontFamily In fontfamilies
      cmbFonts.Properties.Items.Add(fontFamily.Name)
Next 


شكرا ولكن عايز نفس الكود بس جلب الوان النظام؟