[عبد الهادي بهاب]

السلام عليكم

اذا اردنا  تغيير خط من داخل المشروع 
المفروض نسخ الخط في مجلد المشروع بعد انشاءه اي في مجلد bin _  Debug 

و نضع الكود التالي

PHP كود :

Dim privateFonts As New Drawing.Text.PrivateFontCollection
    
        privateFonts.AddFontFile(Application.StartupPath & "\egyptian.ttf")


        Label1.Font = New Font(privateFonts.Families(0), 26, FontStyle.Bold)
     


الان كيف العمل اذا عندي اكثر من 100 خط في السورس
كيف  نحضر مساراتهم في مصفوفة
نضعها في كومبوكس مثلا
و بالتالي نفعل كود التغيير عبر المصفوفة