vb6-常用控件.pptVIP

索引 List1.ListIndex = 3 (下标从0开始的) 列表项数目 List1. ListCount = 5 3. 是否被选 List1. Selected(3) = True，其余为False。 4.是否排序 List1. Sorted = False， 没有排序。 List1. Text 为 “cox” ，相等与 List1. List(List1. listIndex) 列表框各主要属性的值： Combo1组合框 1.下拉式组合框 2.简单组合框 3.下拉式列表框 1 2 3 组合框各主要属性的值： combo1.ListIndex = 0 combo1. ListCount = 8 combo1. Selected(3) = True 其余为False。 combo1. Sorted = False combo1. Text 为 “李宁” List 字符型数组，存放列表框的项目，下标是从0开始。 ListIndex 选中的项目的序号，没有项目被选定时为-1 ListCount 项目的数量，ListCount-1是最后一项的下标。 Sorted True：按字母顺序排列。 False：按加入先后顺序排列。 Text 列表项中被选定的内容， List 1.List(List 1.ListIndex) = List1.Text。 二者共有的重要属性: 2. 列表框的特有属性 Selected 逻辑数组。 Selected(i)的值为True表示第i+1项被选中。 MultiSelect 0-None：禁止多项选择。 1-Simple：简单多项选择。 2-Extended：扩展多项选择。 类型 Style 输入 下拉式组合框 0 能 简单组合框 1 能 下拉式列表框 2 不能 方法: 1. AddItem 对象.AddItem item [, index] 2. RemoveItem 对象.RemoveItem index 3. Clear 对象.Clear 5. 事件 列表框：Click、DblClick。 组合框：Click，只有简单组合框才有DblClick事件。 一般不需要编写Click事件过程。 通常在单击命令按钮或发生DblClick事件时才读取Text属性。 练习1.对列表框进行项目添加、修改和删除操作。 添加项目: List1.AddItem 创建窗体 List1.AddItem 编写代码 List1.AddItem 保存文件 List1.AddItem 运行程序 删除项目: List1.RemoveItem i 练习2. 对列表框进行项目添加、修改和删除操作。 Check1 Combo1 Text1 Check2 Option1 Option2 5.2 滚动条和Slider控件 SmallChange Min Value Max LargeChange Slider控件 Min Max SmallChange LargeChange 共同具有的重要属性: Max：最大值 -32 758~32 757 Min：最小值 -32 758~32 757 SmallChange 最小变动值，单击箭头时移动的增量值。 LargeChange 最大变动值，单击空白处时移动的增量值。 Value 滑块所处位置所代表的值。 1.Scroll： 拖动滑块时会触发Scroll事件。 2.Change： Value属性改变时触发Change事件。 例1. 用一个文本框(txtSpeed)显示滚动条(hsbSpeed)滑块当前位置所代表的值。 滚动条的事件： Sub hsbSpeed_Change() Text1.Text = HScroll1.Value End Sub Private Sub Command1_Click() HScroll1.Value = Int(Rnd * 10) Text1 = HScroll1.Value End Sub 例2. 调色板程序。 练习： 用Scroll控件设置文本框中的字体大小。 Private Sub HScroll1_Change() Text1.FontSize = HScroll1.Value + 30 End Sub 时钟控件以Inter