vb comboBOx和listBox两个属性有什么不同？

Answer 1

List，是ListBox中所有的列表集合，是一个数组。

例如List1.List(0)就代表List1中的第一个列表项，

Text代表ListBox当前选中项目文本，与Lit1.List(List1.ListIndex)效果一样。

示例：

列表框的特点是：列表框中的项目是通过程序插入到其中的，用户无法向清单中输入数据，当选择其中的项目，并在用户单击一个按钮或者执行某个操作时，由应用程序完成对指定项目的具体操作。下面这个例子充分说明了列表框的这个特点，并介绍了列表框（ListBox）的常用属性。

为了学习方便，提供的源码已经作了详细的中文注释，看看源码框中的代码：

Option Explicit

' 简单的列表框ListBox的例子

'------名称-------------作用------------

' List1、List2 列表框

' LefttoRightCmd 移动所选项目到另一个列表框（左到右）

' RighttoLeftCmd 移动所选项目到另一个列表框（右到左）

' LefttoRightCmd 移动所选项目到另一个列表框（左到右）

' RighttoLeftCmd 移动所选项目到另一个列表框（右到左）

' List1.deleteString 删除列表框List1中所选项目

' List2.deleteString 删除列表框List2中所选项目

' List1.AddString 给列表框List1增加新项目

' List2.AddString给列表框List2增加新项目

' List1.ResetContent清空列表框List1

' List2.ResetContent 清空列表框List2

'————名称————属性设置———

' List1列表框 Sorted属性设为“False”

' List2列表框 Sorted属性设为“True”

' MultiSelect属性设置为2

' 即List2控件中的项目总是排序的

'--------------------------------------

Private Sub Form_Load()

'装载窗体时，给列表中的元素赋值

List1.AddItem “China”

List1.AddItem “America”

List1.AddItem “Japan”

List2.AddItem “Soccer”

List2.AddItem “Tennis”

List2.AddItem “Basketball”

End Sub

Private Sub LefttoRightCmd_Click()

'将左边列表中所选元素移动到右边列表中

If List1.ListIndex >；= 0 Then

'在右边列表中增加新元素

List2.AddItem List1.Text

'删除左边列表中的所选元素

List1.RemoveItem List1.ListIndex

End If

End Sub

Private Sub List1AddCmd_Click()

Dim ListItem As String

'

ListItem = InputBox(“在列表中输入新项目”)

'向列表中加入新项目

If Trim(ListItem) <；>； ““ Then

'Trim（）作用是清除ListItem字符串内的空格

List1.AddItem ListItem

End If

End Sub

Private Sub List1ClearCmd_Click()

'清空列表

List1.Clear

End Sub

Private Sub List1MoveCmd_Click()

Dim i As Integer

'判断列表框是否只有一个项目被选中

If List1.SelCount = 1 Then

List1.RemoveItem List1.ListIndex

ElseIf List1.ListCount >； 1 Then

'删除列表框中的所选中的多个项目

For i = List1.ListCount - 1 To 0 Step -1

'ListCount返回列表框中的项目总数

'ListCount-1是列表框中最后一个项目的索引号

'判断该项目是否被选中，Selected()返回布尔值