تعديل على دالة التحقق من خطوط النظام

[انحيلة]

الاخوة الافاضل ,

الموضوع:

لدي دالة للتأكد هل الخط مسطب في النظام ام لا.

المطلوب من فضلكم هو:

اضهار رسالة اذا كانت اجابة نتيجة الدالة ايجابية (True).

او اضهار رسالة اخرى اذا كانت نتيجة اجابة الدالة سلبية (False).

مع الشرح بعد التعديل اذا امكن.

وشكرا.

 

Check If a Font Installed.accdb

[qathi]

اضم صوتي لصوتك

[Shivan Rekany]

40 دقائق مضت, انحيلة said:

المطلوب من فضلكم هو:

اضهار رسالة اذا كانت اجابة نتيجة الدالة ايجابية (True).

او اضهار رسالة اخرى اذا كانت نتيجة اجابة الدالة سلبية (False).

مع الشرح بعد التعديل اذا امكن.

 

30 دقائق مضت, qathi said:

اضم صوتي لصوتك

اتفضلوا
فقط انا اضفت هذه السطور للفانكشن
 

            MsgBox IsFontInstalled
            Exit For
        Else
            IsFontInstalled = False
            MsgBox IsFontInstalled
            Exit For

اليك ملف بعد اضافة

Check If a Font Installed.accdb

[qathi]

أذا سمحت أستاذنا الغالي @Shivan Rekany

قمت بأضافة للكود محاولاً لكن .. أعتقد أني لم أصل للمطلوب هل يمكن أن تظيف التالي ..

في حالة  وجود الخطوط .. ظهور مسج بأن الخطوط موجودة مع اسماء الخطوط ،  والخروج من الكود .. 

في حالة لم توجد واحد منها أو جميعها .. تسطيب الخطوط 3 المرفقة أو الناقص .. وظهور مسج بأسماء الخطوط "تم تنصيب الخطوط (digital-7) و (DS-DIGI) و (Ticking Timebomb BB)"

مرفق الملف مع الخطوط 

إضافة الخطوط للويندوز.rar

[Hamdi Edlbi-khalf]

الان, qathi said:

ي حالة لم توجد واحد منها أو جميعها .. تسطيب الخطوط 3 المرفقة أو الناقص .. وظهور مسج بأسماء الخطوط "تم تنصيب الخطوط (digital-7) و (DS-DIGI) و (Ticking Timebomb BB)"

لا زلت أبحث عن ذات الطريقة و لكن مع ملفات النظام ....

 

[qathi]

أتمنى @Khalf

أن تصل الى نتيجة .. كما أرجو أن تعلمني بذلك

وارجوا من أستاذنا الرائع  @Shivan Rekany

أذا كان يستطيع تطوير الكود .. أن يسهم في ذلك .. أو أي عضو

[انحيلة]

مشكور اخ شفان على المجهود ولكن ليس هذا هو المطلوب .

المطلوب اضهار  رسالة " الخط متبث على الجهاز"MsgBox  في حالة ان الكود تاكد من وجود الخط على الجهاز اي في حالة IsFontInstalled=True، وفي حالة لم يكن الخط مثبث على الجهاز

يعطي رسالة"  الخط غير مسطب على الجهاز"MsgBox

[رمهان]

Private Sub Command112_Click()
    If IsFontInstalled("Arial") = True Then MsgBox "الخط مثبت على الجهاز" Else MsgBox "الخط غير مسطب على الجهاز"
  'Call IsFontInstalled("Anehila")
End Sub

بالتوفيق

[انحيلة]

جزاك الله واحسن اليك اخ رمهان هذا هو المطلوب بالضبط.

[انحيلة]

الاخ qathi هذا الكود هو للتأكد اذا كان ملف الخط مسطب على جهاز الكمبيوتر ام لا، لذي نفس الكود الموجود في مثالك ولكن لا يقوم بتثبيث الخطوط لا اعرف السبب.

سؤالي هل الكود الدي بحوزتك يثبث الخطوط الثلاث ام لا وما هي نواة الويندوز لديك.

في انتضار جوابك تقبل مني اجمل التحيات.

[هشام مرسي]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
شكرا لكم

استخدمت هذا الكود في عمل جدول إكسيل به جميع الخطوط ووضعته على هذا الموقع