الاخوه الاعزاء أريد ان اضغط علي اسم الملف من داخل الاداه file1 فيتم تشغيله سواء كان برنامج او ملف تشغيل لعبه المهم انه يكون بامتداد الملف التنفيذي exe
رجاء ساعدوني بتعديل المشروع أوو شرح كيفية تعديله كما اتعشم من اخواني بالمنتدي
كود صغير جدا ولكني أجهله للاسف
مغلق
هذا هو أمر التشغيل :
Shell Dir1.Path & "\" & File1.FileName, vbNormalFocus [code] لاحظ أن الأمر بعد الفاصلة له ستة حالات تستطيع اختيار أي منها من خلال اختيارها من القائمة التي تظهر بعد كتابة الفاصلة . وهي : تشغيل البرنامج مخفي تشغيله مكبراً وله التركيز تشغيله مصغراً وله التركيز تشغيله مصغراً وليس له التركيز تشغيله في وضعه العادي وله التركيز - هذا ما وضعته - تشغيله في حجمه العادي وليس له التركيز لاحظ أن هذا الأمر لن يعمل إلا مع الملفات التنفيذية ولذا أضفت أمراً ليتحقق من نوعية البرنامج قبل تنفيذ الأمر بالشكل التالي : [code] If Right(File1.FileName, 3) = "exe" Or Right(File1.FileName, 3) = "EXE" Then
وتستطيع الاستغناء عن هذا الشرط بضبط خاصية Pattren في أداة File بحيث تساوي *.exe ... كما يمكن للشرط أعلاه أن يكون بالشكل التالي .
If File1.Pattern = ".EXE" Then
والله الموفق .
وهذا هو المثال بعد التعديل .
هذا الموضوع مغلق.