利用属性窗口向列表框添加四个项目
 
利用属性窗口向列表框添加四个项目：Visual Basic、Turbo C、C++、Java你是说VB的吗？ 在列表框的属性里面有一个List属性， 点击其右边的下三角按钮，出现一个下拉的文本框，在里面输入你想要的列表项， 注意。
 
易语言怎么通过编辑框和组合框向列表框添加项目呢？
 

 
比如 现在 组合框有 3个选项 分别是.. 1 2 3 选择1会在列表框中出现一部.版本 2 .子程序 _按钮1_被单击 列表框1.加入项目 (编辑框1.内容, )
 
vb中在列表框内输入四个列表项
 
用Addltem就行了： List1.AddItem "第1项"List1.AddItem "第2项"List1.AddItem "第3项"List1.AddItem "第4项" 语法：Control.AddItem(cItem [, nIndex] [, nColumn]) 参数： cItem 指定添加到控制中的字符串表达式，必选参数。
 
14.在VB.NET中，向列表框中添加一个新项目，正确的14.在VB.NET中，向列表框中添加一个新项目，正确的语句是_____//只要知A.ListBox1.Items.Add("How are you?")
 
在VB中，有哪几种方法可以在列表框中添加选项？列主要是两种方法, 设计时候:在属性框加 看其list属性,每加一项就ctrl+回车换下一行继续添加 运行时候:代码添加 List1.AddItem 1234567 List1.AddItem "hello。。。
 
向组合框与列表框添加选项的方法是什么?
 
Private Sub Form_Load() Combo1.AddItem "要添加的字符" List1.AddItem "要添加的字符" End Sub
 
在form1的窗体上画一个列表框，名称为l1，通过属性Private Sub From_Load() l1.AddItem"aaaa" l1.AddItem"bbbb" l1.AddItem"cccc" End Sub
 
列表框的特点是：列表框中的项目是通过程序插入到其中的，用户无法向清单中输入数据，当选择其中的项目，并在用户单击一个按钮或者执行某个操作时，由应用程序完成对指定项目的具体操作。下面这个例子充分说明了列表框的这个特点。
 
向列表框listbox的items集合中添加项目的方法是什么
 
当你的listbox里有两个item时： textBox1.Text = listBox1.Items[0].ToString(); textBox1.Text += listBox1.Items[1].ToString(); 假如有多个你就用个循环 这个代码我试过了。
 
易语言 超级列表框2怎么插入超级列表框1选中的表项
 
