- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 一个项目只能运行一个Foxtable (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91345)
-- 发布时间：2016/10/8 21:50:00
-- 一个项目只能运行一个Foxtable
有时打开窗口多，同一个项目，不小心打开两个Foxtable，并同时在两个里面录数据，弄的数据非常混乱。
怎样只能一个项目打开一个Foxtable，如果已经打开，会提醒“本项目已经打开！
此主题相关图片如下：一个项目只能运行一个foxtable.jpg
-- 发布时间：2016/10/9 8:31:00
--
项目事件 BeforeOpenProject
If (UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0) Then
e.Cancel = True
End If
-- 发布时间：2016/10/9 10:23:00
--
这个代码，直接打不开项目，最好能有个警告窗，不然会以为这个项目文件坏了。
加了msgbox，但发现Foxtable启动画面会挡住，弹出窗口，给人错觉是卡在那。有办法让弹出窗显示在最上面嘛
If (UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0) Then
msgbox("已运行,请勿重复打开")
e.Cancel = True
End If
此主题相关图片如下：只能运行一个项目 警告窗被挡住.gif
-- 发布时间：2016/10/9 10:32:00
--
试试
msgbox("已运行,请勿重复打开",vbMsgBoxSetForeground)
-- 发布时间：2016/10/9 14:19:00
--
仔细看帮助有更好的：
此主题相关图片如下：qq截图20161009141644.jpg
注意帮助示例里的顺序：
e.Cancel = True
e.HideSplashForm = True
MessageBox.show