VB程序设计(第2版)教学课件5-5-控件数组.pptx

《VB程序设计(第2版)教学课件5-5-控件数组.pptx》由会员分享，可在线阅读，更多相关《VB程序设计(第2版)教学课件5-5-控件数组.pptx（12页珍藏版）》请在三一办公上搜索。

1、,VB,程序设计,控件数组,VB程序设计控件数组,问题引入,窗体上，相同的控件可以用下标来标识吗？,问题引入 窗体上，相同的控件可以用下标来标识吗？,列表框,控件数组,列表框 控件数组概述1,控件数组概述,1,在应用程序中常用到一些类型相同且功能类似的控件，可将这些相同的控件视为一个数组，即“控件数组”。,控件数组与普通数组类似，有如下特点： 具有相同的控件名称(Name)。 用下标索引值(Index)来识别各个控件。如：Text1(0)、Text1(1)、。,控件数组概述1 在应用程序中常用到一些类型相同且,控件数组建立方法,2,【控件数组的建立方法】,【方法1】利用为控件数组命名方法建立控

2、件数组, 在窗体上添加同一类型的多个控件。如：Text1、Text2 单击Text2，使其处于选定状态。 在属性窗口选择“名称”，即Name属性，并修改控件名称，即：Text1，显示对话框，单击“是”，则建立控件数组。 对要加到数组中的控件重复第、步，输入与第步相同的名称。,控件数组建立方法2【控件数组的建立方法】【方法1】利用为控件,控件数组建立方法,2,【控件数组的建立方法】,【方法2】利用复制的方法建立控件数组, 在窗体添加一个控件，并选定该控件。 “编辑”“复制” 。 “编辑”“粘贴”，显示如图对话框。 单击“是”，窗体左上角将出现一个控件，它就是控件数组的第二个元素。 继续执行“编辑

3、” “粘贴” ，建立控件数组的其他元素。,控件数组建立方法2【控件数组的建立方法】【方法2】利用复制的,控件数组说明,2,【说明】, 控件数组建立后，只要改变一个控件的“名称”属性，即Name属性，并将Index属性置为空（不是0），则该控件从控件数组中删除。 建立了控件数组之后，控件数组中所有控件触发同一事件过程，由事件过程根据不同的Index值执行不同的操作。,控件数组说明2【说明】 控件数组建立后，只要改变一个控件的,动态数组应用,3,【应用】建立2个数组控件Text1、Text2，每个数组控件具有10个元素，随机产生10个3位整数放入控件数组Text1中，重新排列这10个数，将其中的奇

4、数放在前，偶数放在后，重排后的数据放入Text2中。,界面设计,动态数组应用3【应用】建立2个数组控件Text1、Text2,动态数组应用,3,代码设计,Dim n As IntegerPrivate Sub Command1_Click() Dim i% Randomize n = 0 For i = 0 To 9 Text1(i).Text = Int(100 + Rnd * 900) 产生10个3位数 If Text1(i).Text Mod 2 0 Then n = n + 1 统计奇数个数 End If Next iEnd Sub,动态数组应用3代码设计Dim n As Intege

5、r,动态数组应用,3,代码设计,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,动态数组应用3代码设计Private Sub Command,总 结,总 结 可将相同的控件视为一个数组，即“控,善于思考善于学习,善于思考善于学习,