第11章列表框组合列表框.pptVIP

第11章 列表框、组合列表框和滚动条 列表框控件（ListBox）是一个显示项目列表的窗口，用户可以浏览并从中选择一个或者多个项目。 组合框控件（ComboBox）与列表框控件有些类似，可以看作是TextBox和ListBox的结合体。组合框不仅允许用户在列表框中选择项目，还允许用户在文本框中输入文本的方式来选择项目或指定文本。 滚动条让用户控制数值在某指定范围内的变化，通过用鼠标移动滚动条的位置来获得特定值。对于不能自动支持滚动的控件，滚动条控件能帮助它们提供滚动功能，水平滚动条（HScrollBar）和垂直滚动条（VScrollBar）。 列表框ListBox 一、增减列表中的项目 AddItem 向列表框中添加项目 lstCity.AddItem “ShangHai”, 1 参数1是要添加的字符串，参数2是添加的位置（索引值），第一个项目索引值为0 Remove 从列表中删除项目 lstCity.RemoveItem 0 项目删除后，之后项目的索引值会自动修正 Clear 清除列表中的所有项目 lstCity.Clear ListBox控件的值 ListBox控件的选择 单选ListBox控件示例1 单选ListBox控件示例1 多选ListBox控件 多选ListBox控件示例1 ListBox控件的事件 ListBox控件示例2 ListBox控件示例2 ListBox控件示例2 ListBox控件示例2 ListBox控件示例2 ListBox控件的风格 ListBox控件的其他属性 组合框ComboBox ComboBox控件的值 ComboBox控件举例 滚动条HScrollBar和VScrollBar 一、Scroll Bar控件如何工作 两个重要事件： Change 在滚动块移动后发生（鼠标抬起后） Scroll 在移动滚动块时发生，在单击滚动箭头或滚动条时不发生 滚动条控件的属性 滚动条示例 滚动条示例 * ***在设计时添加项目（使用属性窗口）*** List属性下拉文本框可输入，Ctrl+Enter换行 二、取列表内容 List属性：记录列表框中的全部项目。List属性是一个字符串数组，列表框中的每个项目对应该数组的一个元素，通过索引值来访问列表框的每个项目。第一个项目的索引值为0，以此类推。 Debug.Print List1.List(0) strProvince = List2.List(1) ListCount属性：该属性记录当前列表框的项目总数。比如下列代码可以输出列表框的全部内容： For i = 0 To List1.ListCount Debug.Print List1.List(i) Next 三、选取列表项目 MultiSelect属性：当取默认值0-None时，永远只能选中列表框中的一个项目，当前选定项目的索引位置可以通过控件的ListIndex属性来取得。 ListIndex属性仅在程序运行时可用，用于设置或返回列表框中当前选定项目的索引位置。如果没有项目被选中，则ListIndex属性取值为-1。 取得当前选中的项目内容时，可以这样书写： List1.List(List1.ListIndex) 【例】编写一个程序，输入要采购的书籍名称，按下添加按钮后，将输入的内容添加到一个采购列表框中，同时也可以选中列表框某书，按删除按钮从列表框中删除。 按下添加按钮的代码 Private Sub cmdAdd_Click() lstBook.AddItem txtBook.Text txtBook.Text = txtBook.SetFocus End Sub ? 按下删除按钮的代码 Private Sub cmdDelete_Click() If lstBook.ListIndex -1 Then 有选择项目 lstBook.RemoveItem lstBook.ListIndex End If End Sub MultiSelect属性：设置为1-Simple或者2-Extended时，列表框可以实现多选。前者表示简单复选，即利用鼠标单击或按下空格键在列表中选中或取消选中项，而箭头键仅移动焦点。后者表示扩展复选，其用法与Windows的文件列表的选择方法完全一样。 Selected属性：该属性用来判断列表框中某一个项目是否被选中，只能在运行时被使用。取值为True代表选中，False表示未选中。使用该属性需要指定项目的索引值，如下： List1.Selected(0) 返回列表中的第1个项目是否选中 List1.Selec