- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 任务栏图标问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81253)
-- 发布时间：2016/2/22 23:21:00
-- 任务栏图标问题
任务栏增加了图标，想做出点击另一行时，之前行的图标复原为默认图标，怎么写？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目012.zip |
-- 发布时间：2016/2/23 0:36:00
--
Dim el As String = e.Link.Name
Dim tl As WinForm.TopicLink
tl = Forms("窗口2").Controls("TopicBar1").Pages(0).Links(el)
tl.ImageFile = "tb16_101.png"
If vars("pclick") IsNot Nothing Then
vars("pclick").ImageFile = "xtb16_03.png"
End If
vars("pclick") = e.Link
-- 发布时间：2016/2/23 13:28:00
--
谢谢！