VB 2个相同的程序不能同时打开的代码

来源：百度知道 编辑：UC知道 时间：2024/04/29 00:16:21
用VB做好了一个程序，打开它，如果我再去打开这个程序，会提示已经有相同的程序正在运行
这样的代码怎么写，高手指教
If App.PrevInstance = True Then MsgBox "系统已经在运行了！"
这个方法有个缺点，再次打开该程序的时候，程序界面会一起跳出来，我只要提示，不要看见该界面

Private Sub Form_Load()
Me.Hide
Dim ms As String
If App.PrevInstance = True Then
ms = MsgBox("系统已经在运行！是否要退出？", vbYesNo + 48, "提示")
If ms = vbYes Then
Unload Me
Else
Me.Show
End If
Else
Me.Show
End If
End Sub

If App.PrevInstance = True Then MsgBox "系统已经在运行了！"

--

我晕 不用msgbox不就完了 If App.PrevInstance = True Then ……

你不就是不知道怎么判断有没有运行的嘛

根据楼上的可以修改为
Private Sub Form_Load()
If App.PrevInstance = True Then
MsgBox "sasdfas"
Unload Me
Else
Me.Visible = True
End If
End Sub

用API吧
FINDWINDOW