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

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

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

有点甜

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

加好友

发短信

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

Post By：2018/11/28 12:25:00 [显示全部帖子]

以下是引用wtfwsk05在2018/11/28 12:01:00的发言：
systemready = False 请问下这个是什么用法

目的是不触发事件

http://www.foxtable.com/webhelp/scr/2218.htm

有点甜

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

加好友

发短信

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

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

以下是引用wtfwsk05在2018/11/28 13:50:00的发言：
老师，请问下，如何通过代码隐藏指定窗口的标题

Dim a = Forms("窗口1").panel.parent.parent
a.ShowCaption = False

有点甜

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

加好友

发短信

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

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

1、2、参考

http://www.foxtable.com/webhelp/scr/0830.htm

3、

TableCaptionVisible = False

有点甜

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

加好友

发短信

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

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

1、在主窗口添加一个tabcontrol即可，不要重复添加tabcontrol啊，你可以在afterLoad事件添加一个tabcontrol

2、在你点击节点的时候，在tabcontrol里面添加一个页面就可以啊

http://www.foxtable.com/webhelp/scr/0830.htm

有点甜

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

加好友

发短信

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

Post By：2018/11/28 21:39:00 [显示全部帖子]

1、代码应该写到 NodeMouseDoubleClick事件

2、修改代码

Dim Form_main_tab As WinForm.TabControl = Forms("主窗口").Controls("TabControl1")
Form_main_tab.Visible=True
Form_main_tab.TabPages("page1").Visible= False
Dim bar As WinForm.NavBar = e.Form.Controls("NavBar1")
Dim bar_page As WinForm.NavPage = bar.SelectedPage
Dim trv_nm As String = "trv_" & bar_page.Name
Dim trv_view As WinForm.TreeView = Forms("导航栏").Controls(trv_nm)
Dim trv_node As WinForm.TreeNode = trv_view.SelectedNode
If trv_node.Level = 1 Then
Form_main_tab.TabPages.Insert(trv_node.text,trv_node.text,1)
End If