08数组及记录.pptVIP

形状控件数组 Private Sub Form_Click() FontSize = 12 CurrentX = 350 Print 0; For i = 1 To 5 Shape1(i).Left = Shape1(i - 1).Left + 1050 Shape1(i).Shape = i Shape1(i).Visible = True Shape1(i).FillStyle = i + 1 CurrentX = CurrentX + 750 Print i; Next i End Sub Load方法添加数组元素 在窗体上建立按钮Command1，将index属性改为0. Dim a Private Sub Form_Load() a = 1 End Sub Private Sub Form_Click() Load Command1(a) Command1(a).Visible = True Command1(a).Left = Command1(0).Left Command1(a).Top = Command1(a - 1).Top + 900 a = a + 1 End Sub 2007-12-5 河北大学管理学院 * 测试Array函数 Option Base 1 ‘窗体层声明 Private Sub Form_Click() MyWeek = Array(Mon, Tue, Wed, Thu, Fri, Sat, Sun) myday2 = MyWeek(2) myday3 = MyWeek(4) ‘ 数组元素赋值给变量 Print myday2, myday3 Dim aaa As Variant aaa = Array(1, 2, 3, 4, 5, 6) For i = 1 To 6 Print aaa(i); Next i End Sub 2007-12-5 河北大学管理学院 * 8.5　控件数组 VB中，不仅对于整型，字符串型这类基本数据可以建立数组，控件也可以建立数组。 一、基本概念 控件数组由一组相同类型的控件组成，这些控件共用一个相同的控件名字，具有同样的属性设置。 数组中的每个控件都有唯一的索引号Index （只读属性），即下标，所有元素的Name属性必须相同。 因此，同一数组中的各个控件共享同样的事件过程，通过返回的下标值区分控件数组中的各个元素。 2007-12-5 河北大学管理学院 * 三个命令按钮的控件数组 例：在窗体上建立三个命令按钮的控件数组，Name为Command1， Index属性值分别为0，1，2，建立如下事件过程： Private Sub Command1_Click(Index As Integer) If Index = 0 Then Command1(0).Caption= 单击第一个命令按钮 ElseIf Index = 1 Then Command1(1).Caption= 单击第二个命令按钮 Else Command1(2).Caption= 单击第二个命令按钮 End If End Sub Command1(Index).Caption = 单击了这个按钮 2007-12-5 河北大学管理学院 * 建立控件数组 （一）在设计时建立控件数组： 方法1 ：先画出一个控件，然后对其执行“复制”和“粘贴”命令； 1)在窗体上画出控件，进行属性设置，这是控件数组中建立的第一个元素； 2)选中该控件，进行“复制”操作若干次和“粘贴”操作若干次，建立所需个数的控件数组元素。 3)进行事件过程的编写。? 方法2 ：对于已经建立好的若干个相互独立的控件，将每个控件都设置成相同的名称（Name属性），可以使得改为相同名称的这些控件成为数组中的元素。 2007-12-5 河北大学管理学院 * 建立控件数组 （二）运行时添加控件数组: 1）在窗体上画出某控件，设置该控件的Index值为0，表示该控件为数组，这是建立的第一个元素，并可对一些