- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]哪位大神能做这样的导航出来分享吗？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127755)
-- 发布时间：2018/11/21 13:40:00
-- [求助]哪位大神能做这样的导航出来分享吗？
如题
此主题相关图片如下：12.jpg
[此贴子已经被作者于2018/11/21 13:44:01编辑过]
-- 发布时间：2018/11/21 14:51:00
--
比如
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=89472&skin=0
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=96838
-- 发布时间：2018/11/21 14:55:00
--
SelectedIndexChanged事件
Dim lms As String = "页面1|页面2|页面3"
Dim lst As new List(of String)
lst.AddRange(lms.split("|"))
Dim s As String
For Each ls As String In lst
s = e.sender.NavPages(ls).ButtonText
e.sender.NavPages(ls).ButtonText = left(s,len(s)-1) & "︾"
Next
s = e.sender.SelectedPage.ButtonText
e.sender.SelectedPage.ButtonText = left(s,len(s)-1) & "ㄍ"