- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 导航栏窗口设计 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97399)
-- 发布时间：2017/3/11 14:11:00
-- [求助] 导航栏窗口设计
这样的导航栏窗口如何实现？初始界面分区面板的右侧不显示任何内容，点击任务栏页面后显示各个任务栏页面中控件的内容，文字部分已经实现，请问老师如何实现这些按钮的样式？谢谢！
-- 发布时间：2017/3/11 14:11:00
--
此主题相关图片如下：示例图片.png
-- 发布时间：2017/3/11 14:46:00
--
按钮样式+图片，参考：http://www.foxtable.com/webhelp/scr/0770.htm
-- 发布时间：2017/3/11 14:56:00
--
刚才描述的有点问题，上面这种可以设计，要实现的是类似这种，导航栏点击某一个页面，右面窗口也相对应的显示导航栏某页面下对应的功能按钮
此主题相关图片如下：示例1.png
-- 发布时间：2017/3/11 15:31:00
--
每个导航做一个tabpage，点击导航切换到不同的tabpage
-- 发布时间：2017/3/13 9:07:00
--
为了实现上述功能所写的代码，不执行，请老师帮忙指正错误之处：
Dim bar1 As WinForm.NavBar = e.sender
Select Case bar1.SelectedPage.ButtonText
Case "基础数据查询"
Dim tr As WinForm.TreeView
tr = Forms("共有窗口").Controls("TreeView1")
tr.Nodes(0).ExpandAll()
Dim tab As WinForm.TabControl = Forms("窗口1").Controls("TabControl1")
tab.SelectedIndex = 0
End select
-- 发布时间：2017/3/13 9:47:00
--
代码看不出问题，上传实例测试
-- 发布时间：2017/3/13 10:12:00
--
请老师帮忙查看吧，谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试系统试用版-1.table |
-- 发布时间：2017/3/13 11:19:00
--
Dim bar1 As WinForm.NavBar = e.sender
If Forms("窗口1").Opened = False Then Forms("窗口1").Open
Dim tab As WinForm.TabControl = Forms("窗口1").Controls("TabControl1")
For Each p As WinForm.TabPage In tab.TabPages
If p.Text = bar1.SelectedPage.HeaderText Then
tab.SelectedPage = p
Exit For
End If
Next
-- 发布时间：2017/3/13 14:45:00
--
设计了一个主窗口1，用分区面板分成左右两个区域，左面是一个导航栏，右面是一个页面集合，点击导航栏中的各个控件可以显示各个主窗口，遇到的问题是当点击导航栏或者某个页面中的控件打开一个主窗口并将其关闭后，怎么样始终保持主窗口1可见？