以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]navbar如何设置按钮在顶端及隐藏标题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=153184)

--  作者:2900819580
--  发布时间:2020/8/3 14:04:00
--  [求助]navbar如何设置按钮在顶端及隐藏标题

navbar如何设置按钮在顶端及隐藏标题,如下图所示,我想做到以下效果,

1、隐藏红色框的标题

2、将蓝色框中的所有按钮移动至顶部显示。
3、鼠标进入按钮后,按钮标题增加“>>",这样的字符,以下代码重复生成。

e.Sender.SelectedPage.ButtonText = e.Sender.SelectedPage.ButtonText & "  >>"

 


图片点击可在新窗口打开查看此主题相关图片如下:08031.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2020/8/3 14:08:11编辑过]

--  作者:有点蓝
--  发布时间:2020/8/3 14:07:00
--  
没有办法
--  作者:2900819580
--  发布时间:2020/8/3 14:09:00
--  
以下是引用有点蓝在2020/8/3 14:07:00的发言:
没有办法

3、鼠标进入按钮后,按钮标题增加“>>",这样的字符,以下代码重复生成。

e.Sender.SelectedPage.ButtonText = e.Sender.SelectedPage.ButtonText & "  >>"

 


--  作者:有点蓝
--  发布时间:2020/8/3 14:38:00
--  
If e.Sender.SelectedPage.ButtonText.EndsWith(">>") = False
    e.Sender.SelectedPage.ButtonText = e.Sender.SelectedPage.ButtonText & "  >>"
End If

--  作者:2900819580
--  发布时间:2020/8/3 15:00:00
--  
以下是引用有点蓝在2020/8/3 14:38:00的发言:
If e.Sender.SelectedPage.ButtonText.EndsWith(">>") = False
    e.Sender.SelectedPage.ButtonText = e.Sender.SelectedPage.ButtonText & "  >>"
End If

代码写在MouseEnter,MouseHoverMouseEnter 中,每次都是我的主页的按钮变更。

MessageBox.Show(e.Sender.SelectedPage.ButtonText)

显示我的主页,不管鼠标移动那里都是我的主页!


--  作者:有点蓝
--  发布时间:2020/8/3 15:41:00
--  
鼠标移动不会选择和改变当前页面,点击后才能更改