انحيلة قام بنشر أكتوبر 24, 2018 مشاركة قام بنشر أكتوبر 24, 2018 الاخوة الافاضل , الموضوع: لدي دالة للتأكد هل الخط مسطب في النظام ام لا. المطلوب من فضلكم هو: اضهار رسالة اذا كانت اجابة نتيجة الدالة ايجابية (True). او اضهار رسالة اخرى اذا كانت نتيجة اجابة الدالة سلبية (False). مع الشرح بعد التعديل اذا امكن. وشكرا. Check If a Font Installed.accdb 1 رابط هذا التعليق شارك More sharing options...
qathi قام بنشر أكتوبر 24, 2018 مشاركة قام بنشر أكتوبر 24, 2018 اضم صوتي لصوتك رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أكتوبر 24, 2018 مشاركة قام بنشر أكتوبر 24, 2018 40 دقائق مضت, انحيلة said: المطلوب من فضلكم هو: اضهار رسالة اذا كانت اجابة نتيجة الدالة ايجابية (True). او اضهار رسالة اخرى اذا كانت نتيجة اجابة الدالة سلبية (False). مع الشرح بعد التعديل اذا امكن. 30 دقائق مضت, qathi said: اضم صوتي لصوتك اتفضلوا فقط انا اضفت هذه السطور للفانكشن MsgBox IsFontInstalled Exit For Else IsFontInstalled = False MsgBox IsFontInstalled Exit For اليك ملف بعد اضافة Check If a Font Installed.accdb 2 1 رابط هذا التعليق شارك More sharing options...
qathi قام بنشر أكتوبر 24, 2018 مشاركة قام بنشر أكتوبر 24, 2018 أذا سمحت أستاذنا الغالي @Shivan Rekany قمت بأضافة للكود محاولاً لكن .. أعتقد أني لم أصل للمطلوب هل يمكن أن تظيف التالي .. في حالة وجود الخطوط .. ظهور مسج بأن الخطوط موجودة مع اسماء الخطوط ، والخروج من الكود .. في حالة لم توجد واحد منها أو جميعها .. تسطيب الخطوط 3 المرفقة أو الناقص .. وظهور مسج بأسماء الخطوط "تم تنصيب الخطوط (digital-7) و (DS-DIGI) و (Ticking Timebomb BB)" مرفق الملف مع الخطوط إضافة الخطوط للويندوز.rar 1 رابط هذا التعليق شارك More sharing options...
Hamdi Edlbi-khalf قام بنشر أكتوبر 24, 2018 مشاركة قام بنشر أكتوبر 24, 2018 الان, qathi said: ي حالة لم توجد واحد منها أو جميعها .. تسطيب الخطوط 3 المرفقة أو الناقص .. وظهور مسج بأسماء الخطوط "تم تنصيب الخطوط (digital-7) و (DS-DIGI) و (Ticking Timebomb BB)" لا زلت أبحث عن ذات الطريقة و لكن مع ملفات النظام .... رابط هذا التعليق شارك More sharing options...
qathi قام بنشر أكتوبر 24, 2018 مشاركة قام بنشر أكتوبر 24, 2018 أتمنى @Khalf أن تصل الى نتيجة .. كما أرجو أن تعلمني بذلك وارجوا من أستاذنا الرائع @Shivan Rekany أذا كان يستطيع تطوير الكود .. أن يسهم في ذلك .. أو أي عضو رابط هذا التعليق شارك More sharing options...
انحيلة قام بنشر أكتوبر 24, 2018 الكاتب مشاركة قام بنشر أكتوبر 24, 2018 مشكور اخ شفان على المجهود ولكن ليس هذا هو المطلوب . المطلوب اضهار رسالة " الخط متبث على الجهاز"MsgBox في حالة ان الكود تاكد من وجود الخط على الجهاز اي في حالة IsFontInstalled=True، وفي حالة لم يكن الخط مثبث على الجهاز يعطي رسالة" الخط غير مسطب على الجهاز"MsgBox رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر أكتوبر 24, 2018 مشاركة قام بنشر أكتوبر 24, 2018 Private Sub Command112_Click() If IsFontInstalled("Arial") = True Then MsgBox "الخط مثبت على الجهاز" Else MsgBox "الخط غير مسطب على الجهاز" 'Call IsFontInstalled("Anehila") End Sub بالتوفيق 2 رابط هذا التعليق شارك More sharing options...
انحيلة قام بنشر أكتوبر 24, 2018 الكاتب مشاركة قام بنشر أكتوبر 24, 2018 جزاك الله واحسن اليك اخ رمهان هذا هو المطلوب بالضبط. رابط هذا التعليق شارك More sharing options...
انحيلة قام بنشر أكتوبر 24, 2018 الكاتب مشاركة قام بنشر أكتوبر 24, 2018 الاخ qathi هذا الكود هو للتأكد اذا كان ملف الخط مسطب على جهاز الكمبيوتر ام لا، لذي نفس الكود الموجود في مثالك ولكن لا يقوم بتثبيث الخطوط لا اعرف السبب. سؤالي هل الكود الدي بحوزتك يثبث الخطوط الثلاث ام لا وما هي نواة الويندوز لديك. في انتضار جوابك تقبل مني اجمل التحيات. رابط هذا التعليق شارك More sharing options...
هشام مرسي قام بنشر أكتوبر 16, 2020 مشاركة قام بنشر أكتوبر 16, 2020 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته شكرا لكم استخدمت هذا الكود في عمل جدول إكسيل به جميع الخطوط ووضعته على هذا الموقع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان