vb comboBOx和listBox两个属性有什么不同?
comboBox 不是textBox和listBob的合体吗,它怎么不能多选,我在他的属性找不到
selectCount 属性 展开
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()返回布尔值