主题：[求助]关于按钮闪烁的问题

按钮闪烁可以用是否可见来实现，但该方法存在一问题，有时单击时，该按钮处于不可见状态。

我想用是否显示按钮图标来实现，请教大家，如何用代码实现？

问题出在：If xx.Image = GetImage("1.Ico") Then

如何判断按钮图标名称？

为按钮的 basecontrol.tag 储存一个值来保存当前图标文件名 用作判断

Bin老师，能否详细一点？谢谢

If xx.ImageFile = ProjectPath & "1.Ico" Then

谢谢甜老师

 

 If xx.ImageFile = ProjectPath & "bell12.png" Then
        xx.Image = GetImage("bell12.png")
    Else
        xx.Image = Nothing
    End If

 

甜老师，以上代码还是未达到目的哟

 你做个例子发上来吧。为什么一定要用图标，用背景颜色不行？

换一个简单的

 

如果是 Standard

 

窗口计时器代码

 

Dim but As WinForm.Button = e.Form.Controls("Button1")
If but.VisualStyle = 3 Then
    but.VisualStyle = 4
    Return
Else
    but.VisualStyle  = 3
End  If

 

如果不是  Standard

 

就设背景颜色

AfterLoad

Dim but As WinForm.Button = e.Form.Controls("Button1")
but.BaseControl.Tag = 1

 

TimerTick

Dim but As WinForm.Button = e.Form.Controls("Button1")
If but.BaseControl.Tag = 1 Then   
    but.Image = GetImage("002.ico")
    but.BaseControl.Tag = 2
Else  
    but.Image = GetImage("001.ico")
    but.BaseControl.Tag = 1
End If

谢谢，用lsy老师的方面解决了