تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] كيف انشي زر امر يتأكد انه يوجد برنامج Wordعلى الحاسب وإذا لم موجود يظهر رسالة لمستخدم
#1
Question 
الاخوة الكرام
 السلام عليكم ورحمة وبركاته
كيف انشي زر امر يتأكد انه يوجد برنامج Wordعلى الحاسب وإذا لم موجود يظهر رسالة لمستخدم ؟؟
نامل من الله المساعدة
وكل عام وانتم با الف صحة وعافية
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد
تم الشكر بواسطة:
#2
كود :
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
الرد
تم الشكر بواسطة: Microformt , Microformt
#3
(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

لكم فائق الشكر والتقدير
 تحياتي
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد
تم الشكر بواسطة:



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


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