30-11-19, 03:16 PM
السلام عليكم و رحمة الله و بركاته
شوف أخي الكريم ..
الفكرة و ما فيها بعد طول وقت التجربة ..
لديك حل واحد أكيد و مضمون لتتفادى أي إلتباس
إذا كنت تحتاج الخط الخارجي فقط لتاكست بكس أو اثنين .. أقصد لبعض الأدوات المحسوبة و القليلة
بهذه الحالة .. يمكن وضع الخط مع ملفات المشروع بال Debug
واستعمال هذا الكود
كود :
Dim PrivateFonts As New System.Drawing.Text.PrivateFontCollection()
PrivateFonts.AddFontFile(Application.StartupPath & "\FileFont\DIGIFACE.ttf")
Dim MyFont As New System.Drawing.Font(PrivateFonts.Families(0), 36)
Me.TextBox1.Font = MyFont
أمّا .. للمشروع بصفة كاملة
قم بوضع الخط المقصود يدويا بالقرص C بمجلد الخطوط
لأنّ حتى الأكواد التي تجدها هنا و هناك .. لا تفي بالغرض بنسبة كاملة
قد تتعرض لشرطي الوينداوز
Run As Administrateur
لديّ العديد من الأكواد التي بالغرض و تنسخ الخط الخارجي من مشروعك إلى مجلد الخطوط بالوينداوز
لكن مثلما ذكرت لك .. لا بدّ من المرور على أمر .. الإشتغال كمسؤول
إذا أحسن فكرة .. وضع الخط يدويا بجهازك أو بجهاز العميل
تحياتي
قناتنا على اليوتوب