，有一个超级列表框1和一个超级列表框2，如果单击一个超级列表框1的表代码及截图： .版本 2.支持库 iext .子程序 __启动窗口_创建完毕 超级列表框1.类型 ＝ 3超级列表框2.类型 ＝ 3超级列表框1.整行选择 ＝ 真超级列表框2.整行选择 ＝ 真 .子程序 _超级列表框1_左键单击表项 .如果真 (超级列表框1.现行选中项

原文地址为：
vb列表框ListBox的详细使用方法




 
 
列表框（ListBox）控件表示一个选项清单，用户可能用鼠标选择其中一个或者几个选项。
 
 
　　列表框的特点是：列表框中的项目是通过程序插入到其中的，用户无法向清单中输入数据，当选择其中的项目，并在用户单击一个按钮或者执行某个操作时，由应用程序完成对指定项目的具体操作。下面这个例子充分说明了列表框的这个特点，并介绍了列表框（ListBox）的常用属性。
 
 
　　为了学习方便，提供的源码已经作了详细的中文注释，看看源码框中的代码：
 
 
Option Explicit
'--------------------------------------
' 简单的列表框ListBox的例子
'--------------------------------------
' 洪恩在线 求知无限
'--------------------------------------
'------名称-------------作用------------
' List1、List2 列表框
' LefttoRightCmd 移动所选项目到另一个列表框（左到右）
' RighttoLeftCmd 移动所选项目到另一个列表框（右到左）
' List1MoveCmd 删除列表框List1中所选项目
' List2MoveCmd 删除列表框List2中所选项目
' List1AddCmd 给列表框List1增加新项目
' List2AddCmd 给列表框List2增加新项目
' List1ClearCmd 清空列表框List1
' List2ClearCmd 清空列表框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()返回布尔值
If List1.Selected(i) Then
'删除索引号为i的项目
List1.RemoveItem i
 
 
End If
Next
End If
 
 

End Sub
 
 

Private Sub List2AddCmd_Click()
 
 
'定义变量，以接收输入的字符串
Dim ListItem As String
ListItem = InputBox("在列表中输入新项目")
 
 
If Trim(ListItem) <> "" Then
'将字符串增加到列表中
List2.AddItem ListItem
 
 
End If
 
 

End Sub
 
 
Private Sub List2ClearCmd_Click()
 
 
'清空列表
List2.Clear
 
 
End Sub
 
 
Private Sub List2MoveCmd_Click()
 
 
Dim i As Integer
'判断所选 元素是否只有一个
If List2.SelCount = 1 Then
 
 
List2.RemoveItem List2.ListIndex
'如果所选 元素大于1，则按下列操作进行
ElseIf List2.ListCount > 1 Then
For i = List2.ListCount - 1 To 0 Step -1
 
 
If List2.Selected(i) Then
List2.RemoveItem i
End If
Next i
End If
 
 
End Sub
 
 
Private Sub RighttoLeftCmd_Click()
 
 
Dim i As Integer
'判断选中的元素有几个
If List2.SelCount = 1 Then
 
 
List1.AddItem List2.Text
List2.RemoveItem List2.ListIndex
'当选中的元素大于一个时
ElseIf List2.SelCount > 1 Then
 
 
For i = List2.ListCount - 1 To 0 Step -1
'如果该元素被选中，则将其从右边移至左边
If List2.Selected(i) Then
 
 
List1.AddItem List2.List(i)
List2.RemoveItem i
End If
Next i
End If
 
 
End Sub
(源程序下载)
 
 
这个例子包含一个窗体，窗体中有两个列表框（List1、List2）和八个按钮，界面如下：
 
 
 
 
 

窗体（FormListBox）
 
 
我们首先新建一个标准的EXE工程，添加一个窗体，并把列表框和按钮控件添加到窗体上。各按钮控件的名称如下表：
 
 
按钮名称
名称属性
按钮名称
名称属性
 
 
删除所选项目（左）
List1movecmd
删除所选项目（右）
List2movecmd
 
 
增加新项目（左）
List1addcmd
增加新项目（右）
List2addcmd
 
 
清除弄表（左）
List1clearcmd
清除列表（右）
List2clearcmd
 
 
右箭头 lefttorightcmd 左箭头 Righttoleftcmd 
 
 

' List1列表框 Sorted属性设为“False” ' List2列表框 Sorted属性设为“True” ' MultiSelect属性设置为2 ' 即List2控件中的项目总是排序的
 
 
　　在属性窗口中，将List1列表框 Sorted属性设为“False”；List2列表框 Sorted属性设为“True”，MultiSelect属性设置为2，即List2控件中的项目总是排序的。
 
 
　　下一步我们为各控件添加相应的程序。
 
 
　　其中：
 
 
　　List1.AddItem "China" 是将“China”添加到列表框中。
 
 
　　List1.ListIndex 返回的是列表框List1中当前选择项目的索引号码。
 
 
　　List1.ListCount 返回的是列表框List1中项目总数。
 
 
　　List1.ListCount - 1 返回列表框List1中最后一个项目的索引号。
 
 
　　List1.Selected() 返回的是一个项目的选择状态，返回的是布尔值。
 
 
　　代码写好之后，我们就可以保存工程，然后按“Ctrl+F5”键，测试检验一下我们的程序了。在这个小程序中，包含了列表框中的一般常用属性和方法。 
 


转载请注明本文地址：
vb列表框ListBox的详细使用方法

哈喽大家好，欢迎来到一起学VB课堂，今天我们将要学习列表框ListBox控件和组合框ComboBox控件，这两个控件在VB中是非常重要的控件，当然其难度也比前面学习的控件难度有所增加，这两个控件我会单独分在两个课程，小伙伴们一定要耐心学习哦。
 
 
列表框ListBox控件用于显示项目列表，并可以从中选择一项或者多项。组合框ComboBox是在列表框ListBox基础上增加了文本框TextBox的控件，既可以在控件的文本框部分输入信息，也可以在控件的列表框部分选择一项。
 
列表框ListBox
 
列表框控件用于显示项目列表，将内容、数据以列表的形式展示给用户，并允许用于从中选择一项或者多项。列表框会在项目总数超过可显示数目时自动创建滚动条。
 
列表框的常用属性
 
Style属性
 
返回或设置列表框的样式。该属性在设计时可用，在代码中无法使用。用于确定列表框的外观。取值为0时，为标准型，取值为1时为复选框型。当为复选框型时，每个项目的左边都会多出一个复选框，此时用户可以在列表框中选择多项内容。而标准型样式，用户每次只能选择一个内容。
 
 
List属性
 
返回或设置列表中的内容。在设计时，可以在列表框的属性窗口中，单击List属性右端的下拉箭头，输入列表框的内容，每输入一项内容，按Crtl+Enter组合键，可以添加下一项内容，输入完毕时按Enter键结束。当然也可以在代码区中动态的添加内容。
 
 
List是一个数组，相当于一个序号。该序号从0开始，当ListBox控件有一个项目时，序号就加1。列表框中的项目序号由上往下编号，分别是0、1、2…，例如，第1个项目的序号是0，其内容为List1.List(0)，第2项是List1.List(1)，依次类推。以上图为例，北京是第1个项目，其序号是0，上海是第2个项目，其序号是1，因此List1.List(3)=“江苏”。数组的概念在后面的章节会单独讲解，这里只需要先了解这个用法即可。
 
Text属性
 
该属性用于返回用户选择的内容。
 
ListCount属性
 
返回列表框的项目总数。
 
ListIndex属性
 
返回当前用户选择的项目的序号。如果列表框没有一个项目，则该属性返回值为-1。
 
Selected属性
 
返回或设置列表框中某一项的选择状态。当作为返回值使用时，选中值为True，未选中值为False，当作为设置使用时，可以通过代码自动设置指定序号的项目被选中，而不需要用户手动选择。
 
Sorted属性
 
设置列表框中的项目是否自动排序。当设置为True时，列表框中的内容将会被自动排序。默认值为False，列表框中的项目按照添加次序排序。可以利用次设置，来对数据进行排列。
 
列表框的常用方法
 
AddItem方法
 
用来添加项目到列表框中。其语法为：
 
列表框名称.AddItem 项目字符串 [,索引值]
 
[ ]内参数表示选填项，若不填写，则项目默认添加到列表框的最后一项。如果需要添加到指定位置，则填写序号。例如在第序号为2的位置添加湖南，语句为：
 
List1.AddItem "湖南", 2
 
 
在VB中字符串需要用双引号""表示，相反用双引号表示的都是字符串类型。
 
Clear方法
 
清除列表框中的所有项目。语法为：
 
List1.Clear
 
RemoveItem方法
 
删除列表框中指定的项目。语法为：
 
List1.RemoveItem 索引值      '索引值就是序号
 
ListBox实战操作题
 
要求：设计一个图书管理程序，单击添加图书按钮时，图书被添加到列表框最后一个；当单击插入按钮时，图书被添加到鼠标选择项目的位置；单击删除按钮时，将删除所选图书；单击清空按钮时，所有图书被删除；单击修改按钮时，可将选定的图书修改为新的图书。并且可以动态的显示图书的数量。界面如下图所示：
 
步骤一：
 
新建工程，按照下图所示建立控件，完成界面布局。
 
 
步骤二：
 
修改各控件属性，如下图所示：
 
 
步骤三：
 
按照下图，双击每个控件，进入它们的默认事件过程中，写入如下所示的代码。
 
提示：代码有点长且相对之前的课程难度有所增加，可以对照注释学习，对于初学者而言，需要有耐心哦，如有疑惑可以联系我咨询。
 
 
步骤四：
 
运行程序，测试效果。
 
 
注意：由于当前课程还未学习到算法部分，例如条件判断的语法还未学习，因此本案例中未进行条件判断，实际上是存在很多bug的，例如未选择任何图书，就单击插入图书的按钮，就会出现错误，在这里小伙伴门也不要心急，本案例是以学习列表框为主，其它的知识点在后面的课程都会讲到的。只需要耐心的一节课程一节课程的学习下去即可。