以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教如何控制重复打开同一项目  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77888)
--  作者：hbhb
--  发布时间：2015/11/27 10:15:00
--  请教如何控制重复打开同一项目
大师：请问如何控制打开同一项目？
--  作者：大红袍
--  发布时间：2015/11/27 10:54:00
--  
项目事件： BeforeOpenProject

 

If System.Diagnostics.Process.GetProcessesByName("项目名称").Length > 0 Then

    msgbox("禁止打开多个项目",vbSystemModal)

    e.Cancel = true

End If
--  作者：hbhb
--  发布时间：2015/11/27 11:08:00
--  
请问项目名称在哪设置？
--  作者：大红袍
--  发布时间：2015/11/27 11:10:00
--  

项目名称，就是你发布时设置的 进程名。

 

 
--  作者：大红袍
--  发布时间：2015/11/27 11:11:00
--  

或者换一直方法。

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=52306&skin=0

 
--  作者：hbhb
--  发布时间：2015/11/27 11:19:00
--  
如果用第二种方法，加入日历的代码后，就不启动了。
--  作者：大红袍
--  发布时间：2015/11/27 11:33:00
--  
以下是引用hbhb在2015/11/27 11:19:00的发言：
如果用第二种方法，加入日历的代码后，就不启动了。

 

BeforeOpenProject

 

Dim sucess As Boolean = False
static proc = new System.Threading.Mutex(True, "dsdfhdfghf", sucess)
If not sucess Then
    MessageBox.Show("只能打开一次!")
    e.Cancel = True
End If