主题："NavBar"控件的应用

在窗体上放入了一个"NavBar"控件我怎么设置页面的选择前和选择后（即打开的页面）加载的图标不同呢呢？有好几个页面每个页面所选择的图标都不同，每个页面对应给的是两个图标，选择前和选择后互换，怎么实现这一动态变化的功能呢？

参考

 

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

 

这个看了实现不了我的功能，我想实现动态变化的，也就是当某一个页面打开的时候加载的是A图标，当打开其他页面的时候加载的是B图标，其他页面也是如此动态变化的

就是2楼的用法。SelectedIndexChanged事件动态改变图标

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

运行之后，打开任意一个个页面都是显示一个图标，并且关闭页面后不还原图标

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