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

ycxchen · 发表于 2010-10-27 20:59:27

本帖最后由 ycxchen 于 2010-10-27 21:14 编辑

我想当鼠标到达标签时标签背景颜色为紫色，当鼠标离开时还原为原来的颜色，于是，我在标签的“鼠标移动”事件中加入如下代码，但不能够达到目的，如何修改？
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

li08hua · 发表于 2010-11-2 05:12:13

十段老师的用法也倒是一种思路，但我觉得还不及在主体的鼠标移动中写入释放标签为透明更好些！

181113 · 发表于 2010-11-1 20:45:52

都是高手

huangqinyong · 发表于 2010-11-1 11:27:44

回复 ycxchen 的帖子

供LZ参考

ycxchen · 发表于 2010-10-29 08:23:55

12楼的问题有办法解决吗？

ycxchen · 发表于 2010-10-28 20:38:21

本帖最后由 ycxchen 于 2010-10-28 20:39 编辑

行了，在move([label0 ])前加上“=”便可。如果窗体有8个标签，那么，在窗体的主体复位颜色的函数如何写？要不要用循环语句？盼指教！

ycxchen · 发表于 2010-10-28 20:34:16

我建了一个函数，如下；
Public Function Move(a As Label)
a.BackStyle = 1
a.BackColor = 16751052
End Function
在“数据录入”标签的单击事件中写下如下代码：
move([label0 ])
运行时出错，提示找不到宏，请问，代码错在什么地方？

ycxchen · 发表于 2010-10-28 20:11:36

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

li08hua · 发表于 2010-10-28 18:40:24

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

ycxchen · 发表于 2010-10-28 15:48:10

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

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[窗体] 标签背景颜色变换代码问题请教

本帖子中包含更多资源

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)