为什么窗体上的标签闪烁不停？

zhengsheng

我在图片上用了鼠标移动事件，但是那些标签就闪烁不停，希望高手帮我看看，最好是能改一下，然后说说是什么原因造成的。谢谢！

sgrshh29

请你这样试试,会不会好些?Private Sub 货物采购_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Me.货物采购.SpecialEffect = 0 Then Me.货物采购.SpecialEffect = 1

If Me.货物采购.ForeColor = 0 Then Me.货物采购.ForeColor = 16711680

End Sub

Private Sub 主体_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Me.货物采购.SpecialEffect = 1 Then Me.货物采购.SpecialEffect = 0

If Me.货物采购.ForeColor = 16711680 Then Me.货物采购.ForeColor = 0

End Sub

zhengsheng

谢谢！我查看了以前的帖子，发现问题跟你说的一模一样，首先要进行判断。太谢谢你了。

shenlan

我也跟着学了一手