Question

求vb控件背景色改变代码

vb中有同样的控件若干个，当鼠标点击到某一个控件时，这个控件的背景颜色改变，鼠标点击另一个控件时，当前的控件背景色改变，原先的控件背景色复原，也就是只显示一个当前点击的控件颜色。请帮忙修改我的代码：
Private Sub Picture2_Click(Index As Integer)
i = Index
Picture2(i).BackColor = &H80000003
Picture2(i).Cls
If i + 1 < 10 Then
Picture2(i).Print " " & CStr(i + 1)
Else
Picture2(i).Print CStr(i + 1)
End If
Text1.Text = s(i)
End Sub

Answer 1

如果不知道原先是那个控件变了底色（预先设了变量知道的话可以直接处理），可以用笨办法，点击新控件时先用循环把所有控件组底色设为原始，再把点击的那个控件变色，

追问

您好！不能在我的代码里改动吗？

追答

应该可以吧，
在I=INDEX前加上一FOR ,,,NEXT..循环（如图示就是60个循环）和赋值语句Picture2(i).BackColor = &H80000000（此值请改为底色白色代码，不记得是不是这个了）就可以啊。

追问

请帮忙弄成完整的语句吧，我在I=INDEX前加上一FOR ,,,NEXT..循环总出错。

追答

Private Sub Picture2_Click(Index As Integer)
dim j as integer
for j=1 to 60
Picture2(j).BackColor = &H80000000 '请改成白色的值
next j
i = Index
Picture2(i).BackColor = &H80000003
Picture2(i).Cls
If i + 1 < 10 Then
Picture2(i).Print " " & CStr(i + 1)
Else
Picture2(i).Print CStr(i + 1)
End If
Text1.Text = s(i)
End Sub

追问

谢谢！您给的代码管用，可就是将每个控件的数字遮挡住了，不知道能否处理？

追答

你这些原来是数字是图片PICTURE呢还是控件数组的数字标记？你原来是怎么赋值的？在NEXT J前面再赋值一次应该就可以了。