منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] كيف انشي زر امر يتأكد انه يوجد برنامج Wordعلى الحاسب وإذا لم موجود يظهر رسالة لمستخدم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] كيف انشي زر امر يتأكد انه يوجد برنامج Wordعلى الحاسب وإذا لم موجود يظهر رسالة لمستخدم (/showthread.php?tid=35956)



كيف انشي زر امر يتأكد انه يوجد برنامج Wordعلى الحاسب وإذا لم موجود يظهر رسالة لمستخدم - Microformt - 01-08-20

الاخوة الكرام
 السلام عليكم ورحمة وبركاته
كيف انشي زر امر يتأكد انه يوجد برنامج Wordعلى الحاسب وإذا لم موجود يظهر رسالة لمستخدم ؟؟
نامل من الله المساعدة
وكل عام وانتم با الف صحة وعافية


RE: كيف انشي زر امر يتأكد انه يوجد برنامج Wordعلى الحاسب وإذا لم موجود يظهر رسالة لمستخدم - Anas Mahmoud - 01-08-20

كود :
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/questions/21194677/Using-VB6-how-can-I-check-if-Word-is-installed.html#succeeded


RE: كيف انشي زر امر يتأكد انه يوجد برنامج Wordعلى الحاسب وإذا لم موجود يظهر رسالة لمستخدم - Microformt - 01-08-20

(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/questions/21194677/Using-VB6-how-can-I-check-if-Word-is-installed.html#succeeded

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