تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إعتماد خط من خارج الويندوز ..
#1
عندي مشروع مكتمل  واحب نوع من الخطوط الذي لا يأتي مع الويندوز ..
هذا الخط يعجبني كثيرا ودائما اضعه في المشاريع ..
سواء في الفورم والليبلات والتكسات والكمبوبوكس والديت تايم والللست ووووو..
---
هل هناك طريقة فعالة ومضمونة ومجربة من أحدكم ان ارفق هذا الخط ..
في المشروع وارسله لصديق ويعمل معه دون مشاكل ..
---
اتمنى لو تكون الفكرة مجربه ..
---
وإن كانت الإجابة بنعم ..
إذا ماهو الكود او الطريقة لعمل ذلك ..
---
وفقكم الله ..
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

ضع الفونت الخاص في الريسورس 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
هذا الكود يعمل بعد التشغيل.


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

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

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


في النهاية جرب إزالة الفونت الخاص من جهازك وتشغيل المشروع لتتأكد من عمله على أجهزة ليس فيها هذا الفونت الخاص.
الرد }}}
تم الشكر بواسطة: sendbad100 , أسامة السالمي
#3
أتمنى أن تحل المشكلة شكرا لك .. اخي ..
وبارك الله فيك .. سأجرب الكود .. وأوافيك بالنتائج ..
الرد }}}
تم الشكر بواسطة:
#4
للاسف لم تنجح العملية اخي "مساعدة"
الرد }}}
تم الشكر بواسطة:
#5
لقد نسخت الكود من أحد مشاريعي الخاصة وهو يعمل.

السؤال:
لم توضع كيف استخدمت الكود وما الخطوات التي اتبعتها بالتفصيل؟
الرد }}}
تم الشكر بواسطة:
#6
وضعت الكود الذي تفضلت به  وضبطته بالفورم عندي كما في آخر سطر ..
ووضعت الخط المطلوب على الريسورس  ..
وجربت وحذفت الخط  من مشروعي وشغلت البرنامج ولكن لم تنجح العملية ..
اليست هذه الطريقة التي ..
أخبرتني بها ..
---
طيب ممكن تضع فكرتك بفورم وتضع اي خط ..
ونجرب لاني جربت كثيرا ولم تنجح معاي ..
الرد }}}
تم الشكر بواسطة:
#7
أعتذر إليك أستاذ abdulla2

فقد كان الكود فعلا لا يعمل، واكتشفت أن الخطوط مركبة في نظام التشغيل، مما أوهمني بأن الكوود يعمل.

وجدت هذا الموضوع في المنتدى وهو يفي بالغرض، ويبدو أنني سأستخدمه بدلا من الموجود لدي
[VB.NET] مجلد خطوط
الرد }}}
تم الشكر بواسطة:
#8
أولاً شكراً لك .. للإهتمام ..

بالنسبة للطريقة الثانية كنت أستخدمها لكن ..
سنحتاج لكتابة كود لكل عنصر حتى يقبل الخط ويطبق عليه ..
ماذا لوكانت هناك عناصر كثيرة وفورمس كثيرة سنحتاج الى كود كبير ..
---
لهذا حبيت أبحث عن افكار جديدة ..
---
شكرا لك { مساعدة }

الآن انتبهت إستدغيت الخط للForm

فورثت كل العناصر الخط من الفورم الرئيسي ..

الحمدلله الطريقة تعمل شكرا للجميع وللأخ [ مساعدة ]
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف اقوم بالضغط على ذر الويندوز بالكيبورد هل من حل moh61 0 217 01-08-23, 09:45 PM
آخر رد: moh61
  [VB.NET] اسم السيرفر خارج المنظومة محمد بوقزاحة 4 1,399 26-04-23, 11:25 PM
آخر رد: Aminsoft
  [سؤال] جلب اللغات المتواجدة علي الويندوز حسن الجلب 3 647 18-08-22, 04:02 PM
آخر رد: asmarsou
Thumbs Up [سؤال] كيف يمكنني جعل مشرع الفيجوال بيزك يظهر عند تشغيل الويندوز,مع الشكرا عبدالله سعد سلطان 2 1,163 17-11-21, 06:55 AM
آخر رد: ابو روضة
  [سؤال] كيفية معرفه مسار الويندوز أو بمعني آخر ازاي اعرف البارتيشن ال نازل عليه الويندوز حسن الجلب 1 955 16-10-21, 09:59 PM
آخر رد: Mohamad Anan
  بناء مشروع يعمل على جميع نسخ الويندوز Lathe1 0 1,180 26-02-21, 03:00 PM
آخر رد: Lathe1
  [سؤال] طرب الويندوز ومحتاج اجداد الكود سحاب روابط قائيمة تشغيل من اليتيوب Ali Edal 11 4,265 05-09-20, 03:36 PM
آخر رد: معاند الحظ
  [سؤال] كود لتفعيل وضع السكون في الويندوز منه 1 1,121 11-05-20, 10:53 PM
آخر رد: aljzazy
  كود عرض الصورة في مستعرض الويندوز magedalginral 3 1,827 11-02-20, 10:12 PM
آخر رد: magedalginral
  [VB.NET] حذف عنصر خارج المصفوفة محمد اسماعيل 5 1,915 16-12-19, 10:12 PM
آخر رد: محمد اسماعيل

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم