ايران ويج

دوستان سلام
یک سوال دارم
من می خوام داخل VB یه برنامه درست کنم که یه فایل exe مثل یه گیم رو با زدن یک کلید اجرا کنه!
یعنی داخل یک فورم یک Button باشه که با زدن اون یک فایل exe که داخل سیستم هست اجرا بشه.

خیلی ممنون می شم راهنماییم کنید...

دستور shell. قبلا زیاد بحث شده...

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

کد: 
Public 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

و این کد رو برای فرم

کد: 
Private Sub Command1_Click()

CommonDialog1.ShowOpen

ShellExecute hwnd, "open", CommonDialog1.FileName, vbNullString, "WINPath", 1

End Sub

بنویس
اینم فایل زیپ شدش
[attachment=2072]

فقط یه سوالی هم در مورد این فایل داشتم :
زمانی که این کد

کد: 
CommonDialog1.ShowOpen

به مرحله اجرا در می یاد
این کادر
[تصویر: untitledsss.JPG]

ظاهر می شه
حلا ما اگه open رو بزنیم فایل انتخابی اجرا می شه اما اگه Cancel یا دکمه خروج رو بزنیم خودش مسیر جاری ویندوز رو باز می کنه حالا ما اگه بخوایم زمانی که کاربر دکمه Cancel رو زد این مسیر باز نشه یا یه پیغام نمایش داده بشه چیکار کنیم؟
اصلا چطوری می شه فهمید کاربر توی کادر ShowOpen دکمه Cancel رو انتخاب کرده؟

تا اونجایی که من می دونم اگه cancel بزنی filename تغییر نمی کنه.
قبل از showopen مقدار filename رو تغییر بده (خالی کن) اگه cancel بزنه خوب همون می مونه دیگه ! Biggrin

یعنی اگه comd.filename ="" یعنی cancel شده

سلام

اونجوری فرقی نکرد
اما با یه if درست شد

کد: 
Private Sub Command1_Click()

CommonDialog1.ShowOpen

If CommonDialog1.FileName <> "" Then

ShellExecute hwnd, "open", CommonDialog1.FileName, vbNullString, "WINPath", 1

Else

MsgBox "null"

End If

End Sub

Salivan

ajlajlajl

xsalamx

محمد حسینی

xsalamx