طلب كود " فتح ملف "خط" دخل برنامجي "

ما احد يعرف الكوود..!؟؟

لأأإ خيـر في كـاتم العلـــــــم

علي فكرة أخي ، أسئلتك متكررة 100 مرة في المنتدي !!!!

علي العموم أنظر الشرح التالي :

أولاً : جلب الخطوط المتاحة بالجهاز :

1- قم بفتح مشروع جديد ، وأدرج آداة ComboBox ، وأكتب الكود التالي في المكان المناسب :

Dim logCount As Long
On Error Resume Next
For logCount = 0 To Screen.FontCount - 1
	Err.Number = 0
	Me.FontName = Screen.Fonts(logCount)
	If (Err.Number = 0) Then Combo1.AddItem Screen.Fonts(logCount)
Next
If (Combo1.ListCount > 0) Then Combo1.ListIndex = 0

ثانياً : نقل الخط بمجلد Fonts :

أولاً ، يجب معرفة مسار مجلدات الـ Window حتي تعلم ما هو المسار الصحيح الذي سيتم نسخ ملف الـ Font به !!!!!

إبحث بالمنتدي ستجد أمثلة متعددة ، أو أبحث عن جمل ( مسار ) أو ( SelectPathFolder ) أو .... الي آخرة .

ثانياً ، لنسخ ملف من مكان لآخر تتم بمجرد معرفتك للمسارات الصحيحة ، وهذا مثال علي عملية نسخ الملفات من مسار الي مسار آخر :

FileSystem.FileCopy "D:\FontName.TTF", "C:\WINDOWS\Fonts\FontName.TTF"

بالتوفيق

للإفادة فقط هنا

مع أن صاحب السؤال وصلته المعلومة لكني أردت أن تعم الفائدة هنا (أرجو أن صاحب السؤال قد استفاد منها على الأقل )

هناك دالة Api مخصصة لهذا الغرض أي تثبيت أو اضافة خط للنظام وهي AddFontResource

المثال موجود على الرابط يمكن الاطلاع عليه

بالتوفيق للجميع