用这种方法添加的控件仅仅共享 Name 属性和控件类型；其它属性与最初绘制控件时的值相同。
要通过复制现存控件添加控件数组元素：
1. 绘制控件数组中的控件。
2. 当控件获得焦点时，选择“编辑”菜单中的“复制”命令。
3. 在“编辑”菜单中，选择“粘贴”命令。Visual Basic 将显示一个对话框询问是否确认创建控件数组。选择“确定”确认操 作。指定给控件的索引值为 1。绘制的第一个控件具有索引值 0。
每个新数组元素的索引值与其添加到控件数组中的次序相同。这样添加控件时，大多数可视属性，例如高度、宽度和颜色，将从数组中第一个控件复制到新控件中。
运行时添加控件数组
在运行时，可用 Load 和 Unload 语句添加和删除控件数组中的控件，然而，添加的控件必须是现有控件数组的元素。必须在设计时创建一个（在大多数情况下）Index 属性为 0 的控件，然后在运行时使用如下语法：
加载控件数组的新元素时，大多数属性设置值将由数组中具有最小下标的现有元素复制——本例中是索引值为 0 的元素。因为不会自动把 Visible、Index 和 TabIndex 属性设置值复制到控件数组的新元素中，所以，为了使新添加的控件可见，必须将其 Visible 属性设置为 True。
注意 试图对数组中已存在的索引值使用 Load 语句时，Visual Basic 将生成一个错误。
重点 可用 Unload 语句删除所有由 Load 语句创建的控件，然而，Unload无法删除设计时创建的控件，无论它们是否是控件数组的一部分。
控件方案：在控件数组中添加和删除控件
如何在运行时添加和删除控件，控件数组示例对此作了演示，这里，控件是选项按钮。根据这个示例，用户可以添加选项按钮，改变图片框背景颜色。
如图7.3 所示，启动窗体，然后在上面绘制一个图片框、一个标签、两个选项按钮和三个命令按钮。
控件数组应用程序的事件
接着，必须添加选项按钮和命令按钮的事件过程。添加窗体声明后启动应用程序：
Dim MaxId As Integer
所有选项按钮共享 Click 事件过程：
Private Sub optButton_Click (Index As Integer)
picDisplay.BackColor = QBColor(Index 1)
End Sub
通过“添加”命令按钮的 Click 事件过程添加新的选项按钮。本例中，在执行 Load 语句前，代码将检查确认加载的选项按钮数不超过十个。加载控件之后，必须将其 Visible 属性设置为 True。
Private Sub cmdAdd_Click ()
If MaxId = 0 Then MaxId = 1 '设置全部选项按钮。
If MaxId > 8 Then Exit Sub '只允许十个按钮。
MaxId = MaxId 1 '按钮计数递增。
Load optButton(MaxId) '创建新按钮。
optButton(0).SetFocus '重置按钮选项。
'将新按钮放置在上一个按钮下方。
optButton(MaxId).Top = optButton(MaxId - 1)._
Top 400
optButton(MaxId).Visible = True '显示新按钮。
optButton(MaxId).Caption = "Option" & MaxId 1
End Sub
通过“删除”命令按钮的 Click 事件过程删除选项按钮：
Private Sub cmdDelete_Click ()
If MaxId <= 1 Then Exit Sub '保留最初的两个按钮。
Unload optButton(MaxId) '删除最后的按钮。
MaxId = MaxId - 1 '按钮计数递减。
optButton(0).SetFocus '重置按钮选项。
End Sub
通过“关闭”按钮的 Click 事件过程结束应用程序：
Private Sub cmdClose_Click ()
Unload Me
End Sub
上一篇： Visual Basic 控件的使用
下一篇： Visual Basic 控件的使用二
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
