Foxtable(狐表)用户栏目专家坐堂 → 任务栏图标问题


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

主题:任务栏图标问题

帅哥哟,离线,有人找我吗?
lhlh
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:211 积分:1997 威望:0 精华:0 注册:2014/11/11 10:23:00
任务栏图标问题  发帖心情 Post By:2016/2/22 23:21:00 [只看该作者]

任务栏增加了图标,想做出点击另一行时,之前行的图标复原为默认图标,怎么写?

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目012.zip


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
lhlh
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:211 积分:1997 威望:0 精华:0 注册:2014/11/11 10:23:00
  发帖心情 Post By:2016/2/23 13:28:00 [只看该作者]

谢谢!


 回到顶部