以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]工具栏 鼠标移动如何切换图标?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=138357)

--  作者:蓝才文百
--  发布时间:2019/7/29 16:33:00
--  [求助]工具栏 鼠标移动如何切换图标?
在窗体上的工具栏,我鼠标移动过去,比如移动到NEW,原来的图标是new-1.ico,当鼠标移动到这里,图标变成new-2.ico,请教如何写代码?谢谢!
--  作者:有点蓝
--  发布时间:2019/7/29 17:01:00
--  
ItemMouseEnter事件
If e.StripItem.Text = "项目1" Then
    e.StripItem.Image = getimage("new-2.ico")
End If

ItemMouveLeave事件
If e.StripItem.Text = "项目1" Then
    e.StripItem.Image = getimage("new-1.ico")
End If



--  作者:蓝才文百
--  发布时间:2019/7/29 17:19:00
--  
可以。谢谢版主!