- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- AfterOpenProject写入注册机制后，在弹出注册窗口时，为什么要打开狐表主程序呢？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186221)
-- 发布时间：2023/4/14 8:42:00
-- AfterOpenProject写入注册机制后，在弹出注册窗口时，为什么要打开狐表主程序呢？
AfterOpenProject写入注册机制后，在弹出注册窗口时，为什么要打开狐表主程序呢？
有没有办法只弹出注册窗口 不弹出狐表主程序 谢谢各位老师
MainTable=Tables("表a")
Dim n As Integer = GetConfigValue("Count",1)
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
Dim Ok As Boolean
If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then \'如果注册码正确
OK = True
\'Dim sucess As Boolean = False
\'mu = new System.Threading.Mutex(True, "12+3措施暨法律文书规范化",sucess)
\'If not sucess Then
\'Dim Result As DialogResult
\'Result = MessageBox.Show("同一个软件只能打开一次!","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
\'If Result = DialogResult.Yes Then
\'Syscmd.Project.Exit(False)
\'End If
\'Else
vars("当前年度")=Date.today.Year
vars("当前月份")=Date.today.Month
Dim web As new WebPlatform.ProStart()
web.Show()
\'End If
Else
If n > 1 Then
Forms("注册").Open()
Code = GetConfigValue("Register" & ComputerId,"")
If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then \'如果注册码正确
OK = True
End If
End If
End If
n = n + 1
SaveConfigValue("Count",n)
-- 发布时间：2023/4/14 8:46:00
--
注册窗口设置为模式窗口
-- 发布时间：2023/4/14 10:31:00
-- 回复：（有点蓝）注册窗口设置为模式窗口
注册窗口是选择的模式窗口类型
特别是在未安装过狐表的电脑上 会弹出狐表主程序 不是项目主程序
有没有办法特底解决主程序的弹出呢？
-- 发布时间：2023/4/14 10:34:00
--
注册窗口如果是模式窗口，绝对不可能在打开注册窗口的时候同时弹出Foxtable主界面的
-- 发布时间：2023/4/14 10:40:00
-- 回复：（有点蓝）注册窗口如果是模式窗口，绝对不可能...
确定是模式窗口
此主题相关图片如下：捕获.png
-- 发布时间：2023/4/14 10:43:00
--
请上传实例说明