7,763
社区成员
发帖
与我相关
我的任务
分享怎么解决同一个程序当前只允许运行一个副本？
就是一个exe文件，双击以后，就打开一个窗口，然后如果再双击这个文件，这个窗口就会又打开了。而不是又弹出一个新的副本。
...全文
请发表友善的回复…
发表回复
egxsun 2004-11-16
- 打赏
- 举报
App.PrevInstance
来晚了
来晚了
zdmaster 2004-11-16
- 打赏
- 举报
来玩了，上面都讲了
沧海一粒尘 2004-11-16
- 打赏
- 举报
设置工程为SUB MAIN启动，然后在SUB MAIN中加入如下代码：
if App.PrevInstance = True Then
exit sub
end if
这样就可以保证在任何时候只有一个程序的实例运行
if App.PrevInstance = True Then
exit sub
end if
这样就可以保证在任何时候只有一个程序的实例运行
crazypc 2004-11-16
- 打赏
- 举报
If App.PrevInstance = True Then
If FindWindow(vbNullString, "TEST") <> 0 Then
AppActivate ("TEST")
End If
End If
窗体的CAPTION属性是"TEST"
但是这样报错：参数不正确，在 AppActivate ("TEST") 中。
If FindWindow(vbNullString, "TEST") <> 0 Then
AppActivate ("TEST")
End If
End If
窗体的CAPTION属性是"TEST"
但是这样报错：参数不正确，在 AppActivate ("TEST") 中。
huangjianyou 2004-11-16
- 打赏
- 举报
^_^
creazyfish 2004-11-16
- 打赏
- 举报
诶，来晚了诶！
senvy 2004-11-16
- 打赏
- 举报
原来还有这个。呵呵。。。
行云边 2004-11-16
- 打赏
- 举报
使用 app.PrevInstance 属性
viena 2004-11-16
- 打赏
- 举报
if app.PrevInstance then '已运行
'用FindWindow 找到那个窗口并激活
end if
'用FindWindow 找到那个窗口并激活
end if
tztz520 2004-11-16
- 打赏
- 举报
Private Sub Form_Load()
If App.PrevInstance Then
MsgBox App.EXEName & "己打开"
End
End If
End Sub
If App.PrevInstance Then
MsgBox App.EXEName & "己打开"
End
End If
End Sub
