فتح برنامج من خلال زر فى نموذج

[jo_2010]

السادة الخبراء الافاضل

رمضان كريم

كل عام زانتم بخير

الحقيقة مش عارف طلبى دة ممكن يتحقق ولا انا بطلب طلب غير منطقى

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

تم تعديل مايو 8, 2019 بواسطه jo_2010

[عبد اللطيف سلوم]

1 ساعه مضت, jo_2010 said:

السادة الخبراء الافاضل

رمضان كريم

كل عام زانتم بخير

الحقيقة مش عارف طلبى دة ممكن يتحقق ولا انا بطلب طلب غير منطقى

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

هذا الكود يفتح الالة الحاسبة

يمكن تستفيد منه

فتح الالة الحاسبة.accdb

[SEMO.Pa3x]

عليكم السلام. طلبك ممكن  وبكل بساطة.

 

اولا: الطريقة الاولى بدون Windows API

 

Dim cmgr As String
cmgr = "مسار البرنامج الذي تريد تشغيله" 

'مثال
'‪cmgr = "C:\WINDOWS\system32\mspaint.exe"

Call Shell(cmgr, vbMaximizedFocus)

 

ثانياً: الطريقة الثانية بإستخدام Windows API بواسطة دالة ShellExecuteA

 

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 lpnShowCmd As Long) As Long


Public Sub ShellEx(ByVal Path As String, Optional ByVal Parameters As String, Optional ByVal HideWindow As Boolean)

    If Dir(Path) > "" Then
        ShellExecute 0, "open", Path, Parameters, "", IIf(HideWindow, 0, 1)
    End If

End Sub

 

'run executable
ShellEx "c:\mytool.exe"

'open file with default app
ShellEx "c:\someimage.jpg"

'open explorer window
ShellEx "c:\"

هذا شرح مفصل عنها

https://www.vb-helper.com/howto_shellexecute.html

 

تم تعديل مايو 8, 2019 بواسطه SEMO.Pa3x

[jo_2010]

 الاخ الفاضل عبد اللطيف سلوم

لقداستفدت من كود الالة الحاسبة وتم فتح البرنامج المطلوب

ولكن هل لى ان اطمع فى علم حضرتك للاستفادة 

عند فتح البرنامج المطلوب

  والعودة مرة اخرى للعمل على نموذج اكسيس والضغط على زر فتح البرنامج يعرض رسالة بان البرنامج مفتوح مسبقا هل يوجد كود لعمل MximizeWindow للبرنامج المفتوح  ولك الشكر

[عبد اللطيف سلوم]

2 ساعات مضت, jo_2010 said:

 الاخ الفاضل عبد اللطيف سلوم

لقداستفدت من كود الالة الحاسبة وتم فتح البرنامج المطلوب

ولكن هل لى ان اطمع فى علم حضرتك للاستفادة 

عند فتح البرنامج المطلوب

  والعودة مرة اخرى للعمل على نموذج اكسيس والضغط على زر فتح البرنامج يعرض رسالة بان البرنامج مفتوح مسبقا هل يوجد كود لعمل MximizeWindow للبرنامج المفتوح  ولك الشكر

ما عندي فكرة 

[محمد احمد لطفى]

هذا يفتح الرسام وومكن أن يفتح برامج أخرى

Dim retVal
retVal = Shell("c:\windows\system32\mspaint.exe")

 

[محمد صلاح1]

في ٨‏/٥‏/٢٠١٩ at 12:17, SEMO.Pa3x said:

عليكم السلام. طلبك ممكن  وبكل بساطة.

طيب ممكن كود يفتح برنامج بمجرد فتح النموذج علي اعتبار أن مسار البرنامج سيكون متغير من جهاز لأخر وعليه أريد مسار فتح البرنامج أن يستدعيه الكود من داخل مجلد قاعدة البيانات لأن البرنامج المراد سيكون بداخله دائماً

تم تعديل مايو 23, 2019 بواسطه محمد صلاح1

[محمد صلاح1]

للرفع @SEMO.Pa3x

تم قتح موضوع جديد للاستفسار علي هذا الرابط إذا رغبت بالتعديل علي الكود الذي تفضلت به

تم تعديل مايو 23, 2019 بواسطه محمد صلاح1

[ابو جودي]

53 دقائق مضت, محمد صلاح1 said:

للرفع

 

[ابو جودي]

منذ ساعه, محمد صلاح1 said:

للرفع @SEMO.Pa3x

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

كما ان الاجابه تم وضعها وقبل سؤالك مباشرة

في ٩‏/٥‏/٢٠١٩ at 04:18, محمد احمد لطفى said:

هذا يفتح الرسام وومكن أن يفتح برامج أخرى

Dim retVal
retVal = Shell("c:\windows\system32\mspaint.exe")

 

لهذا وضعت علامات تدل على  confused التعجب