View Full Version : سوال: باز کردن پروژه vb6
aleas2
دوشنبه 15 شهریور 1389, 14:01 عصر
سلام برهمگی خسته نباشید دوستان من یه پروژه vb6بطور مثال داخل درایو D:\project ذخیره کردم حالا میخوام با vb6 برنامه ای بنویسم که با کلیک روی command پروژه در حال اجرا کاملا بسته بشه بجاش پروژه داخل درایو D:\project اجرا بشه چه کدی باید داخل command بنویسم؟
shahnam sha
دوشنبه 15 شهریور 1389, 14:44 عصر
شما به راحتي می تونید با استفاده از دستور Shell هر برنامه اجرايي رو از داخل برنامتون اجرا کنيد طرز استفاده اوون هم به این صورت هست:
Shell Adres file Ejraei Masalan D\Project1.exe
بعد از انجام این کار هم میتونید برنامتون رو با دستور end ببندید.
sina32
دوشنبه 15 شهریور 1389, 16:59 عصر
چطور با دستور end ميشه بستش؟ ميشه يه مثالي بزنيد؟؟ ممنون ميشم :متفکر:
aleas2
دوشنبه 15 شهریور 1389, 18:27 عصر
چطور با دستور end ميشه بستش؟ ميشه يه مثالي بزنيد؟؟ ممنون ميشم :متفکر:
داداش دگه مثال نداره کافی فقط بنویسی end
اینم نمونه
Private Sub Command1_Click()
End
End Sub
sina32
دوشنبه 15 شهریور 1389, 20:34 عصر
داداش دگه مثال نداره کافی فقط بنویسی end
اینم نمونه
Private Sub Command1_Click()
End
End Sub
آهان آهان. فک کردم منظورتون بستن يه برنامه ديگس (مثلا از فايل2 بتونيم فايل1 رو ببنديم.)
IamOverlord
دوشنبه 15 شهریور 1389, 21:21 عصر
سلام!
گفتم ضرری نداره حالا که حرفش شد این رو بذارم :
بستن عادی یک پنجره توسط 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
:چشمک:
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.