7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
broown 2004-06-26
- 打赏
- 举报
为什么，本楼会有如此多的带星老大们出现？
楼主你应该感动啊~~
楼主你应该感动啊~~
chenyu5188 2004-06-25
- 打赏
- 举报
用App.PrevInstance 属性。
lion_wing 2004-06-25
- 打赏
- 举报
DING,同意！
flisun 2004-06-25
- 打赏
- 举报
save
tiaozaodejia 2004-06-25
- 打赏
- 举报
哈！看帖子又学到一点了！托楼主的福呀！
ryuginka 2004-06-25
- 打赏
- 举报
If App.PrevInstance Then
MsgBox "此程序已经运行！", vbInformation
End
End If
MsgBox "此程序已经运行！", vbInformation
End
End If
victorycyz 2004-06-25
- 打赏
- 举报
注意慎用end语句强行结束应用程序。
victorycyz 2004-06-25
- 打赏
- 举报
previnstance
饮水需思源 2004-06-25
- 打赏
- 举报
If App.PrevInstance Then
MsgBox "此程序已经运行！", vbInformation
End
End If
MsgBox "此程序已经运行！", vbInformation
End
End If
lqtflwg718 2004-06-25
- 打赏
- 举报
If App.PrevInstance = True Then '限制程序在本机上多次运行
MsgBox "程序已经在运行！", vbExclamation + vbOKCancel, "医院管理系统"
Else
frmconnection.Show
'App.TaskVisible = False
End If
MsgBox "程序已经在运行！", vbExclamation + vbOKCancel, "医院管理系统"
Else
frmconnection.Show
'App.TaskVisible = False
End If
