VB第六章课件.docVIP

第11次课 课题：第章）78 7-10； 授课内容： 复习： 1、单选框与复选框的Value属性有什么区别？ 2、图片框和图像框中哪个能作为其它控件的容器，如何设置Picture属性（LoadPicture），以及图片框的Autosize属性与图像框Stretch有何区别？ 3、要使定时器Timer有效，需设置什么？ 4.6 列表框 列表框（ListBox）用于显示一个项目列表，用户可以选择一项或多项，如果项目数目超过列表框可显示的数目，系统会自动给列表框添加滚动条，用户可以通过操作滚动条查看所有的项目，默认名称为List1。 1、 列表框的主要属性 属性 属性值 说明 listcount 整型 数据 返回列表框中项目的总数。注意：列表框中的首项的序号为0， ListCount –1 表示列表中最后一项的序号。 list 字符型 数组 设置或返回列表中选项。 List(0)表示列表框中第1项内容List(1)表示列表框中第2项内容 ListIndex 整型 数据 返回选中的列表项序号。如果未选中任何项，则ListIndex的值为 -1. 练习： 在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程： Private Sub Form_Load()  List1.AddItem Item 1  List1.AddItem Item 2  List1.AddItem Item 3 End Sub Private Sub Command1_Click()  List1.List(List1.ListCount) = AAAA End Sub 程序运行后，单击命令按钮，其结果为______。B A）把字符串“AAAA”添加到列表框中，但位置不能确定 B）把字符串“AAAA”添加到列表框的最后（即“Item 3”的后面） C）把列表框中原有的最后一项改为“AAAA” D）把字符串“AAAA”插入到列表框的最前面（即“Item 1”的前面） 列表框的Multiselect属性：（特有属性） 决定列表框是否支持多选。0时，单选，1、2多选。 属性值为0（默认值）：列表框只允许单选。 属性值为1：列表框允许多选（单击即可）。 属性值为2：列表框允许扩展多选(配合Ctrl键选择多个不连续的项目，配合Shift键选择连续的多个项目）。 练习：为了使列表框中的项目呈多列显示，需要设置的属性为。 A) Columns B) Style C) List *D) MultiSelect 属性 属性值 说明 Text 字符型 数据 返回当前被选中的项目内容.注意： list1.text和list1.list(list1.listindex) 都代表选中的项目的内容 Selected 逻辑型 数组 判断某一项是否被选择中，数组元素为selected(0),select(1),…分别对应列表中的每一项. Selected(i)的值为True表示第i+1项被选中。 例：List1.Selected(3)=True Sorted False True 项目按添加的先后顺序排列 项目项目按字母升序排列 例:在一个列表框list1中通过属添加四项内容,分别为a、b、c 、d,程序运行后,单击第三项 “c” ,则执行结果如何? Private Sub List1_Click() Print List1.Text 选中的内容 Print List1.List(List1.ListIndex) 选中的内容 Print List1.Selected(0) 判断第一项是否被选中 Print List1.Selected(2) 判断第三项是否被选中 Print List1.Selected(List1.ListIndex) 判断选中的项 End Sub 练习： 设在窗体Form1上有一个列表框List1，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程 *A) Prvate?Sub?List1_Click()??????B)Private?Sub?Form1_Click() Print?List1.Text????????????????? Print?Lis