杭州交通信息网ggm模范老师:VB中关于防止同一应用程序多重启动的问题
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/12 14:52:29
我在网上搜了一下，下面的方法可以实现
Private Sub Form_Initialize()
If App.PrevInstance Then End
End Sub
但是实现的是当发现多重启动时，将直接退出（End）
我想要实现的是，当发现是多重启动时，将已启动的那个应用程序激活
应该怎么办？
谢谢～
Private Sub Form_Initialize()
If App.PrevInstance Then End
End Sub
但是实现的是当发现多重启动时，将直接退出（End）
我想要实现的是，当发现是多重启动时，将已启动的那个应用程序激活
应该怎么办？
谢谢～
给你个思路,要用到几个API
检测到应用程序已经启动后
用FINDWINDOW函数找出你刚才已经启动窗体的句柄
用SETWINDOWPOS把刚才的窗体设置为TOP或者是TOPMOST,就是最前端显示.这样就达到了"激活"
你可以把end 改成一个msgbox，做一下提示就好，不用退出