输入控件─列表框（ListBox）

列表框主要用于动态的若干项目中选择其一的操作，列表框中可以包含若干项目，用户通过单击某一项进行选择，当项目超过了列表框的长度时，将会自动加上垂直滚动条。

列表框的常用属性有：

uList——保存列表框中所有项目的数组。可通过下标来访问列表中的某一项（从0开始）。

                 List1.list(2)="青岛大学"

                A$=List1.List(3)

vText ——  返回一字符串，是最近一次选中的列表项的内容。

wListCount ——返回列表框中项目的总个数。

xListIndex——返回或设置项目的索引值。

                              ■没有选中为–1;  

                              ■选中第一项为0

                              ■选中最后一项为ListCount-1

ySorted——决定列表框中的项目是否按字母升序排列。

                                 ■True：升序

                                 ■False：按添加的顺序

zSelected——布尔值型的数组，其数组元素的个数与列表框的项数相等，下标值与列表框中各索引值一一对应。

                                    ■True：选中

                                    ■False：未选中

如：要选中第三项：

                   List1.Selected(2)=True

{Style—是否将复选框显示在ListBox控件中。

|MultiSelect——是否可以在列表框中做多重选择。

             ■ 0——None 

             ■1——Simple  （简单选中）鼠标单击：选中/取消

             ■2——Extended   Ctrl+单击：不连续选中；

                                            Shift+单击：连续选中。

常用方法：

 AddItem——给ListBox 增加一项。

                 List1.AddItem  <String>   [,Index]

        Index：取值范围为：0~ListCount-1，省略时，追加到列表框的尾部。

 RemoveItem——删除指定的表项。

                 List1.RemoveItem  <Index>

 Clear——清除列表框中的全部内容。

                 List.Clear

常用事件：

        Click      DblClick

例题4：如图所示，完成如下操作:①利用Text1给List1添加项目②用Text2给List1选中的内容修改③删除选中的项

Private Sub Command1_Click()

   If(Text1.Text <> "") Then

        List1.AddItem Text1.Text

        Text1.Text = ""

    End If

End Sub

Private Sub Command2_Click()

   If(List1.ListIndex <> -1) Then

        List1.RemoveItem List1.ListIndex

    End If

End Sub

Private Sub Command3_Click()

   List1.List(List1.ListIndex)= Text2.Text

End Sub

Private Sub List1_Click()

   Text2.Text= List1.Text

End Sub