منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كيف انشي زر امر يتأكد انه يوجد برنامج Wordعلى الحاسب وإذا لم موجود يظهر رسالة لمستخدم
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الاخوة الكرام
 السلام عليكم ورحمة وبركاته
كيف انشي زر امر يتأكد انه يوجد برنامج Wordعلى الحاسب وإذا لم موجود يظهر رسالة لمستخدم ؟؟
نامل من الله المساعدة
وكل عام وانتم با الف صحة وعافية
كود :
Private Sub Command1_Click()
On Error Resume Next

oWord = CreateObject("Word.Application")

If Err.Number <> 0 Then
    If Err.Number = 429 Then
        'Cannot create object
        MsgBox "Word is not available"
    End If
    'Failed
    Unload Me
Else
     MsgBox "Word is available"
End If
End Sub

https://www.experts-exchange.com/questio...#succeeded
(01-08-20, 06:30 PM)Anas Mahmoud كتب : [ -> ]
كود :
Private Sub Command1_Click()
On Error Resume Next

oWord = CreateObject("Word.Application")

If Err.Number <> 0 Then
    If Err.Number = 429 Then
        'Cannot create object
        MsgBox "Word is not available"
    End If
    'Failed
    Unload Me
Else
     MsgBox "Word is available"
End If
End Sub

https://www.experts-exchange.com/questio...#succeeded

لكم فائق الشكر والتقدير
 تحياتي