新Visual Basic程序设计教程 华东交通大学教材 专著 基金资助项目 教学课件 熊李艳 周美玲 第六章数组.pptVIP

6.5 控件数组 由一组相同类型的控件组成，它们共用一个控件名,具有相同的属性,建立时系统给每个元素赋一个唯一的索引号(Index),第一个下标为0。 控件数组共享同样的事件过程。 如：cmdName(3)代表控件数组名为 cmdName的第四个控件。 建立控件数组的两种方法 (1)设计时建立 ①在窗体上创建第一个控件，设置好控 件名。 ②选中该控件，进行Copy和Paste操作若 干次建立控件数组。 ③进行事件过程的编程。 Private Sub Command1_Click(Index As Integer) Select Case Index 对Index值进行判断 Case 0 Text1.BackColor = RGB(255, 0, 0) Case 1 Text1.BackColor = RGB(0, 255, 0) Case 2 Text1.BackColor = RGB(0, 0, 255) Case Else End End Select End Sub 例6-9： (2)在运行时添加控件数组 ①在窗体上画出某控件，设置该控件的 Index值为0，表示该控件为数组,这是建 立的第一个元素 ②在编程时通过Load方法添加其余的若干个 元素，也可以通过Unload方法删除某个添 加的元素。 ③每个新添加的控件数组通过Left和Top属 性确定其在窗体的位置，并将Visible属 性设置为True。 Private Sub Command1_Click() 生成控件数组 For i = 1 To 3 Load TxtInput(i) TxtInput(i).Width = TxtInput(0).Width TxtInput(i).Height = TxtInput(0).Height TxtInput(i).Left = TxtInput(i - 1).Left + 600 TxtInput(i).Top = TxtInput(i - 1).Top + 800 TxtInput(i).Visible = True TxtInput(i).Text = 第 i + 1 个元素 Next i End Sub Private Sub Command2_Click() 删除控件数组元素 For i = 1 To 3 Unload TxtInput(i) Next i End Sub 例6-10： 列表框（ListBox）和组合框（ComboBox）都是能提供选项的控件。这两个控件有些属性是数组，如List属性是字符型数组、Selected属性是逻辑型数组。 概述 6.6 列表框与组合框 列表框(ListBox) 是能提供“多选一”的控件。 常用属性 描述 属性 用于指定列表框中列的数目 0：单列显示（缺省设置），条目多自动添加垂直滚动条。 1：单列显示，条目多自动添加水平滚动条。 n（n1）：条目以n列显示，条目多会自动添加水平滚动条。 Columns 用来访问列表中的所有列表项，看成是字符串数组。列表项与数组元素相对应。例: List1.List（0）=“北京” List1.List（1）=“上海” List 常用在运行阶段来改变列表框中列表项目内容 描述 属性 用于返回当前选中项目的文本内容 例:当前选中的是“北京“ List1.text=“北京” List1.List(List1.ListIndex)=“北京” Text 只读属性 指定列表框中项目的数量 0:为列表项目数组第一项的下标 ListCount-1:是列表项目数组最后一项的下标 ListCount 只读属性 0:为标准样式（默认值）； 1:为检查框（复选框）样式，此时，无论MultiSelect属性为何值，列表框均能多选。 Style 只读属性 描述 属性 决定列表框中的项目是否排序 True：按字母顺序排列。 Sorted 用来检测某个项目是否被选中。 每个项目选中状态组成的逻辑数组 Selected(i)=True表示第i+1项被选中 Selected 用于返回当前被选中项目的序号 例:当前选中的是“北京“ List1.ListIndex=0 List1.ListIndex=-1 //没有选中 ListIndex 描述 属性 List1 列表框各主要属性的值： Lis