نحوه اجرای یک برنامه دیگر در پروژه

[aminaltavista]

سلام
چه دستوری باید درون یک commond button بنویسم که یک فایل را اجرا کند برای مثال زمانی که برنامه رو اجرا میکنم دکمه را که فشار میدهم یک فایل help اجرا شود.

[quiet_programmer]

با سلام.

از دستور shell میتونی استفاده کنی.

سینتکس:

shell(Pathname, [WindowsStyle as VbAppWin Style=vbMinimizedFocuse]) As Double

مثال: اجرای cmd.exe به صورت Maximized Focus:

shell "cmd.exe", vbMaximizedFocus

[aminaltavista]

با سلام.

از دستور shell میتونی استفاده کنی.

سینتکس:

shell(Pathname, [WindowsStyle as VbAppWin Style=vbMinimizedFocuse]) As Double

مثال: اجرای cmd.exe به صورت Maximized Focus:

shell "cmd.exe", vbMaximizedFocus

میشه پارامتراش رو بشتر توضیح بدید وبگید چکار کردید؟

[محسن واژدی]

سلام علیکم
shell(Pathname, [WindowsStyle as VbAppWin Style=vbMinimizedFocuse]) As Double
دستور Shell دارای دو پارامتر است:
Pathname: مسیر فایل اجرایی

WindowsStyle: خود شامل پارامتر های زیر است:
vbHide: فرم برنامه اجرای شده مخفی باشد
vbMaximizedFocus: برنامه بصورت حداکثر و فکوس شده اجرا شود
vbMinimizedFocus: برنامه بصورت حداقل و فکوس شده اجرا شود
vbMinimizedNoFocus: برنامه بصورت حداقل و بدون فکوس اجرا شود
vbNormalFocus: برنامه بصورت معمولی و فکوس شده اجرا شود
vbNormalNoFocus: برنامه بصورت معمولی و بدون فکوس اجرا شود

موفق باشید
یاعلی

[aminaltavista]

سلام علیکم
shell(Pathname, [WindowsStyle as VbAppWin Style=vbMinimizedFocuse]) As Double
دستور Shell دارای دو پارامتر است:
Pathname: مسیر فایل اجرایی

WindowsStyle: خود شامل پارامتر های زیر است:
vbHide: فرم برنامه اجرای شده مخفی باشد
vbMaximizedFocus: برنامه بصورت حداکثر و فکوس شده اجرا شود
vbMinimizedFocus: برنامه بصورت حداقل و فکوس شده اجرا شود
vbMinimizedNoFocus: برنامه بصورت حداقل و بدون فکوس اجرا شود
vbNormalFocus: برنامه بصورت معمولی و فکوس شده اجرا شود
vbNormalNoFocus: برنامه بصورت معمولی و بدون فکوس اجرا شود

موفق باشید
یاعلی

دوست عزیز اگه فرمت فایل chm یا exe باشه وکنار خود پروژه باشه بازم باز میکنه !
من که امتحان کردم جواب نداد

[quiet_programmer]

با سلام.

حتما جواب میده. برای اینکه زودتر به نتیجه برسی اون خط از کدت رو بزار اینجا تا برسی بشه.

[محسن واژدی]

دوست عزیز اگه فرمت فایل chm یا exe باشه وکنار خود پروژه باشه بازم باز میکنه !
من که امتحان کردم جواب نداد

دستور Shell فقط فایل های اجرایی را باز میکند و برای باز کردن فایل های chm و نظیر اینها که بصورت مستقل اجرا نمیشوند به عبارتی وابسته به یک فایل هستند که در اینجا برای گشودن فایل های chm نیازمند فایل hh.exe
هستید و بایستی برای اجرای فایل chm دستور shell را بصورت زیر ویرایش کنید:
Shell "hh.exe helpfile.chm"
البته برای بهینه تر شدن میتوانید از APIی ShellExecuteاستفاده کنید که مسیر هر فایلی را اجرا میکند، دستور کلی ان به همراه تابع مورد نیاز را میتوانید بصورت زیر بنویسید:

Private 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 nShowCmd As Long) As Long





Sub Run(FilePath$, Optional Params$, Optional sStyle As VbAppWinStyle = VbAppWinStyle.vbNormalFocus)

 

    ShellExecute hwnd, "open", FilePath$, Params$, "c:\", sStyle



End Sub

کدنمونه:
Run "C:\myTextfile.txt", , vbMaximizedFocusموفق باشید
یاعلی

[amirez]

دوستان من میخوام داخل ویژوال بیسیک کاری کنم که با زدن باتم یه فایلاکسلی که دارم باز بشه

[ROSTAM2]

دوستان من میخوام داخل ویژوال بیسیک کاری کنم که با زدن باتم یه فایلاکسلی که دارم باز بشه

تو پستقبل تر از سوالت توضیح داده شده

[amirez]

تو پستقبل تر از سوالت توضیح داده شده

«گاه کنید من یه باتم دارم
بعد کد من اینه

Shell("Excel.exe C:\Users\amirez\Desktop\اداره برق\re.xlsx")

اما فایلو باز نمیکنه

[isaac23]

«گاه کنید من یه باتم دارم
بعد کد من اینه

Shell("Excel.exe C:\Users\amirez\Desktop\اداره برق\re.xlsx")

اما فایلو باز نمیکنه

مسیر فارسی نباشه باید جواب بده