禁止重复打开项目导致升级出错的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在beforeopenproject中用了如下事件代码:

'---控制一台电脑只能打开一个客户端运行!

Dim sucess As Boolean = False

mu = new System.Threading.Mutex(True, "dsdfhdfghf", sucess)

If not sucess Then

MessageBox.Show("程序已经在运行,不能重复打开!", "提示",MessageBoxButtons.Ok,MessageBoxIcon.Warning,0, Windows.forms.MessageBoxOptions.ServiceNotification)

e.Cancel = True

End If

在afterOPenproject中的升级代码如下：

If ftp.Download("\Update\Update1.Zip",Path & "\Update1.Zip",True) = True Then '小版本升级

UpdatePath = Path

RemoteUpdate = False

If Syscmd.Project.Update(False,False) = True Then '发现新版本时不提示用户,因为前面已提示过

Application.restart '重新启动

'Return '小版本更新不用返回,否则升级完成后不能自动打开程序

End If

小版本升级上面红色代码重启后就会出现上面的"程序已经在运行,不能重复打开!" 出错，导致打开项目终止，关掉错误，再次重新打开项目又可正常使用。

应该如何避免这个问题？

谢谢！

结束一下，再重启

mu.close

Application.restart '重新启动

为什么我复制代码后，显示：未声明 MU

然后我这样改：

Dim sucess As Boolean = False
Dim mu = new System.Threading.Mutex(True, "dsdfhdfghf", sucess)
If not sucess Then
MessageBox.Show("程序已经在运行,不能重复打开!", "提示",MessageBoxButtons.Ok,MessageBoxIcon.Warning,0, Windows.forms.MessageBoxOptions.ServiceNotification)
e.Cancel = True
End If

结果显示：编译错误，forms 不是windows成员

Dim sucess As Boolean = False
Dim mu = new System.Threading.Mutex(True, "dsdfhdfghf", sucess)
If not sucess Then
MessageBox.Show("程序已经在运行,不能重复打开!", "提示",MessageBoxButtons.Ok,MessageBoxIcon.Warning,0, system.Windows.forms.MessageBoxOptions.ServiceNotification)
e.Cancel = True
End If

这样写了以后，还是可以打开两个啊？？？？？？？？？？？？？？？？？？？？？为什么？？？？？？？？？？？？？
图片点击可在新窗口打开查看此主题相关图片如下：qq图片20200804084633.gif

static mu As System.Threading.Mutex

Dim sucess As Boolean = False

mu = new System.Threading.Mutex(True, "aaabbbccc", sucess)

If not sucess Then

MessageBox.Show("系统已经在运行,请退出后重新登录!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.Cancel = True

End If

主题：禁止重复打开项目导致升级出错的问题