[مساعدة]

السلام عليكم

ضع الفونت الخاص في الريسورس Resources وهذا الكود

كود :

Private privateFont As New Drawing.Text.PrivateFontCollection

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   Dim font As Byte() = My.Resources.PrivateFont
   Dim fontBuffer As IntPtr = Runtime.InteropServices.Marshal.AllocCoTaskMem(font.Length)
   Runtime.InteropServices.Marshal.Copy(font, 0, fontBuffer, font.Length)
   privateFont.AddMemoryFont(fontBuffer, font.Length)
   Dim myPrivateFont As FontFamily = privateFont.Families(0)

   Me.Font = New Font(myPrivateFont, 12, FontStyle.Bold)

End Sub

هذا الكود يعمل بعد التشغيل.


أنت تريد أن يعمل هذا الفونت في مشاريعك على أجهزة لا يوجد فيها هذا الفونت،

في جهازك الخاص الذي تطور به البرامج ركب الفونت على جهازك واضبط الفورم عليه كما في السطر الأخير من الكود فترثه جميع الأدوات التي عليه وهو يكفي،
لتستطيع ضبط أحجام الأدوات أثناء التصميم بعد اعتماد الفونت والتأكد من الشكل المناسب لحجم الفونت وتغيير ما يلزم،

ولكن إذا أردت الفونت لأدوات محددة وليس الكل ضع الفونت للأدوات مثل طريقة السطر الأخير.

---

في النهاية جرب إزالة الفونت الخاص من جهازك وتشغيل المشروع لتتأكد من عمله على أجهزة ليس فيها هذا الفونت الخاص.