Question

VB一个窗体内有多个按钮，怎么简化代码？

一个窗体内有100多个按钮，近200个，要求每个按钮都是独立的，互不干扰，每个按钮的要求都是一样，按一下，背景色变红，再按一下恢复原来的颜色，奇数次为红色，偶数次为原来的颜色，请问能不能写一个简单的代码？不用在每一个按钮下面都写代码。

我写了一个，但是不起作用，只能是每一个按钮下面写代码。
Private Sub Command1_Click()
i = TabIndex + 1（TabIndex是按着顺序来的，和command的序号差一个）
a = a + 1
If a Mod 2 = 1 Then
Commandi.BackColor = RGB(255, 0, 0)
Else
Commandi.BackColor = &H8000000F
End If
End Sub
如果可以，再加一个小要求，按另外一个按钮，全部按钮的颜色恢复正常。

要快点。

Answer 1

如果你不用控件组，那是不可能的，你只能一个一个的把代码添加到每个command的事件下去
不过按键恢复全部，这个到可以
Private Sub Command1_Click()
Dim a As Control
For Each a In Me.Controls
Print a.Name
If Left(a.Name, 7) = "Command" Then'这里你要是看不懂我也就无语了
a.BackColor = vbRed
End If
Next
End Sub

追问

这个，真不懂。%>_<%

Answer 2

你可以研究下frm文件结构，自己写段代码把你的界面修改为楼上建议的格式，然后几行代码就可以全部搞定

追问

行，我试试，他都是txt格式存储的。
Begin VB.CommandButton Command1
Caption = "Command3"
Begin VB.CommandButton Command2
Caption = "Command2"
Begin VB.CommandButton Command1
Caption = "Command1"
发现点猫腻，按钮1是原来的，2是复制不是控件数组的额，3是复制1是控件数组的，可能就是上面一行不一样，要是的话，那就好改了

Answer 3

用控件数组好了,就是复制-粘贴的时候选是

追问

很不幸，当时刚好没有点击，每次都是点否，现在也不想修改界面了，太麻烦了，主要看看代码。

追答

你要实现的功能不超过10行代码,你非得要两千行?脑子不好,你可以考虑动态添加并排列,另外建议使用option控件数组,修改风格后可以变成推拉按扭

追问

那现在还怎么把这个不是控件数组的改为控件数组，能不能啊？

追答

能,全部删除了重新做很快的

追问

修改修改frm文件，看看是不是把第一行改成一样就行了
Begin VB.CommandButton Command1
Caption = "Command3"
Begin VB.CommandButton Command2
Caption = "Command2"
Begin VB.CommandButton Command1
Caption = "Command1"
发现点猫腻，按钮1是原来的，2是复制不是控件数组的额，3是复制1是控件数组的，可能就是上面一行不一样，要是的话，那就好改了

Answer 4

Private Sub Command1_Click(Index As Integer)
Commandi.BackColor = RGB(255, 0, 0)

End Sub

Private Sub Command2_Click(Index As Integer)
Commandi.BackColor = &H8000000F

End Sub

追问

不行啊，显示“过程声明与同名事件或过程的描述不匹配”

追答

Private Sub Command1_Click(Index As Integer)
Command1(Index).BackColor = RGB(255, 0, 0)

End Sub

Private Sub Command2_Click(Index As Integer)
Command2(Index).BackColor = &H8000000F

End Sub

Answer 5

100多个按钮，采用控件组。
实现方法，复制一个按钮，然后粘贴。内部实现让我再想想
Private Sub Command1_Click(Index As Integer)

End Sub

追问

关键是昨天晚上已经把按钮都做好了，190个，太麻烦了。复制粘贴时全部点了“否”，悲剧

追答

朋友，那如果以后要维护的话岂不是很麻烦？以后要维护什么，明明按钮出发的内容改一次就好，可是要改好多次了。
所以建议你重新写。

我有点眉目了，把点击次数记录到Caption属性当中，Caption的后两码用来记录点击次数。
要不我写好了，你先看一下吧，编程这东西全看兴趣

追问

caption不能改，上面的字我还要看，这个程序主要就是一个“记牌器”，谁把什么牌打完了我就点一下，就记住了，哈哈，所以caption上面有KQJ等字。我先琢磨琢磨吧frm文件改过来吧。没学过这个VB，不是很懂，全靠琢磨。

追答

搞定咯，图片也上传给你啦。具体效果除了按钮颜色交替变化之外，在text1内显示每个按钮点击的数量。
Public begin As String
Private Sub Command1_Click(Index As Integer)
Dim a1(0 To 5)

For i = 1 To Len(Text1.Text)
If Mid(Text1.Text, i, 1) = "," Then
s = s + 1
If s = Index + 1 Then
a1(Index) = Mid(Text1.Text, i - 1, 1) + 1
Text1.Text = Left(Text1.Text, i - 2) & a1(Index) & Right(Text1.Text, Len(Text1.Text) - i + 1)
End If

End If
Next

a = a1(Index)
If a Mod 2 = 1 Then
Command1(Index).BackColor = RGB(255, 0, 0)
Else
Command1(Index).BackColor = &H8000000F
End If

End Sub

Private Sub Command2_Click()
For i = 1 To Command1.Count
Command1(i - 1).BackColor = &H8000000F
Next
Text1.Text = begin
End Sub

Private Sub Form_Load()
For i = 1 To Command1.Count
Command1(i - 1).Caption = i
Text1.Text = Text1.Text & Command1(i - 1).Caption & " |0, "
If i Mod 15 Then Text1.Text = Text1.Text & Chr(10) & Chr(13)
Next
begin = Text1.Text
End Sub

追问

已经把所有的非控件改为控件了，现在好办了，但是我的vb有点问题，怎么弄都不变红。内如实现就不是很难了，上面的那位已经给了代码。

追答

按钮的 style属性先要改成1就会变红
搞定了，当然显示效果还可以改的更好。
下面的效果是会在text1框内显示出 按钮1名称-按的次数，按钮2名称-按的次数...
Public begin As String
Private Sub Command1_Click(Index As Integer)
Dim a1(0 To 5)

For i = 1 To Len(Text1.Text)
If Mid(Text1.Text, i, 1) = "," Then
s = s + 1
If s = Index + 1 Then
a1(Index) = Mid(Text1.Text, i - 1, 1) + 1
Text1.Text = Left(Text1.Text, i - 2) & a1(Index) & Right(Text1.Text, Len(Text1.Text) - i + 1)
End If

End If
Next

a = a1(Index)
If a Mod 2 = 1 Then
Command1(Index).BackColor = RGB(255, 0, 0)
Else
Command1(Index).BackColor = &H8000000F
End If

End Sub

Private Sub Command2_Click()
For i = 1 To Command1.Count
Command1(i - 1).BackColor = &H8000000F
Next
Text1.Text = begin
End Sub

Private Sub Form_Load()
For i = 1 To Command1.Count
Command1(i - 1).Caption = i
Text1.Text = Text1.Text & Command1(i - 1).Caption & " -0, "
If i Mod 15 Then Text1.Text = Text1.Text & Chr(10) & Chr(13)
Next
begin = Text1.Text
End Sub