1、控件数组问题引入 窗体上，相同的控件可以用下标来标识吗？列表框 控件数组概述1 控件数组的建立方法及说明2 控件数组应用3控件数组控件数组概述控件数组概述 在应用程序中常用到一些类型相同且功能类似的控件，可将这些相同的控件视为一个数组，即“控件数组”。控件数组与普通数组类似，有如下特点：具有相同的控件名称(Name)。用下标索引值(Index)来识别各个控件。如：Text1(0)、Text1(1)、。控件数组建立方法控件数组建立方法【控件数组的建立方法】【方法1】利用为控件数组命名方法建立控件数组 在窗体上添加同一类型的多个控件。如：Text1、Text2 单击Text2，使其处于选定状态。在
2、属性窗口选择“名称”，即Name属性，并修改控件名称，即：Text1，显示对话框，单击“是”，则建立控件数组。对要加到数组中的控件重复第、步，输入与第步相同的名称。控件数组建立方法控件数组建立方法【控件数组的建立方法】【方法2】利用复制的方法建立控件数组 在窗体添加一个控件，并选定该控件。“编辑”“复制”。“编辑”“粘贴”，显示如图对话框。单击“是”，窗体左上角将出现一个控件，它就是控件数组的第二个元素。继续执行“编辑”“粘贴”，建立控件数组的其他元素。控件数组控件数组说明说明【说明】控件数组建立后，只要改变一个控件的“名称”属性，即Name属性，并将Index属性置为空（不是0），则该控件从
3、控件数组中删除。建立了控件数组之后，控件数组中所有控件触发同一事件过程，由事件过程根据不同的Index值执行不同的操作。动态数组应用动态数组应用【应用】建立2个数组控件Text1、Text2，每个数组控件具有10个元素，随机产生10个3位整数放入控件数组Text1中，重新排列这10个数，将其中的奇数放在前，偶数放在后，重排后的数据放入Text2中。界面设计动态动态数组应用数组应用代码设计Dim n As IntegerPrivate Sub Command1_Click()Dim i%Randomize n=0 For i=0 To 9 Text1(i).Text=Int(100+Rnd*90
4、0)产生10个3位数 If Text1(i).Text Mod 2 0 Then n=n+1 统计奇数个数 End If Next iEnd Sub动态动态数组应用数组应用代码设计Private Sub Command2_Click()Dim i%,j%,k%i=0:j=n For k=0 To 9 将奇数放在前 If Text1(k).Text Mod 2 0 Then Text2(i).Text=Text1(k).Text i=i+1 Else Text2(j).Text=Text1(k).Text j=j+1 End If Next kEnd Sub总总 结结 可将相同的控件视为一个数组，即“控件数组”。建立控件数组有两种方法。用下标索引值(Index)来识别控件数组中的控件。
