باز کردن پروژه vb6

[aleas2]

سلام برهمگی خسته نباشید دوستان من یه پروژه vb6بطور مثال داخل درایو D:\project ذخیره کردم حالا میخوام با vb6 برنامه ای بنویسم که با کلیک روی command پروژه در حال اجرا کاملا بسته بشه بجاش پروژه داخل درایو D:\project اجرا بشه چه کدی باید داخل command بنویسم؟

[shahnam sha]

شما به راحتي می تونید با استفاده از دستور Shell هر برنامه اجرايي رو از داخل برنامتون اجرا کنيد طرز استفاده اوون هم به این صورت هست:

Shell Adres file Ejraei Masalan D\Project1.exe

بعد از انجام این کار هم میتونید برنامتون رو با دستور end ببندید.

[sina32]

چطور با دستور end ميشه بستش؟ ميشه يه مثالي بزنيد؟؟ ممنون ميشم :متفکر:

[aleas2]

چطور با دستور end ميشه بستش؟ ميشه يه مثالي بزنيد؟؟ ممنون ميشم :متفکر:

داداش دگه مثال نداره کافی فقط بنویسی end
اینم نمونه

Private Sub Command1_Click()
End
End Sub

[sina32]

داداش دگه مثال نداره کافی فقط بنویسی end
اینم نمونه

Private Sub Command1_Click()
End
End Sub

آهان آهان. فک کردم منظورتون بستن يه برنامه ديگس (مثلا از فايل2 بتونيم فايل1 رو ببنديم.)

[IamOverlord]

سلام!
گفتم ضرری نداره حالا که حرفش شد این رو بذارم :

بستن عادی یک پنجره توسط HWnd :


Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal HWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_CLOSE = &H10

Public Function fCloseWindow(ByVal HWnd As Long) As Long
fCloseWindow = SendMessage(HWnd, WM_CLOSE, 0&, 0&)
End Function


بستن فوری و بدون اخطار یک پنجره توسط HWnd :


Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal HWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_DESTROY = &H2

Public Function fDestroyWindow(HWnd As Long) As Long
fDestroyWindow = SendMessage(HWnd, WM_DESTROY, 0&, 0&)
End Function


:چشمک: