منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(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

لديّ العديد من الأكواد التي بالغرض و تنسخ الخط الخارجي من مشروعك إلى مجلد الخطوط بالوينداوز

لكن مثلما ذكرت لك .. لا بدّ من المرور على أمر .. الإشتغال كمسؤول

إذا أحسن فكرة .. وضع الخط يدويا بجهازك أو بجهاز العميل

تحياتي