Foxtable(狐表)用户栏目专家坐堂 → [求助] 导航栏窗口设计


  共有3347人关注过本帖树形打印复制链接

主题:[求助] 导航栏窗口设计

美女呀,离线,留言给我吧!
feng1999
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:100 积分:706 威望:0 精华:0 注册:2017/1/5 15:06:00
[求助] 导航栏窗口设计  发帖心情 Post By:2017/3/11 14:11:00 [只看该作者]

这样的导航栏窗口如何实现?初始界面分区面板的右侧不显示任何内容,点击任务栏页面后显示各个任务栏页面中控件的内容,文字部分已经实现,请问老师如何实现这些按钮的样式?谢谢!

 回到顶部
美女呀,离线,留言给我吧!
feng1999
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:100 积分:706 威望:0 精华:0 注册:2017/1/5 15:06:00
  发帖心情 Post By:2017/3/11 14:11:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:示例图片.png
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/11 14:46:00 [只看该作者]

按钮样式+图片,参考:http://www.foxtable.com/webhelp/scr/0770.htm

 


 回到顶部
美女呀,离线,留言给我吧!
feng1999
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:100 积分:706 威望:0 精华:0 注册:2017/1/5 15:06:00
  发帖心情 Post By:2017/3/11 14:56:00 [只看该作者]

刚才描述的有点问题,上面这种可以设计,要实现的是类似这种,导航栏点击某一个页面,右面窗口也相对应的显示导航栏某页面下对应的功能按钮

图片点击可在新窗口打开查看此主题相关图片如下:示例1.png
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/11 15:31:00 [只看该作者]

每个导航做一个tabpage,点击导航切换到不同的tabpage

 回到顶部
美女呀,离线,留言给我吧!
feng1999
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:100 积分:706 威望:0 精华:0 注册:2017/1/5 15:06:00
  发帖心情 Post By: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

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/13 9:47:00 [只看该作者]

代码看不出问题,上传实例测试

 回到顶部
美女呀,离线,留言给我吧!
feng1999
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:100 积分:706 威望:0 精华:0 注册:2017/1/5 15:06:00
  发帖心情 Post By:2017/3/13 10:12:00 [只看该作者]

请老师帮忙查看吧,谢谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试系统试用版-1.table


 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部
美女呀,离线,留言给我吧!
feng1999
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:100 积分:706 威望:0 精华:0 注册:2017/1/5 15:06:00
  发帖心情 Post By:2017/3/13 14:45:00 [只看该作者]

设计了一个主窗口1,用分区面板分成左右两个区域,左面是一个导航栏,右面是一个页面集合,点击导航栏中的各个控件可以显示各个主窗口,遇到的问题是当点击导航栏或者某个页面中的控件打开一个主窗口并将其关闭后,怎么样始终保持主窗口1可见?


 回到顶部
总数 13 1 2 下一页