سلام
چه دستوری باید درون یک commond button بنویسم که یک فایل را اجرا کند برای مثال زمانی که برنامه رو اجرا میکنم دکمه را که فشار میدهم یک فایل help اجرا شود.:متفکر:
Printable View
سلام
چه دستوری باید درون یک commond button بنویسم که یک فایل را اجرا کند برای مثال زمانی که برنامه رو اجرا میکنم دکمه را که فشار میدهم یک فایل help اجرا شود.:متفکر:
با سلام.
از دستور shell میتونی استفاده کنی.
سینتکس:
shell(Pathname, [WindowsStyle as VbAppWin Style=vbMinimizedFocuse]) As Double
مثال: اجرای cmd.exe به صورت Maximized Focus:
shell "cmd.exe", vbMaximizedFocus
میشه پارامتراش رو بشتر توضیح بدید وبگید چکار کردید؟:متفکر:نقل قول:
نوشته شده توسط quiet_programmer
سلام علیکم
shell(Pathname, [WindowsStyle as VbAppWin Style=vbMinimizedFocuse]) As Double
دستور Shell دارای دو پارامتر است:
Pathname: مسیر فایل اجرایی
WindowsStyle: خود شامل پارامتر های زیر است:
vbHide: فرم برنامه اجرای شده مخفی باشد
vbMaximizedFocus: برنامه بصورت حداکثر و فکوس شده اجرا شود
vbMinimizedFocus: برنامه بصورت حداقل و فکوس شده اجرا شود
vbMinimizedNoFocus: برنامه بصورت حداقل و بدون فکوس اجرا شود
vbNormalFocus: برنامه بصورت معمولی و فکوس شده اجرا شود
vbNormalNoFocus: برنامه بصورت معمولی و بدون فکوس اجرا شود
موفق باشید
یاعلی
دوست عزیز اگه فرمت فایل chm یا exe باشه وکنار خود پروژه باشه بازم باز میکنه !نقل قول:
نوشته شده توسط mohsenvj
من که امتحان کردم جواب نداد
با سلام.
حتما جواب میده. برای اینکه زودتر به نتیجه برسی اون خط از کدت رو بزار اینجا تا برسی بشه.
دستور Shell فقط فایل های اجرایی را باز میکند و برای باز کردن فایل های chm و نظیر اینها که بصورت مستقل اجرا نمیشوند به عبارتی وابسته به یک فایل هستند که در اینجا برای گشودن فایل های chm نیازمند فایل hh.exeنقل قول:
نوشته شده توسط aminaltavista
هستید و بایستی برای اجرای فایل 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
بعد کد من اینه
Shell("Excel.exe C:\Users\amirez\Desktop\اداره برق\re.xlsx")
اما فایلو باز نمیکنه
نقل قول:
نوشته شده توسط amirez
مسیر فارسی نباشه باید جواب بده