以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 关于启动封面 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63569) |
-- 作者:zhsenchzhi -- 发布时间:2015/1/23 20:43:00 -- 关于启动封面 两个问题: 2 在设置了启动封面,同时设置了UKEY,启动时,在 beforeOpenPfoject 事件中,做了判断,如果没有插入Ukey,则 弹出对话框提示,然后退出,可是发布项目后实际运行中,发现,弹出的对话框被启动封面遮住了,导致对话框不能被看到,请问该怎么处理? 实际运行的情况: 期待出现的情况: 希望能够做到 1: 发布项目时,可以去掉启动封面 2: 或者可以将错误提示对话框 放在启动封面之上 beforeOpenPfoject 事件 具体代码如下: If UKey.Start() Then If UKey.Encrypt1("123") <> "AB927000" OrElse UKey.Encrypt2("123") <> "tgfghfh686900" Then MessageBox.Show("认证失败, 请插上正确的产品认证证书!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) e.Cancel = True Syscmd.Project.Exit End If Else MessageBox.Show("欢迎使用正版软件, 请插上产品的认证证书!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) e.Cancel = True Syscmd.Project.Exit End If |
-- 作者:程兴刚 -- 发布时间:2015/1/23 22:30:00 -- beforeOpenPfoject事件执行时窗口还没有生成,AfterOpenProject事件判断并打开提示窗口! |