02-12-19, 11:25 PM
(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لديّ العديد من الأكواد التي بالغرض و تنسخ الخط الخارجي من مشروعك إلى مجلد الخطوط بالوينداوزلكن مثلما ذكرت لك .. لا بدّ من المرور على أمر .. الإشتغال كمسؤولإذا أحسن فكرة .. وضع الخط يدويا بجهازك أو بجهاز العميلتحياتي
شكراً لك