اريد المساعده في كيفية فتح ملف exe من برنامجي

يمكنك استخدام الكود التالى

shell(file path,window stat)

واذا اردت التعمق هناك موضوع كامل للاخ محمد عن مكتبة الشيل هنا :rolleyes:

Dim retval As Long
retval = Shell("C:\WINDOWS\CALC.EXE", vbNormalFocus)
End

مشكور أخ حريف برمجة الظاهر سبقتني بقليل

مشكورين الاخ حريف برمجة والاخ عبد العزيز اليوسفي

علي سرعة الرد والاجابة

جاري تجربة الاكواد واخباركم بالنتيجه

صقر الزمان كتب:

بسم الله الرحمن الرحيم

برجاء المساعده

اريد كود عند الضغط علي زر يفتح ملف exe

وان امكن يقوم باغلاق برنمجي مع فتح الملف

Shell "calc",5 : Unload Me ' Replace Calc with your exe path

عبد العزيز اليوسفي كتب:

Dim retval As Long
 retval = Shell("C:\WINDOWS\CALC.EXE", vbNormalFocus)
 End

وليه أستعملت متغير لن تقوم بتحليله فيما بعد ؟؟؟؟؟؟

ممكن يبقى كده بس

Shell "C:\WINDOWS\CALC.EXE", vbNormalFocus

مشكور msayed 2004

طيب يا جماعه لو مش عايز احدد مسار معين

ياعني زي ما بنعمل في قاعدة البيانات الاسم والامتداد

ينفع ويبقي ازاي

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

up

للاهمية

اقتباس

طيب يا جماعه لو مش عايز احدد مسار معين

ياعني زي ما بنعمل في قاعدة البيانات الاسم والامتداد

ينفع ويبقي ازاي

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

Shell App.Path & "\The file name here.exe", 1
End

;)

اخي صقر الزمان ارجو ان اكون قد وضعت لك الحل

اقتباس

اخي صقر الزمان ارجو ان اكون قد وضعت لك الحل

حتى اكون قد غطيت كل اسثلتك (h) اخى صقر الزمان فان السئوال القادم هو انك لا تعرف اسم ملف برنامجك الزى سوف يغيرة المستخدم وايضا ستسال عن الدالة

app.path

هذة الدالة تقوم بارجاع عنوان ملف البرنامج الذى فتحة المستخدم اى كان

اما الدالة

App.exename

تقوم بارجاع اسم ملف البرنامج بتاعك

ويمكنك استخدام الكود التالى

shell app.exename,vbnormalfocus

أنا بفضل Unload Me عن End

مشكور الاخ الفاضل محمد الشملان والاخ حريف برمجه

علي الاجابة علي سؤالي الثاني وجزاكم الله خيرا

كما اشكر كل من شارك في الاجابة علي اسئلتلي

الاخوة ( عبد العزيز اليوسفي - حريف برمجه - msayed2004 - محمد الشملان )

اشكركم جميعا

جزاكم الله خيرا وجعله في ميزان حسناتكم

اقتباس

مشكور الاخ الفاضل محمد الشملان والاخ حريف برمجه

يا سيدى العفو احنا دايما فى الخدمة :rolleyes:

اقتباس

أنا بفضل Unload Me عن End

نفترض ان المشروع يحتوى على اكثر من فورم هل ستفضل unload me ايضا :lol:

End ممكن يعمل مشاكل

لو عندك أكتر من Form نادى الـ Sub ده :

Public Sub CloseAllForms()
On Error Resume Next

Dim Frm As Form

For Each Frm In Forms
	Unload Frm
	Set Frm = Nothing
Next
End Sub

انا لم اسمع قبل ذلك ان end تقوم بعمل مشاكل <_<

ولكن نفترض انك استدعيت فورم عن طريق دوال ال Api فلن تعرف تبع الكلاس الخاص بالفيجوال بيسيك لكن يتم وضع الاكواد حسب حاجة البرنامج

وانت قمت بعمل لووووووووووووب لاغلاق الفرم :lol:

