语法解法 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 语法解法

共有20393人关注过本帖树形打印复制链接主题：语法解法

有点甜

小大 71楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/19 14:37:00 [显示全部帖子]

隐藏，如

Dim tabc_1 As WinForm.TabControl = Forms("主窗口").Controls("TabControl1")
For Each p As WinForm.TabPage In tabc_1.TabPages
p.visible = False
Next

有点甜

小大 72楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/19 15:37:00 [显示全部帖子]

以下是引用wtfwsk05在2018/11/19 15:04:00的发言：
那怎么实现双击一个节点，打开一个页面集合中的一个页面

Dim tabc_1 As WinForm.TabControl = Forms("主窗口").Controls("TabControl1")
tabc_1.TabPages("某个名称").Visible = true

有点甜

小大 73楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/19 16:18:00 [显示全部帖子]

以下是引用wtfwsk05在2018/11/19 15:58:00的发言：
上述代码，我测试过，显示我指定的页面后，在次关闭该页面，就会提示错误，需要判断，我加了几次都是错误的

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=95849&skin=0

有点甜

小大 74楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/19 17:10:00 [显示全部帖子]

参考

下载信息 [文件大小：340.0 KB 下载次数：0]
点击浏览该文件:管理项目1.foxdb

有点甜

小大 75楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/19 17:55:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:sap系统.table

有点甜

小大 76楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/20 9:40:00 [显示全部帖子]

全局代码，写成下面，好好参考229楼的代码

Public Sub _TabPageClosing(sender As Object, e As C1.Win.C1Command.TabPageCancelEventArgs)
'页面关闭按钮点击事件
If e.TabPage.Name = "首页" Then
    MessageBox.Show("首页不能关闭!")
    e.Cancel = True
Else

    sender.tabpages(e.tabpage.name).visible = False
    e.cancel = True
End If

End Sub