UC知道求教VB高手 关于Command的问题
来源：百度知道 编辑：UC知道 时间：2024/05/30 04:48:16
Private Sub Command3_Click() '清除按钮,使成为黄色
Dim i As Integer
For i = 1 To 56
If Command" & i & ".BackColor = vbGreen Then
Command" & i & ".BackColor = vbYellow
End If
Next
End Sub
这样肯定不对，请问高手怎么能让56个Command控件用i循环表示出来
Dim i As Integer
For i = 1 To 56
If Command" & i & ".BackColor = vbGreen Then
Command" & i & ".BackColor = vbYellow
End If
Next
End Sub
这样肯定不对，请问高手怎么能让56个Command控件用i循环表示出来
Private Sub Command3_Click() '清除按钮,使成为黄色
Dim i As Integer
For i = 1 To 56
If Controls("Command" & i).BackColor = vbGreen Then
Controls("Command" & i).BackColor = vbYellow
End If
Next
End Sub
不过好像改按钮背景色要把Style属性设为1，不然看不到效果。
covert("command" & i) 后面怎么写忘了 你自己看看参数吧
反正就是把字符串转换成控件类型
选中所有command,修改名字,就变成同意的名字了
然后就可以用command(i)来访问(属性里有个index就是序号)
可以到http://article.cnwhy.cn/这个网站来了解下了,应该可以查到答案