Question

VB如何让控件的边框闪动

通过移动鼠标到控件上，取得控件的句柄。＜功能已实现＞
问，如何让鼠标移到控件上时，让鼠标所指的控件边框闪动?

Answer 1

用透明窗体在控件上的位置上画一个闪动的Shape。透明窗体的鼠标动作设置穿透。
这样看起来就像是控件边框闪动。

Answer 2

效果简单点的话不用那么麻烦，除了没有 borderstyle 属性的按钮什么的不能闪，其他的应该都可以通过 timer 闪，在窗体上放置个计时器 timer，设置interval 为100，再放置个 text1 ，最好将其 appearance 设置为 0 -flat ，这样闪起来不至于动作太大，然后利用 text 的 mousemove 事件启动计时器闪，利用 form 的 mousemove 事件停止计时器即可。

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If Text1.BorderStyle = 1 Then
 Text1.BorderStyle = 0
Else
 Text1.BorderStyle = 1
End If
End Sub

追问

是对桌面上的任意控件或是窗体，不是指定窗体的指定控件，是否有更好的方法？

追答

这得用 API 了，我记得有个 SetWindowLong 函数可以设置窗口风格（包括边框特性）你可以试一试，不过我没在vb下试过闪动别的程序的控件边框，故无法给出具体实例。