تقييم الموضوع :
  • 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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ما هو كود فتح اله حاسبة خارجية وليس اله حاسبة الويندوز السيد الجوهري 2 45 14-01-18, 04:33 PM
آخر رد: السيد الجوهري
  نوع نسخة الويندوز عربي او انجليزي كرم ابوهشام 2 120 11-08-17, 09:58 PM
آخر رد: حريف برمجة
  تفعيل اومر البرنامج حتي لو كان في شريط الويندوز lval6402@gmail.com 0 157 10-06-17, 05:45 AM
آخر رد: lval6402@gmail.com
Rainbow [كود] كود للتحكم بصوت الويندوز محمد مسافر 2 339 30-12-16, 11:18 PM
آخر رد: zinom
  [VB.NET] إرسال Broadcast خارج حدود الراوتر Fantastico 0 250 19-10-16, 12:58 AM
آخر رد: Fantastico
  [VB.NET] كيف يتم البحث في الويندوز من خلال البرنامج jassim316 8 630 30-08-16, 09:09 PM
آخر رد: jassim316
  [سؤال] عندى برنامج يعمل ع جميع نسخ الويندوز ramygamalvb 1 323 08-03-16, 02:27 PM
آخر رد: Adrees
  [سؤال] عايز البرنامج يشتغل مع بداية تشغيل الويندوز مدحت زقزوق 6 787 07-12-15, 05:12 PM
آخر رد: hassan
  [سؤال] اظهار رسالة معينةبعد فتح الويندوز أسامة 0 411 01-12-15, 03:23 AM
آخر رد: أسامة
  [سؤال] شباب سؤال خارج نطاق اسالتى الاخرى نهائى احمد عبد الحكيم 0 369 30-08-15, 03:12 AM
آخر رد: احمد عبد الحكيم

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


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