VB中，如何改变控件的颜色？

来源：百度知道 编辑：UC知道 时间：2024/06/21 18:52:40
现在有一名为Text1的文本框和一个名为Label1的标签。
现在我希望当鼠标移到Text1的时候，Label1的字体颜色变成紫色，当鼠标从Text1上移走时，Label1的颜色变回黑色。

谢谢！

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &H0&
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &HFF00FF
End Sub

移到text1用MouseMove事件使label1颜色变紫，鼠标离开label1也就是到了窗体上只需在窗体中加入MouseMove事件即可。试试看保证可行，而且是最简单的语句。

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = RGB(0, 0, 0)
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = RGB(27, 18, 221)
End Sub
'紫色RGB值不清楚，随便弄个接近的

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = RGB(200, 200, 200)
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = RGB(200,