以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何为TopicBar导航栏增加选中效果?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=49763)

--  作者:ibehujun
--  发布时间:2014/4/23 21:07:00
--  如何为TopicBar导航栏增加选中效果?

请教各位高手,

 

如何为TopicBar导航栏增加选中效果?例如,选择周计划,能将周计划高亮显示,或者红色字区分一下就好了

以前见一个高手在右边加了“→”,不知道怎么实现的?

 

 


图片点击可在新窗口打开查看此主题相关图片如下:snip20140423_6.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2014-4-23 21:08:23编辑过]

--  作者:有点甜
--  发布时间:2014/4/23 21:21:00
--  

 查了一下,不能设置背景颜色

 

For Each page As WinForm.TopicPage In e.Sender.Pages
    For Each link As Object In page.Links
       link.text = link.Text.Replace("->", "")
       link.Imagefile = Nothing
    Next
Next
e.Link.Text += "->"
e.Link.ImageFile = getImage("d:\\xxx.ico")

[此贴子已经被作者于2014-4-23 21:22:37编辑过]

--  作者:ibehujun
--  发布时间:2014/4/23 21:43:00
--  

在甜兄的代码上精简了一下,正是需要的效果。

 

For Each page As WinForm.TopicPage In e.Sender.Pages
    For Each link As Object In page.Links
       link.text = link.Text.Replace("★", "")
    Next
Next
e.Link.Text += "★"

 

好多新知识点:

 

1. e.Sender (在控件的事件代码中,如果要引用控件本身,也应该使用e参数:e.Sender,如果采用控件名称来引用,那么一旦需要修改控件名称,就必须同步修改代码

 

2. .Replace(查找给定的子字符串,并用另一个子字符替换掉找到的子字符串。Replace(OldValue, NewValue)

 

3. +=,这个用法怎么也搜不到?请问怎么理解啊


--  作者:有点甜
--  发布时间:2014/4/23 22:01:00
--  

 第三点。str += "->"  是这样的简写  str = str & "->"


--  作者:ibehujun
--  发布时间:2014/4/23 22:05:00
--  
顶甜兄,多谢。 向甜兄学习,小狐狸继续潜水修炼去了