وهناك سؤال لى هل يمكن فتح الفورم اكثر من مرة اى ان تاخذ نسخ منها فى الذاكرة وتفتحها اكثر من مرة فى نفس الوقت اعتقد انها خارج امكانيات الفيجوال بيسيك

اقتباس

End ممكن يعمل مشاكل

end تقوم بنفس عمل :

Dim Frm As Form

For Each Frm In Forms
	Unload Frm
	Set Frm = Nothing
Next

فكيف ستعطي مشاكل ، ممكن تنورنا بها أخي msayed2004 قد تكون لديك معلومة لا نعرفها

حريف برمجة كتب:

انا لم اسمع قبل ذلك ان end تقوم بعمل مشاكل <_<

أنا سمعت و قرأت

حريف برمجة كتب:

ولكن نفترض انك استدعيت فورم عن طريق دوال ال Api فلن تعرف تبع الكلاس الخاص بالفيجوال بيسيك لكن يتم وضع الاكواد حسب حاجة البرنامج

مش فاهم قصدك

حريف برمجة كتب:

وانت قمت بعمل لووووووووووووب لاغلاق الفرم

و هى دى الطريقة الصح

حريف برمجة كتب:

وهناك سؤال لى هل يمكن فتح الفورم اكثر من مرة اى ان تاخذ نسخ منها فى الذاكرة وتفتحها اكثر من مرة فى نفس الوقت اعتقد انها خارج امكانيات الفيجوال بيسيك

Dim Frm As New Form1
Frm.Show

بالنسبة لمشكلة End فهى ببساطة واحدة من أسباب الـ Crahing و فيه ناس بتقول أن ده بيبقى أكتر على Win 2k فيما فوق

هناك دوال API لاستدعاء الفورم من المكتبة القياسية على ما اذكر kernel32.dll هل يتم تصنيفها مع الكاثن(الفرم) الموجودة فى الفيجوال بيسيك *-)

اقتباس

A lot of developers use the Stop button in the Visual Basic IDE or an End statement in their Visual Basic programs to stop program execution; don't be one of them. Stopping a program in this manner doesn't allow your VB program to clean up after itself, to gracefully release object references, close database connections, or perform other housekeeping. This can cause memory issues, among other, more subtle problems. Most importantly, if you're using API functions, and especially if you're using subclassing techniques, this will often cause the VB IDE itself to crash completely.

Instead, you should unload the application normally whenever possible, either by closing the form or by executing whatever shutdown code you've written for your program. Unloading, instead of stopping or ending, your program can be the difference between a graceful shutdown and a hard crash.

حسنا لكن جاوب على سؤالى السابق

ربما كما تقول ذلك لكن للتاكيد اكثر سوف اضع end بعد البرنامج

والموقع ينصح الا اكون من احد ه}لاء المبرمجين معنى ذلك اننى سوف اقوم بعمل اجراء يقوم باغلاق وازالة كل كائن قد فتحتة فى الذاكرة سوف اقوم بعمل مشروع وافتح به كائنات كثيرة مثل قواعد البيانات ومكتبة الوين سوك بدون clean up وسارى الطريقتين :blink:

حريف برمجة كتب:

هناك دوال API لاستدعاء الفورم من المكتبة القياسية على ما اذكر kernel32.dll هل يتم تصنيفها مع الكاثن(الفرم) الموجودة فى الفيجوال بيسيك *-)

أنا مش فاهم السؤال أساسا و ايه علاقته بالموضوع بتاع End

محمد انا زهقت :wacko: :angry: انسى الموضوع :lol:

حقك عليا أنا غلطان أستعمل End براحتك

اقتباس

حقك عليا أنا غلطان أستعمل End براحتك

يا عم انا ما اقصدش حاجة :rolleyes: انا بس مشغول بمشاكل تانية وساعة ما كتبت الرد الاخير كنت جاى من مصلحة حكومية مصرية :angry: وانت عارف المصالح دى عاملة ازاى هبقى اشرحلك على المسنجر -_-