Question

VB.鼠标移进移出的问题。

想要达到这样的效果，即有数组 label1，5个，当鼠标移进label时，label1背景颜色改变为蓝色，移出时恢复原来颜色。当鼠标点击label时，label颜色为红色，鼠标移动到其他label时仍变为蓝色，点击变为红色的除外。例如微博中选项的效果。如图，求代码。谢谢

Answer 1

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 4
Label1(i).ForeColor = &H80000008
Next
End Sub

Private Sub Label1_Click(Index As Integer)
Label1(Index).ForeColor = &HFF&
End Sub

Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
For i = 0 To 4
Label1(i).ForeColor = IIf(Label1(i).ForeColor <> &HFF&, &H80000008, &HFF&)
Next
Label1(Index).ForeColor = IIf(Label1(Index).ForeColor <> &HFF&, &H80000002, &HFF&)
End Sub

追问

这代码 ，点击之后，鼠标回去没办法恢复原来颜色啊。当点击全部的时候 全部为红色了。我要的是点击的那个除外，其他移动的都变。

追答

刚才代码是点击过了的就是红色；你是说只有点击时才红，移开依然黑色？
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 4
Label1(i).ForeColor = &H80000008
Next
End Sub

Private Sub Label1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1(Index).ForeColor = &HFF&
End Sub

Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
For i = 0 To 4
Label1(i).ForeColor = &H80000008 'IIf(Label1(i).ForeColor &HFF&, &H80000008, &HFF&)
Next
Label1(Index).ForeColor = IIf(Label1(Index).ForeColor &HFF&, &H80000002, &HFF&)
End Sub

追问

移动是蓝色啊 跟微博那个选项一样的效果，我上了图那个！

追答

移到对移出是什么颜色？我补发的代码在就是用黑色？只有移进才蓝色,，点击时红色，移出又黑色(原色)，讲的都是字体颜色；

追问

上面的代码点击第一个为红色 点击第2个的时候第1和第2都是红色，我想要点击第2的时候只要第2为红色。

追答

请将最后Label1_MouseMove事件的代码换成下面，
Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
For i = 0 To 4
Label1(i).ForeColor = &H80000008 'IIf(Label1(i).ForeColor &HFF&, &H80000008, &HFF&)
Next
Label1(Index).ForeColor = IIf(Label1(Index).ForeColor &HFF&, &H80000002, &HFF&)
End Sub

Answer 2

vb中label不能直接加载图片,你可以用VB.Net 来做就简单多了,或者换别的控件,移进移出好实现,
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = vbRed
End Sub
移出可以Form_MouseMove,点击加个变量表示状态,没完全实现就不贴代码了,当顶下共同学习了

Answer 3

iisheng的回答百分百地干净利落,在Form_MouseMove事件里重复一遍Form_Load事件的代码即可

追问

重复之后 之前点击为红色的那个label也变为蓝色了！！但我要的是点击的那个红色不变，当点击另一个label的时候，原先那个红色变为原始颜色，鼠标移动到还是蓝色的效果。

追答

在Label1_MouseDown事件里记录index为静态变量,然后在Form_MouseMove事件里排除即可

追问

静态变量不懂啊亲，求代码啊亲

追答

iisheng正在回答...

追问

还是没解决啊 我看你思路不同啊。你就别偷懒，给点代码学习下嘛亲

追答

Dim i%, n% '全局变量,也称模块级静态变量,供任意过程调用
Private Sub Form_Load()
For i = 0 To 4
Label1(i).ForeColor = &H80000008
Next
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
For i = 0 To 4
If i n Then Label1(i).ForeColor = &H80000008 '排除
Next
End Sub
Private Sub Label1_Click(Index As Integer)
Label1(Index).ForeColor = &HFF&
n = Index '记录index
End Sub
Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
For i = 0 To 4
Label1(i).ForeColor = IIf(Label1(i).ForeColor &HFF&, &H80000008, &HFF&)
Next
Label1(Index).ForeColor = IIf(Label1(Index).ForeColor &HFF&, &H80000002, &HFF&)
End Sub

Answer 4

简单