我在图片上用了鼠标移动事件,但是那些标签就闪烁不停,希望高手帮我看看,最好是能改一下,然后说说是什么原因造成的。谢谢!作者: sgrshh29 时间: 2005-5-28 11:45
请你这样试试,会不会好些?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