24小时热门版块排行榜    

查看: 2513  |  回复: 5
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

yhwsmile

金虫 (小有名气)

[交流] 【求助】怎么让vb程序运行结束后自动退出啊 已有5人参与

我用vb调用一个外部程序,我想在外部程序data_con.exe运行结束后,vb自动退出,请问怎么实现啊?谢谢各位大侠了~~~~

下面是代码:
Option Explicit
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Sub Form_Load()

Call Shell("data_con.exe", vbNormalFocus)

End Sub
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lwq911

新虫 (小有名气)

★ ★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
余泽成(金币+2):谢谢参与应助,欢迎常来程序语言版! 2010-12-24 16:37:44
搞那么复杂啊,干什么啊!
Private Sub Command1_Click()
Dim ret As Integer
Call Shell("data_con.exe", vbNormalFocus)
end
End Sub
5楼2010-12-23 09:51:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 yhwsmile 的主题更新
普通表情 高级回复 (可上传附件)
信息提示
请填处理意见