- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]初始化项目失败 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=130303)
-- 发布时间：2019/1/18 11:41:00
-- [求助]初始化项目失败
此主题相关图片如下：初始化项目失败.jpg
如图，论坛实例，通知区域图标的实现对项目文件的事件进行了更改，导致菜单“初始化项目”执行时程序最小化，请问如何修改代码，才能不导致冲突？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:通知区域图标.rar |
-- 发布时间：2019/1/18 11:48:00
--
自己做一个按钮，执行命令，如
vars("关闭") = True
Syscmd.Project.Initialize()
初始化项目，是在关闭的前提下，才触发的。
不然，你自己做一个【初始化】的功能。
-- 发布时间：2019/1/18 12:02:00
--
测试可行！！！
但初始化项目后，退出，重启会被多开的命令拦截，不能正常退出和重启。
\'禁止多开
static mu As system.threading.mutex
Dim sucess As Boolean = False
mu=new system.threading.mutex(True,"禁止多开",sucess) \'xyz是你的程序名称
If not sucess Then
e.HideSplashForm = True
\'MessageBox.show("系统已经在运行,可退出后重新登录!","提示",MessageBoxButtons.OK,messageboxicon.Information)
MessageBox.show("系统已经在运行,可退出后重新登录! ", "提示",MessageBoxButtons.Ok,MessageBoxIcon.Error, 0, Windows.forms.MessageBoxOptions.ServiceNotification)
e.cancel=True
End If
-- 发布时间：2019/1/18 12:18:00
--
自己写代码初始化吧，比如
DataTables("表B").DataRows.clear
DataTables("表B").sqldeletefor("")
-- 发布时间：2019/1/18 12:30:00
--
好的，谢谢！