VB 中如何判断命令按钮控件数组是否被单击

Question

如题所述

Answer 1

这个问题比较容易解决。控件数组中辨别控件的唯一属性是index属性，问题的入手点也就在这里。
比如：
private sub command1_click(index as integer)
print command1(index).caption
end sub
这时你单击了控件数组中的某一个按钮，窗体上就会打出这个按钮的标题。

Answer 2

针对你的问题，给你编了一个实例，你自己体会吧！

'在窗体上放一个command1,把它的index属性改为0，其它不用设置了，由程序自己设置。然后把下面的代码放到代码窗口中运行就可以了。

Private Sub Command1_Click(Index As Integer)
Form1.Cls
Print "您按下的是按钮" & Index + 1
End Sub

Private Sub Form_Load()
Dim I As Byte
For I = 1 To 4
Load Command1(I)
Next
For I = 0 To 4
Command1(I).Caption = "按钮" & I + 1
Command1(I).Height = 500
Command1(I).Width = (Form1.ScaleWidth - 6 * 100) / 5
Command1(I).Top = Form1.ScaleHeight - 700
Command1(I).Left = 100 + I * (100 + Command1(I).Width)
Command1(I).Visible = True
Next
End Sub

已经运行过了。

Answer 3

思路：
1.先定义一个数组str()，用来保存按钮控件的单击状态。
2.编写按钮控件的单击事件时，设置str(i)数组的值为真
3.检索数组str()，检查是否有值为真的数,有则是被单击过

Answer 4

给你个实例 你自己做一下 就明白了
在窗体中创建按钮控件数组，多少个由你定；
代码如下：
Private Sub Command1_Click(Index As Integer)
Dim i As Integer
i = Index
Command1(i).Caption = "这个按钮控件被单击过"
End Sub