سلام
چه دستوری باید درون یک commond button بنویسم که یک فایل را اجرا کند برای مثال زمانی که برنامه رو اجرا میکنم دکمه را که فشار میدهم یک فایل help اجرا شود.
سلام
چه دستوری باید درون یک commond button بنویسم که یک فایل را اجرا کند برای مثال زمانی که برنامه رو اجرا میکنم دکمه را که فشار میدهم یک فایل help اجرا شود.
با سلام.
از دستور 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: برنامه بصورت معمولی و بدون فکوس اجرا شود
موفق باشید
یاعلی
.: مداحی دلنشین شهیدی که در زادروز ولادتش پرکشید [ تصاویر... ]
.: مداحی دلنشین شهید غلامعلی رجبی [ تصاویر... ]
.: لطفا سوالاتی که قابل طرح در انجمن هستند را در خصوصی ارسال نفرمائید.
با سلام.
حتما جواب میده. برای اینکه زودتر به نتیجه برسی اون خط از کدت رو بزار اینجا تا برسی بشه.
دستور 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موفق باشید
یاعلی
.: مداحی دلنشین شهیدی که در زادروز ولادتش پرکشید [ تصاویر... ]
.: مداحی دلنشین شهید غلامعلی رجبی [ تصاویر... ]
.: لطفا سوالاتی که قابل طرح در انجمن هستند را در خصوصی ارسال نفرمائید.
دوستان من میخوام داخل ویژوال بیسیک کاری کنم که با زدن باتم یه فایلاکسلی که دارم باز بشه