我这个问题怎么解决啊？

[tianwaifeixian11]

我做了一排的label，想实现颜色的变化，就是当我把鼠标放在label1上，为颜色2。其他的label的颜色为1，同样我放在label2上，起颜色变为2，其他的label颜色为1。这个问题烦了我好几天了，不知道怎么解决，有人能教教我吗？

[tianwaifeixian11]

在线等，等到5点钟为止！

[easydone]

很难吗？利用label的MouseMove事件实现即可。
’假设有label1－label3三个标签控件。
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = RGB(0, 255, 0)
Label2.BackColor = RGB(255, 0, 0)
Label3.BackColor = RGB(255, 0, 0)
End Sub


Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = RGB(255, 0, 0)
Label2.BackColor = RGB(0, 255, 0)
Label3.BackColor = RGB(255, 0, 0)
End Sub

Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = RGB(255, 0, 0)
Label2.BackColor = RGB(255, 0, 0)
Label3.BackColor = RGB(0, 255, 0)
End Sub

[CrazyHosptial]

我和你一样也是VB的菜鸟....给你个最麻烦,但也是最直接的方法吧.
这里假设:绿色(&HFF00&)为你说的"1",黄色(&HFFFF&)为你说的"2",我只添加了5个label.其余的你效仿吧.....你可以新建一个工程后,添加5个label和1个按钮.然后把以下代码放进去.运行一下试一试....
Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
Label1.BackColor = &HFFFF&
Label2.BackColor = &HFFFF&
Label3.BackColor = &HFFFF&
Label4.BackColor = &HFFFF&
Label5.BackColor = &HFFFF&
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = &HFFFF&
Label2.BackColor = &HFFFF&
Label3.BackColor = &HFFFF&
Label4.BackColor = &HFFFF&
Label5.BackColor = &HFFFF&
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = &HFF00&
Label2.BackColor = &HFFFF&
Label3.BackColor = &HFFFF&
Label4.BackColor = &HFFFF&
Label5.BackColor = &HFFFF&
End Sub


Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.BackColor = &HFF00&
Label1.BackColor = &HFFFF&
Label3.BackColor = &HFFFF&
Label4.BackColor = &HFFFF&
Label5.BackColor = &HFFFF&
End Sub



Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label3.BackColor = &HFF00&
Label1.BackColor = &HFFFF&
Label2.BackColor = &HFFFF&
Label4.BackColor = &HFFFF&
Label5.BackColor = &HFFFF&
End Sub

Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.BackColor = &HFF00&
Label1.BackColor = &HFFFF&
Label2.BackColor = &HFFFF&
Label3.BackColor = &HFFFF&
Label4.BackColor = &HFFFF&
End Sub



Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label5.BackColor = &HFF00&
Label1.BackColor = &HFFFF&
Label2.BackColor = &HFFFF&
Label3.BackColor = &HFFFF&
Label4.BackColor = &HFFFF&
End Sub