Private Sub Command1_Click() Dim pathname pathname = App.Path If Right$(pathname, 1) <> "\" Then pathname = pathname + "\" End If MsgBox pathname End Sub
ان كان هذا الكود لتشغيل ملف exe فاين يجب ان يكون هذا الملف المراد تشغيله واين اضع اسمه من هذا الكود؟؟
وشكرا
تم تعديل هذه المشاركة بواسطة Xacker في 19 ديسمبر 2008 في 22:04
فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.
بدّل:
MsgBox PathName
بـ:
Shell PathName & "Project1.exe"
في حال كان اسم مشروعك Project1 .
وفقك الله
هذه الجملة خاطئة :wacko:
شكرا لك اخي عبود قمت بالتعديل لكن لم تنجح !!
لنفرض ان اسم الملف المراد تنصيبه هو shadi.exe اين يكتب هذا الاسم بذلك الكود ؟
ولو فرضنا ان كوماند اخر لتشغيل ملف exe اخر اين يجب ان يكونان هذيا الملفان بالمشروع؟
وشكرا
فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.
أخي هذا مثال في المرفقات، فيه زران، الأول يقوم بتشغيل البرنامج نفسه، والثاني يقوم بتشغيل المفكرة، عندما تريد تشغيل ملف تنفيذي عليك بالأمر:
Shell(PathName,WindowStyle)
حيث PathName هو مسار الملف التنفيذي، و WindowStyle هو الطريقة التي سيعرض بها الملف، هل يملأ الشاشة أم لا، وهل يكون التركيز عليه أم لا.
مع العلم أن بعض البرامج الأساسية الموجودة مع الويندوز كبرنامج المفكرة NotePad والآلة الحاسبة Calc وغيرها يمكن تشغيلها بكتابة الاسم مباشرة دون كتابة المسار الكامل.
أرجو أن أكون قد فهمت سؤالك وأجبت عليه إجابة صحيحة، إذا كنت مخطئاً فأرجو أن توضح سؤالك أكثر وما الذي تريده تماماً
وفقك الله.
تم تعديل هذه المشاركة بواسطة Abboodd في 20 ديسمبر 2008 في 16:20
هذه الجملة خاطئة :wacko:
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…