ياشباب كيف اشغل برنامج exe عن طريق زر في الفيجوال بيسك؟؟

أستخدم الأمر

shell("C:Program FilesMacromediaFlash 5Flash.exe",2)

اخوي Jarour

شكرا لك على ردك السريع ولكن الامر ما اشتغل معايه وانا وضعته بالطريقه التاليه :

Private Sub Command1_Click()

Shell("D:Program FilesMacromediaFlash 5Flash.exe", 2)

End Sub

الرجاء منك التأكد من الكود واذا في اي ملف ocx ممكن استخدمه

مشكور وماقصرت

تحياتي:)

أخي أستخدم الأمر بالشكل

Private Sub Command1_Click() 
call Shell("D:Program FilesMacromediaFlash 5Flash.exe", 2) 
End Sub

أو بالشكل

Private Sub Command1_Click() 
dim pro as long
pro =Shell("D:Program FilesMacromediaFlash 5Flash.exe", 2) 
End Sub

أرجو ان أكون قد وضحت

مشكور اخوي

يعطيك العافيه

جربت الكود وماشي حلاووووووة

فمان الله

سلااامممممممون

اخوي jarour

اشكرك جزيل الشكر الكود شغال;)

فعلا انقذتني من شي كنت ابغاه للضروره :D :D :D

تحياتي:)

ولله خجلتوني يا شباب الموضوع مومستاهل

أخواني هدفنا دائما المساعدة في حل المشاكل

وشكرا لكم على هذا الشكر