- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教版主大一个问题？【已解决】！谢篮板！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148418)
-- 发布时间：2020/4/7 16:45:00
-- 请教版主大一个问题？【已解决】！谢篮板！
全局代码 关于 主窗口不能关闭的 命令
Public Sub _TabPageClosing(sender As Object, e As C1.Win.C1Command.TabPageCancelEventArgs)
\'页面关闭按钮点击事件
If e.TabPage.Text = "主窗口" Then
MessageBox.Show("主窗口不能关闭!")
e.Cancel = True
Else
Forms(e.TabPage.Text).Close
e.cancel = True
End If
End Sub
然后是项目afteropenroject处代码 设置增加关闭命令
MainTable = Tables("首页")
If Forms("主窗口").Opened Then
Dim t As C1Command.C1DockingTab = Forms("主窗口").panel.parent.parent
If t IsNot Nothing Then
t.CanCloseTabs = True
t.CloseBox = 2
AddHandler t.TabPageClosing, AddressOf _TabPageClosing
End If
End If
最后窗口命令：
MainTable=Tables("首页")
Forms("主窗口").Open
Forms("互联网IP信息").Open()
If Forms("主窗口").Opened Then
Dim tab As object = Forms("主窗口").panel.parent.parent
Forms("互联网IP信息").show
tab.SelectedTab
End If
关闭后提出这个错误：
此主题相关图片如下：微信图片_20200407164303.png
此主题相关图片如下：微信图片_20200407164335.png
[此贴子已经被作者于2020/4/8 15:20:14编辑过]
-- 发布时间：2020/4/7 16:45:00
--
请教版主 哪里错了 这个基础窗口绘制命令也不是太懂
-- 发布时间：2020/4/7 16:55:00
--
全局事件
Public Sub _TabPageClosing(sender As Object, e As C1.Win.C1Command.TabPageCancelEventArgs)
\'页面关闭按钮点击事件
Dim name = e.TabPage.Text
If name = "主窗口" Then
e.Cancel = True
Else
If Forms.contains(name) Then
e.Cancel = True
Forms(name).Close
If sender.tabpages.Contains(e.tabpage)
sender.tabpages.remove(e.tabpage)
End If
End If
End If
End Sub
AfterOpenProject
Dim MainTab As C1Command.C1DockingTab = BaseMainform.Controls("MainPages")
Dim FormTab As C1Command.C1DockingTab = MainTab.TabPages(0).controls(0)
FormTab.CanCloseTabs = True
FormTab.CloseBox = 1
Formtab.CanAutoHide = True
AddHandler Formtab.TabPageClosing, AddressOf _TabPageClosing
-- 发布时间：2020/4/7 17:01:00
--
多谢，蓝版！
-- 发布时间：2020/4/7 17:19:00
--
还是报错！
此主题相关图片如下：微信图片_20200407171806.png
-- 发布时间：2020/4/7 17:25:00
--
上传实例说明
-- 发布时间：2020/4/7 18:57:00
--
[此贴子已经被作者于2020/4/7 21:54:56编辑过]
-- 发布时间：2020/4/7 18:59:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:用户.zip |
mdb放D盘 密码官方默认
[此贴子已经被作者于2020/4/7 18:59:19编辑过]
-- 发布时间：2020/4/7 21:37:00
--
默认菜单事件有问题。重新导入系统菜单：http://www.foxtable.com/webhelp/topics/1079.htm，把主菜单事件清空，然后删除默认的系统菜单，在重新设计自己的菜单
-- 发布时间：2020/4/7 21:51:00
--
好的。