VB教程:列表框(ListBox)
文章作者 100test 发表时间 2007:03:10 18:29:57
来源 100Test.Com百考试题网
6、列表框(List Box)
列表框为用户提供了选项的列表。
作用:显示项目列表,用户可从中选择一个或多个项目。
(1)List Box控件常用的方法
方法 |
描述 |
AddItem |
向列表框添加新项目,其格式为: ListBox控件名.AddItem<项目>[,<索引值>] 其中: <项目>为字符串表达式,表示添加到列表框中的新项目。 <索引值>为数值表达式,指定在列表框中插入新项目的位置。若为0,则插入到第一个项目位置;若缺省且Sorted属性为False,则插入到最后一个项目位置; 若缺省且Sorted属性为True,则插入到合适的排序位置。 |
RemoveItem |
从列表框中删除项目,其格式为: ListBox控件名.RemoveItem<索引值> |
Clear |
清除列表框中所有项目,其格式为: ListBox控件名.Clear |
例如添加代码到List1列表框中,运行后的结果如下:
Private Sub Form_Load()
List1.AddItem "Germany"
List1.AddItem "India"
List1.AddItem "France"
List1.AddItem "USA"
List1.AddItem "Japan", 0
List1.AddItem "China", 1
End Sub |
![](/ncre2/Files/2007-2/7/14192609.jpg) |
要从列表中删除项目,可使用RemoveItem方法,如要删除列表中的第一个项目,可添加如下代码:
Private Sub Command1_Click()
List1.RemoveItem 0
End Sub
要删除连结版或标准版的列表框、组合框中的所有项目。可使用Clear方法:
List1.Clear
注意:
1)可以在设计时添加项目。做法:选列表框“属性”窗口中[List]属性,在下拉的空白框中输入项目,并按[CTRL] [回车]键进行换行。
2)只能在列表末端添加项目。
3)如果要将列表按字母顺序排序,则应将“Sorted”属性设置为“True”,且省略索引(否则,使用带有index参数的AddItem方法可能会导致不可预料的非排序结果),排序时不区分大小写。
(2)常用属性
属性 |
描述 |
代码及界面显示 |
List |
(1)在设计时可向列表框中添加新项目,输人时用Ctrl Enter组合键换行(2)在代码中可用来访问列表框中的所有项目,它包含了一个字符串数组,列表框中的每个项目都是这个数组的元素。其引用格式为: s$=ListBox控件名.List(索引值) 其中:<索引值>为数值表达式,指定项目在列表中的位置,它是从0开始的。 例:s$=list1.list(6)将列出list1的第七项内容。 Private Sub Command1_Click() Text1.Text = List1.List(2) End Sub 也可改变数组中已有的值,格式: ListBox控件名.List(索引值)=s$ 例list1.list(3)="AAAA"将把list1的第四项的内容设为AAAA。 |
Option Explicit
Private Sub Command1_Click() Text1.Text = "You have" &. List1.ListCount &. "_entrifs lister" End Sub
Private Sub Command2_Click() Text1.Text = List1.List(3) End Sub
Private Sub Command3_Click() Text1.Text = List1.ListIndex End Sub
Private Sub Form_Load() List1.AddItem "Germany" List1.AddItem "India" List1.AddItem "France" List1.AddItem "Canada" List1.AddItem "USA" List1.AddItem "Japan", 0 List1.AddItem "China", 1 End Sub
Private Sub List1_Click() If List1.Text = "Canada" Then Text1.Text = "Canada have 24 million people." End If End Sub
![](/ncre2/Files/2007-2/7/141935350.jpg)
|
ListCount |
返回列表框中项目的总数,只在运行时可用。例: Private Sub Command2_Click() Text1.Text = "You have" &. List1.ListCount &. "_entrifs lister" End Sub |
ListIndex |
返回在列表框中当前选定项目的位置,只在运行时可用。未选定任何项目时,其值为-l。例: Private Sub Command3_Click() Text1.Text = List1.ListIndex End Sub |
Text |
存放当前在列表框中选定的项目,即List(ListIndex)的值。例: Private Sub List1_Click() If List1.Text = "Canada" Then Text1.Text = "Canada have 24 million people." End If End Sub |
Columns |
指定列表框中的列数。其值为0时,列表框以垂直滚动的单列方式显示;为l时,列表框以水平滚动的单列方式显示;大于l时,列表框以水平滚动的多列方式显示。 |
Option Explicit
Private Sub Form_Load() Dim i As Integer For i = 0 To Screen.FontCount - 1 List1.AddItem Screen.Fonts(i) “Columns”属性0 List2.AddItem Screen.Fonts(i) “Columns”属性1 Next i End Sub
![](/ncre2/Files/2007-2/7/141944351.jpg)
|
MultiSelect |
表明是否允许用户从列表框中选定多个项目以及选定的方式。其值为0时,只允许选择一个项目,不允许复选;为1时,允许用户通过单击或按下空格键选定或撤消多个项目;为2时,允许用户使用Shift和Ctrl组合操作来选定或撤消多个项目。 语法结构: object.MultiSelect = [ Number ] |
Sorted |
为True时,自动将列表按字母顺序重新排列,排序时不区分大小写。 |
Style |
表示列表框中项目的显示形式,运行时只读。其值为0时,为标准方式显示;为1时,在每个项目前加上一个复选框。 |
Selected |
该属性实际上是一个数组,各个元素的值为True或False,表明是否选择了该项。 用下面的语句可以检查指定的表项是否被选择(其中“索引值从0开始): ListBox控件名.Selected(索引值) 用下面的语句可以选择或取消指定的表项: ListBox控件名.Selected(索引值)=Ture│False |