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

这两个属性和方法上面有什么区别吗,是不是list的所有属性,combo也都有comboBox不是textBox和listBob的合体吗,它怎么不能多选,我在他的属性找不到... 这两个属性和方法上面有什么区别吗,是不是list的所有属性,combo也都有
comboBox 不是textBox和listBob的合体吗,它怎么不能多选,我在他的属性找不到

selectCount 属性
展开
 我来答
小甜甜爱亮亮
高粉答主

推荐于2019-10-13 · 说的都是干货,快来关注
知道大有可为答主
回答量:689
采纳率:98%
帮助的人:21.3万
展开全部

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()返回布尔值

推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式