اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


jo_2010

الردود الموصى بها

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

رمضان كريم

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

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

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

تم تعديل بواسطه jo_2010
  • Like 1
رابط هذا التعليق
شارك

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

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

رمضان كريم

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

 

اولا: الطريقة الاولى بدون 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

 

تم تعديل بواسطه SEMO.Pa3x
رابط هذا التعليق
شارك

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

ما عندي فكرة 

رابط هذا التعليق
شارك

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

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

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

تم تعديل بواسطه محمد صلاح1
رابط هذا التعليق
شارك

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

للرفع @SEMO.Pa3x

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

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

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

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


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

 

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information