+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] عايز كود (/showthread.php?tid=37499)
عايز كود - حسن الجلب - 16-01-21
السلام عليكم ورحمه الله وبركاته
ممكن ملف وليكن ملف اكسيل فيه اسماء الألوان ودراجتها بالعربي والإنجليزي؟
وعايز كود تاني لأخذ كل اسماء الألوان ودرجاتها ووضعها في ليست بوكس
وكود ثالث لأخذ جميع الخطوط ووضعها في ليست بوكس
RE: عايز كود - moosa_alabri - 16-01-21
السلام عليكم ورحمة الله
سأجيبك عن سؤال واحد وضع خطوط النظام في قائمة منسدلة
هذا هو الكود
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
RE: عايز كود - حسن الجلب - 16-01-21
(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
شكرا ولكن عايز نفس الكود بس جلب الوان النظام؟