标签背景颜色变换代码问题请教

ycxchen

我想当鼠标到达标签时标签背景颜色为紫色，当鼠标离开时还原为原来的颜色，于是，我在标签的“鼠标移动”事件中加入如下代码，但不能够达到目的，如何修改？
Private Sub Label0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label0.BackStyle = 1
Me.Label0.BackColor = 16751052
End Sub
Private Sub Label0_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label0.BackStyle = 0
End Sub

todaynew

没有试过。是否可考虑获得焦点事件和失去焦点事件来处理此问题呢？

ycxchen

标签没有获得焦点事件和失去焦点事件，如何办？

li08hua

你可以用函数：MouseMove和MouseUp来处理，也就是鼠标的移动和离开事件！

ycxchen

我在1楼已经使用了MouseMove和MouseUp来处理了，不行！看过一个例子，要一大堆代码的，头疼。
小问题，大难度？请高手看看有没有好的办法，盼大家指教！

tmtony

在窗体的主体上加 鼠标移动事件 复位颜色
Private Sub 主体_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label0.BackStyle = 0

End Sub

ycxchen

谢谢站长的热心指教！你的办法不错。
可是，在主控制窗口，很多时候都是窗口左边有“录入”、“查询”、“打印”等5--8个功能标签或按钮，对应地右边窗口为页或子窗口，有这么多的标签或按钮，如果均按1楼+6楼的办法解决，代码会不会不够简洁？请问，有其它更好的办法吗？

ycxchen

7楼的问题用函数能实现吗？

li08hua

如果在主体中因控件太多无法实现背景色返回，我认为你最好再增加一个透明标签，在两个标签的鼠标移动Visible 属性中设置可见与否，差不多四句就可以，不知如何？

ycxchen

谢谢9楼的指教！你的思路也有一定的参考价值，但我认为不行，增加一个透明标签会增加多一个标签的代码。