7,763
社区成员
发帖
与我相关
我的任务
分享请教控件组操作问题
在一窗体上有n个按钮的Command1(n)控件组，我要实现下述功能，当随机选中一个按钮chick时，其背景颜色发生变化。下面代码是错的，请教高手应怎样写？
Private Sub Command1_Click(Index As Integer)
If Command1(Index).BackColor = &H8000000F Then
Command1(Index).BackColor = &H8000000D
Else
Command1(Index).BackColor = &H8000000F
End If
End Sub
Private Sub Command1_Click(Index As Integer)
If Command1(Index).BackColor = &H8000000F Then
Command1(Index).BackColor = &H8000000D
Else
Command1(Index).BackColor = &H8000000F
End If
End Sub
...全文
请发表友善的回复…
发表回复
northwolves 2004-05-06
- 打赏
- 举报
先将Command1(n)控件组的STYLE 属性设为1
Private Sub Command1_Click(Index As Integer)
Command1(Index).BackColor = &H8000000D
End Sub
Private Sub Command1_LostFocus(Index As Integer)
Command1(Index).BackColor = &H8000000F
End Sub
