单县信息网:用vb实现了鼠标经过控件改变字体颜色，但离开后无法恢复色彩，请问如何实现呢。谢谢！

来源：百度文库 编辑：神马品牌网 时间：2024/04/28 05:17:05
Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbRed
用vb实现了鼠标经过控件，改变了字体颜色，但鼠标离开后字体颜色不能恢复原来的色彩，问鼠标离开后如何使颜色恢复，谢谢！

先要取控件的前景色为一个变量
n=Label1.ForeColor
然后是鼠标经过，同你自己写的那段
然后是鼠标离开，再把Label1.ForeColor = n
把原先取的变量再赋值回去

这个程序要用到API函数啊,就是这个东东getcursorpos,得到当前的鼠标的坐标,用计时器不停的检测鼠标的坐标,如果鼠标的坐标在控件的范围内,就把颜色变了,当移出了控件所在的范围,再把颜色变回来.

你可以在窗体的MouseMove事件中改变label标签的颜色
呵呵 这是一个笨方法

用vb实现了鼠标经过控件改变字体颜色，但离开后无法恢复色彩，请问如何实现呢。谢谢！ 我想用vb实现鼠标经过label控件使控件上的字体变色，怎么实现呢，谢谢！ 我想用vb实现鼠标经过label控件使鼠标变成手的形状，怎么实现呢，谢谢！ 怎样实现鼠标经过改变表格背景图像而不是颜色？？ 用java script编写函数实现鼠标移动字体颜色改变 DW怎样实现当鼠标经过表格时改变表格的背景颜色? Dreamweaver 里怎样实现当鼠标经过表格时改变表格的背景颜色? 怎样用VB实现程序运行阶段用鼠标调节控件大小 如何鼠标经过改变表格行的背景颜色 VB里，如何实现用鼠标可以随意拖动窗体里的按键控件（好象编程时候设计控件位置一样）