Question

vb中如何让控件有一个通用的名字如form1.caption = me.caption

比如在vb中form1.caption 或form1.BackColor 可以写成Me.BackColor及Me.Caption
那么像Label1.Caption和command1.Caption 可不可以以写成？？.Caption 呢？

Answer 1

可以利用Controls集合：

On Error Resume Next
Dim c As Control
For Each c In Me.Controls
Print c.Caption
Next

要注意，有些控件是没有Caption属性的，所以上面代码用了On Error来忽略这种错误

追问

追答

要想实现你的目的，唯一的办法是把你的上百个按钮做成控件数组，这样问题就变得非常非常简单，只需用一个过程就可以解决所有上百个按钮的点击事件：

Private Sub Command1_Click(Index As Integer)
Command1(Index).Caption = "人"
End Sub

如果不是控件数组，那就基本上没有办法解决，因为VB的过程是无法获取自身名称的。

追问

请问，什么是“控件数组”，还有这么做“控件数组”，谢谢。

追答

你在窗体上先放入一个按钮，比如Command1，然后用鼠标点一下Command1，按Ctrl+C，再按Ctrl+V，这时会问你要不要创建控件数组，点“是”即可，然后继续多次按Ctrl+V就可以生成一组与Command1完全一样（只有Index属性不一样）的按钮（要注意用鼠标把它们分别拖到不同的位置，不然它们会堆在一起）。
如果要把已有的控件变为控件数组，也很简单，把它们的名称（即Name属性）改为相同即可，这时VB会自动把它们的Index属性设为不同的数字（你也可以手工修改这些数字）。

控件数组是一组具有相同名称和类型的控件的集合，通过各自的编号（下标，即Index属性）来识别，并且可以共享事件。你可以通过百度百科看到更多关于控件数组的信息。