VB LISTBOX 详解有哪些？

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

要从列表中删除项目，可使用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

R>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

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

MultiSelect 表明是否允许用户从列表框中选定多个项目以及选定的方式。其值为0时，只允许选择一个项目，不允许复选；为1时，允许用户通过单击或按下空格键选定或撤消多个项目；为2时，允许用户使用Shift和Ctrl组合 *** 作来选定或撤消多个项目。

语法结构： object.MultiSelect = [ Number ]

Sorted 为True时，自动将列表按字母顺序重新排列，排序时不区分大小写。

Style 表示列表框中项目的显示形式，运行时只读。其值为0时，为标准方式显示；为1时，在每个项目前加上一个复选框。

Selected 该属性实际上是一个数组，各个元素的值为True或False，表明是否选择了该项。

用下面的语句可以检查指定的表项是否被选择（其中“索引值从0开始）：

ListBox控件名．Selected(索引值)

用下面的语句可以选择或取消指定的表项：

ListBox控件名．Selected(索引值)=Ture│False

用ListView的方法比较简单，直接添加一个控件顺便把0001写到Tag属性里去就行了。如果只用ListBox的话，

先创建一个类代表城市

Public Class City

Public Name As String

Public Num As String

Public Sub New(na As String, nu As String)

Name = na

Num = nu

End Sub

Public Overrides Function ToString() As String 'ListBox需要这个函数来显示

Return Name

End Function

End Class

然后把这个类的实例添加进去即可，比如：

ListBox1.Items.Add(New City("北京", "0001"))

读取的话就很简单，比如我要读第一项

Dim obj = ListBox1.Items(0)

If TypeOf obj Is City Then

Dim c As City = obj

'c.Name就是"北京"，c.Num就是"0001"了

End If

遍历之类的可以灵活使用，你也可以在类里面加些其它内容。

ListBox控件显示较长的选项列表，用户可从中选择一项或多项。如果项总数超出可以显示的项数，则自动向ListBox控件添加滚动条。ListBox控件列表中的每个元素称为项。图1所示为ListBox控件

功能描述：

ListBox控件显示较长的选项列表，用户可从中选择一项或多项。如果项总数超出可以显示的项数，则自动向ListBox控件添加滚动条。ListBox控件列表中的每个元素称为项，

说明：

① 该属性使用户可以获取对当前存储在 ListBox 中的项列表的引用。通过此引用，可以在集合中添加项、移除项和获得项的计数。

② 可以使用DataSource属性来 *** 控ListBox的项。如果使用DataSource属性向ListBox添加项，则可以使用Items属性查看ListBox中的项，但不能使用ListBox.ObjectCollection的方法向该列表添加项或从中移除项。

C# 代码如下：

SqlConnection con = new SqlConnection("server=12uid=sapwd=database=test")

con.Open()

SqlCommand com = new SqlCommand("select * from table",con)

SqlDataReader dr = com.ExecuteReader()

this.listBox1.Items.Clear()

while (dr.Read())

{

// this.listBox1.Items.Add(dr[0].ToString())

this.listBox1.Items.Add(dr[1].ToString())

//   this.listBox1.Items.Add(dr[2].ToString())

}

dr.Close()

con.Close()

---