- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- "NavBar"控件的应用 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108881)
-- 发布时间：2017/10/31 13:36:00
-- "NavBar"控件的应用
在窗体上放入了一个"NavBar"控件我怎么设置页面的选择前和选择后（即打开的页面）加载的图标不同呢呢？有好几个页面每个页面所选择的图标都不同，每个页面对应给的是两个图标，选择前和选择后互换，怎么实现这一动态变化的功能呢？
[此贴子已经被作者于2017/10/31 14:12:57编辑过]
-- 发布时间：2017/10/31 14:24:00
--
参考
http://www.foxtable.com/webhelp/scr/0881.htm
-- 发布时间：2017/10/31 15:39:00
--
这个看了实现不了我的功能，我想实现动态变化的，也就是当某一个页面打开的时候加载的是A图标，当打开其他页面的时候加载的是B图标，其他页面也是如此动态变化的
[此贴子已经被作者于2017/10/31 15:42:57编辑过]
-- 发布时间：2017/10/31 16:51:00
--
就是2楼的用法。SelectedIndexChanged事件动态改变图标
-- 发布时间：2017/10/31 17:30:00
--
Dim Bar As WinForm.NavBar
Bar = e.Form.Controls("NavBar1")
If Bar.SelectedPage.Butt Then
Bar.SelectedPage.ButtonImageFile = projectpath & "图标\\图标32\\chazhao.png"
Else
Bar.SelectedPage.ButtonImageFile = projectpath & "图标\\图标32\\kehu.png"
End If
If Bar.SelectedPage.Butt Then
Bar.SelectedPage.ButtonImageFile = projectpath & "图标\\图标32\\posjipiliangruku.png"
Else
Bar.SelectedPage.ButtonImageFile = projectpath & "图标\\图标32\\posjiruku.png"
End If
我不分代码是这样的，运行后不是所有的结果
此主题相关图片如下：1111.jpg
运行之前
此主题相关图片如下：2222.jpg
运行之后，打开任意一个个页面都是显示一个图标，并且关闭页面后不还原图标
[此贴子已经被作者于2017/10/31 17:38:16编辑过]
-- 发布时间：2017/10/31 19:19:00
--
Dim Bar As WinForm.NavBar
Bar = e.Form.Controls("NavBar1")
Dim p0 As WinForm.NavPage = bar.NavPages(0)
If Bar.SelectedPage.HeaderText = p0.HeaderText Then
p0.ButtonImageFile = projectpath & "图标\\图标32\\chazhao.png"
Else
p0.ButtonImageFile = projectpath & "图标\\图标32\\kehu.png"
End If
p0 = bar.NavPages(1)
If Bar.SelectedPage.HeaderText = p0.HeaderText Then
p0.ButtonImageFile = projectpath & "图标\\图标32\\chazhao.png"
Else
p0.ButtonImageFile = projectpath & "图标\\图标32\\kehu.png"
End If
[此贴子已经被作者于2017/10/31 19:20:07编辑过]