كيف اربط ملف ببرنامج اخر

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

Private Sub Form_Load()
shellexecute me.hwnd,"open","c:\windows\notepad.exe",vbnullstring,"",SW_SHOWNORMAL 
exit sub
غير c:\windows\notepad.exe  الى مسار البرنامج الذي تريده

لماذا كل هذا التعقيد :blink:

يمكنك ببساطة فعل ذلك بهذا الكود

Shell ("D:\WINDOWS\system32\mspaint.exe"), vbNormalFocus

الجملة vbNormalFocus تظهر حالة ظهور البرنامج

احسنت اخي MOAM ولكنك نسيت ان SHELL لاتفتح الا ملفات EXE بينما shellexecute نقوم بفتح معظم انواع الملفات فقط يقوم المستخدم بوضع المسار الصحيح للملف المراد فتحه وبالتالي تتيح للمبرمج ان يربط برنامجه مع اي نوع من الملفات

تحياتي لكم اخواني

ومشكورين

لكن انتم مافهمتوا قصدي

انا اريد ربط برنامجي ببرنامج اخر

يعني مو اذا برنامجي اشتغل شغل معه برنامج ثاني

انا ابغى العكس يعني نفرض انا سويت برنامج ابغى اربطه مثلا بالماسينجر

بمجرد تشغيل الماسينجر يشتغل برنامجي

هذا هو قصدي :)

هناك خطأ في البرنامج

إستبدل " exit sub " بـ" End Sub "

ومشكور أخي الكريم