如题所述
控件数组可以在设计阶段通过相同的名称属性值来建立,步骤如下:
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
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
温馨提示:答案为网友推荐,仅供参考