Question

在VB中怎样生成动态控件数组

Answer 1

控件数组可以在设计阶段通过相同的名称属性值来建立，步骤如下：
a.在窗体上画出作为数组元素的各个控件；
b.单击包括到数组中的某个控件，将其激活；
c.在属性窗口选择名称属性，在设置框中键入控件的名称；
d.对每个要加入数组中的控件重复b,c步，设置相同的名称属性值，且在弹出的对话框中回答“是”，确立建立控件数组。

控件数组还可以在过程中用代码动态的生成，使用Load和UnLoad方法，例子如下：
在窗体上建立两个命令按钮cmd1和cmd2，Caption属性分别设为Load和Unload；再建立一个包含两个单击按钮的控件数组，名称为Opt。
编写事件过程如下：
Option Explict
Dim maxidx as Integer
Private sub cmd1_click()
If maxidx = 0 Then maxidx = 1
maxidx = maxidx + 1
If maxidx > 4 Then
maxidx = maxidx - 1
Exit Sub
End If
Load Opt(maxidx)
Opt(maxidx).Top = Opt(maxdix-1).Top + 450
Opt(maxidx).Visible = True
End Sub

Private Sub cmd2_Click()
If maxidx < 2 Then Exit Sub
Unload Opt(maxidx)
maxidx = maxidx - 1
End Sub

Private Sub opt_Click(Index As Integer)
Select Case Index
Case 0
Print "Zero";
Case 1
Print "One";
Case 2
Print "Two";
Case 3
Print "Three";
Case 4
Print "Four";
End Select
End Sub