Foxtable(狐表)用户栏目专家坐堂 → [求助]哪位大神能做这样的导航出来分享吗?


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

主题:[求助]哪位大神能做这样的导航出来分享吗?

帅哥,在线噢!
y2287958
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4759 积分:34603 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By: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) & "ㄍ"

 回到顶部