VB中ListBox的应用
vb中各个控件的作用
vb中各个控件的作用在VB（Visual Basic）中，控件是应用程序的可视化元素，用于与用户进行交互。
每个控件都有不同的功能和作用，下面我将介绍一些常见VB控件的作用：1. Label控件：用于显示静态文本或说明信息。
Label控件通常用于显示不需要用户输入或交互的文本内容。
2. TextBox控件：用于接收用户输入的文本数据。
用户可以在TextBox控件中输入文本，以便应用程序对其进行处理和使用。
3. Button控件：用于触发特定操作或执行特定功能的按钮。
当用户点击Button 控件时，相应的事件将被触发，从而执行相应的代码。
4. ComboBox控件：提供了一个下拉列表，用户可以从中选择一个选项。
ComboBox控件通常用于提供限定的选择范围，让用户从中选择一个选项。
5. ListBox控件：提供了一个列表，用户可以从中选择一个或多个选项。
与ComboBox控件不同，用户可以直接在列表中进行选择。
6. CheckBox控件：提供了一个选择框，用户可以在多个选项中进行选择。
CheckBox控件通常用于表示二进制的选择，例如勾选或取消勾选一个选项。
7. RadioButton控件：提供了一组互斥的选项，只能选择其中的一个选项。
RadioButton控件通常用于表示互斥的选择，例如选择性别男或女。
8. PictureBox控件：用于显示图像、图标或其他图形。
PictureBox控件可以加载图像文件，并在应用程序中显示出来。
9. Timer控件：计时器控件，可用于在应用程序中生成定时事件。
通过设置定时器的时间间隔和相应事件的处理程序，可以实现定时执行某些操作的功能。
10. Menu控件：提供了一个菜单栏，用于组织和呈现应用程序的不同功能和选项。
用户可以通过点击菜单项来执行相应的功能。
以上是一些常见的VB控件及其作用。
掌握这些控件的使用方法，可以帮助开发人员创建功能完善、交互性强的VB应用程序。
VB教程：列表框（ListBox）
6、列表框（List Box） 列表框为⽤户提供了选项的列表。
作⽤:显⽰项⽬列表，⽤户可从中选择⼀个或多个项⽬。
（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", 0List1.AddItem "China", 1End Sub要从列表中删除项⽬，可使⽤RemoveItem⽅法，如要删除列表中的第⼀个项⽬，可添加如下代码：Private Sub Command1_Click()List1.RemoveItem 0End Sub要删除连结版或标准版的列表框、组合框中的所有项⽬。
可使⽤Clear⽅法：List1.Clear注意：1）可以在设计时添加项⽬。
做法：选列表框“属性”窗⼝中[List]属性，在下拉的空⽩框中输⼊项⽬，并按[CTRL]+[回车]键进⾏换⾏。
vb.net中列表框多列的用法
英文回答：The ListBox control in has the capability to exhibit data in multiple columns by utilizing the Columns property. This specific property empowers the user to define the quantity of columns and their respective widths. In order to activate the display of multiple columns within a ListBox, it is essential to set the MultiColumn property to True. Upon doing so, the ListBox will automatically generate and exhibit the specified number of columns.VB中的列表框控制。
NET有能力通过使用列属性在多个列中显示数据。
这种特定属性授权用户定义列的数量及其各自的宽度。
为了激活ListBox中多个列的显示，必须设置多科伦属性为 True 。
完成后，ListBox 将自动生成并显示指定的列数。
Once you set the MultiColumn property to True, you can then decide how wide you want the columns to be using the ColumnWidth property. This property takes a string value that tells the system how wide each column should be. For example, if you set the ColumnWidth property to '100', it will create multiple columns with a width of 100 pixels each. You can also set the width of each column individually by giving a list ofma-separated values to the ColumnWidth property.一旦将多科隆属性设置为 True，您可以决定要使用 Colonel Width属性的列的宽度。
vba listbox用法
VBA中的ListBox是一种常用的控件，用于显示列表，并允许用户选择其中的一项或多项。
下面是ListBox的一些基本用法：添加列表项可以通过在代码中使用AddItem方法，向ListBox中添加新的列表项。
例如：vbaCopy codeListBox1.AddItem "苹果"ListBox1.AddItem "香蕉"ListBox1.AddItem "橙子"删除列表项可以通过在代码中使用RemoveItem方法，从ListBox中删除一个指定位置的列表项。
例如：vbaCopy codeListBox1.RemoveItem 1 ' 删除第2个列表项（从0开始编号）获取当前选择的列表项可以使用ListIndex属性获取当前ListBox中选中项的索引号（从0开始编号）。
例如：vbaCopy codeIf ListBox1.ListIndex >= 0 ThenMsgBox "你选择的是：" & ListBox1.List(ListBox1.ListIndex)ElseMsgBox "请选择一项！"End If上述代码中，ListBox1.ListIndex用于获取当前选中项的索引号，如果索引号大于等于0，则弹出一个消息框，显示当前选中项的文本内容。
处理选择项的变化事件当用户在ListBox中选择不同的项时，可以通过处理Change事件来执行相应的代码。
例如：vbaCopy codePrivate Sub ListBox1_Change()MsgBox "你选择的是：" & ListBox1.List(ListBox1.ListIndex)End Sub上述代码中，ListBox1_Change是ListBox控件的Change事件处理函数，每当用户选择不同的项时，就会执行其中的代码。
vba listbox的用法
在VBA中，ListBox控件可用于在用户界面中显示列表，并允许用户从列表中选择一个或多个项目。
以下是使用VBA ListBox控件的一些基本用法：1. 添加ListBox控件：在VBA中，可以使用Microsoft Forms库来添加ListBox控件。
在VBA编辑器中，选择“插入”菜单，然后选择“Microsoft Forms控件”下的ListBox控件。
2. 设置ListBox属性：添加ListBox控件后，可以设置其属性，例如名称（Name）、位置（Location）和大小（Size）等。
还可以设置其边框样式（Border Style）和显示方式（Display Mode）。
3. 绑定数据源：ListBox控件需要绑定到一个数据源上，以便显示项目列表。
可以使用Range、List、QueryTable等对象作为数据源。
例如，将某个工作表的单元格区域赋值给ListBox的DataSource属性。
4. 处理ListBox事件：可以使用VBA编写事件处理程序来响应ListBox的各种事件，例如Click、Change等。
例如，当用户从ListBox 中选择一个项目时，可以编写事件处理程序来执行相关操作。
以下是一个简单的示例代码，演示如何在VBA中使用ListBox 控件：```vbaPrivate Sub UserForm_Initialize()' 设置ListBox的属性 = "myListBox"ListBox1.Location = 10, 10ListBox1.Size = 150, 100ListBox1.BorderStyle = 1 ' 设置边框样式ListBox1.DisplayMode = 1 ' 设置显示方式' 绑定数据源Dim dataRange As RangeSet dataRange = Worksheets("Sheet1").Range("A1:A5") ' 将工作表Sheet1中的A1:A5单元格区域作为数据源ListBox1.DataSource = dataRange.Value ' 将数据源赋值给ListBox的DataSource属性End SubPrivate Sub ListBox1_Change()' 处理用户从ListBox中选择项目的事件MsgBox "您已选择了：" & ListBox1.Value & " 项目"End Sub```在这个示例中，UserForm中添加了一个名为"myListBox"的ListBox控件，并将其绑定到工作表Sheet1的A1:A5单元格区域。
在vba中listbox内容有源
在vba中listbox内容有源在VBA中，ListBox是一种常用的控件，用于显示列表或选项。
它可以用来展示各种类型的数据，比如文本、数字、日期等。
本文将以"ListBox内容有源为标题"为主题，介绍在VBA中如何设置ListBox的内容源。
我们需要明确ListBox的内容源是什么。
在VBA中，ListBox的内容可以通过直接添加项或者通过绑定数据源来实现。
对于直接添加项的方式，我们可以使用AddItem方法将项逐个添加到ListBox中。
例如，我们可以使用以下代码将一些文本项添加到ListBox中：```vbaListBox1.AddItem "苹果"ListBox1.AddItem "橘子"ListBox1.AddItem "香蕉"```对于绑定数据源的方式，我们可以通过设置ListBox的RowSource 属性来实现。
RowSource属性可以接受一个范围或者一个字符串作为参数。
如果传递的是一个范围，ListBox将显示该范围中的所有值。
如果传递的是一个字符串，可以使用SQL语句来筛选和排序数据。
例如，我们可以使用以下代码将一个范围作为数据源：```vbaListBox1.RowSource = "Sheet1!A1:A3"```或者使用以下代码将一个字符串作为数据源：```vbaListBox1.RowSource = "SELECT Fruit FROM FruitsTable WHERE Price < 10 ORDER BY Fruit"```在设置ListBox的内容源时，需要注意以下几点：内容源中不应包含http地址。
由于ListBox是用来展示文本或数据的，不适合显示网址链接。
如果在内容源中包含了http地址，可能会导致用户误解或错误操作。
内容源中不应包含公式。
VB常用控件的方法详解
VB常用控件的方法详解1.按钮控件（Button）：- Click事件：当用户单击按钮时触发的事件。
- Text属性：按钮上显示的文本。
- Enabled属性：是否启用按钮。
- Visible属性：按钮是否可见。
- BackColor属性：按钮的背景颜色。
- ForeColor属性：按钮的前景颜色。
2.文本框控件（TextBox）：- Text属性：文本框中显示的文本内容。
- ReadOnly属性：文本框是否为只读状态。
- PasswordChar属性：设置密码框中字符显示的方式。
- MaxLength属性：文本框最大可输入的字符数限制。
4.列表框控件（ListBox）：- Items属性：列表框中的项，可以通过Items属性进行添加、删除、修改操作。
- SelectedIndex属性：获取或设置当前选择项的索引。
- SelectedItem属性：获取或设置当前选择项的文本值。
- Items属性：组合框中的选项，可以通过Items属性进行添加、删除、修改操作。
- SelectedIndex属性：获取或设置当前选择项的索引。
- SelectedItem属性：获取或设置当前选择项的文本值。
6.复选框控件（CheckBox）：- Checked属性：表示复选框是否被选中。
- Text属性：复选框显示的文本。
7.单选按钮控件（RadioButton）：- Checked属性：表示单选按钮是否被选中。
- Text属性：单选按钮显示的文本。
8.图像框控件（PictureBox）：- Image属性：设置图像框中显示的图像。
- SizeMode属性：设置图像显示的方式（自适应、拉伸等）。
9.进度条控件（ProgressBar）：- Value属性：设置或获取进度条的当前值。
- Maximum属性：设置进度条的最大值。
- Minimum属性：设置进度条的最小值。
10.日期选择框控件（DateTimePicker）：- Value属性：设置或获取选择的日期时间值。
VB教案（9）列表框（ListBox）
VB教案（9）列表框（ListBox）第一篇：VB教案(9)列表框(ListBox)（九）列表框（ListBox）为用户提供选项列表，可选一项或多项，但不能进行类似文本框的编辑修改。
项目数超出列表框显示的范围，会自动添加垂直滚动条（若是多列列表，可添加水平滚动条）。
无下拉按钮。
一、列表框的属性： 1． Name属性： 2． Text属性：（编程用）总是对应用户在运行时选定的列表项目的内容。
3．ListIndex属性：（编程用）（1）设置列表框中当前要选用的项目，相当于触发Click事件。
（2）返回列表框中当前选中项目的索引值：第一项为0，第二项为1……未选中为– 1 4． NewIndex属性：（编程用）始终定位在最后一个添加到列表中的项目的索引值。
5． List属性：（编程用）本属性包括项目全部组成的一个数组，以下标来区分每一个项目元素，引用格式为： <控件名>．List（<索引值>）6． ListCount属性：（编程用）返回列表框中项目的总数（最大索引值+ 1）。
7．Sorted属性：选True时，自动按字母顺序排序。
（缺省值为False）8．Selected（索引值）属性：（编程用）返回值为True时，表示索引值所指的项目被选中。
9． Style属性：0：表示只能单选（默认值）1：表示可选多项10．MultiSelect 属性：0：表示只能单选1：可用鼠标单击方式选多项2：可用 + 单击或 + 单击的方式选多项二、列表框的事件和方法： 1． Click事件： 2． Dblchick事件：注：程序中常应考虑到双击某一项目的效果，应和单击该项目后再单击一命令按钮（如“确定”）的效果相同。
（方法是：将<命令按钮名>_Click 或<命令按钮名>．Value=True 的语句放入双击列表的事件过程中。
）3． AddItem方法：（1）向列表中添加项目，引用格式为：<列表框名>．AddItem <项目字符串表达式> [，<索引值>]（2）说明：①本方法通常用在Form_Load（）事件的过程中。
VB 如何把一个listbox作为参数传递
VB 如何把一个listbox作为参数传递方法一：[vb] view plain copy ListBox2.Items.Clear() For i = 0 To ListBox1.Items.Count - 1ListBox2.Items.Add(ListBox1.Items(i)) Next这样就将ListBox1的列表项移动到另一个ListBox2中了这是利用For循环；提取第一个列表框ListBox1中的所有列表项，再全部加载到另一个listbox2方法二：更好，但是还没完全看懂，网上搜了一下，都是有关的编程[vb] view plain copy Public Class Form1 'Listbox之间项目拖动示例，左键移动，右键复制Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadListBox2.AllowDrop = True End Sub Private Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown Dim DragIndex = ListBox1.IndexFromPoint(e.X, e.Y) If DragIndex <> ListBox.NoMatches ThenListBox1.SelectedIndex = DragIndex If e.Button = Windows.Forms.MouseButtons.Left Then DoDragDrop(ListBox1.Items(DragIndex), DragDropEffects.Move) ElseIf e.Button = Windows.Forms.MouseButtons.Right Then DoDragDrop(ListBox1.Items(DragIndex), DragDropEffects.Copy) End IfEnd If End Sub Private SubListBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox2.DragEnter e.Effect = e.AllowedEffect End Sub Private Sub ListBox2_DragDrop(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.DragEventArgs) Handles ListBox2.DragDrop Dim item As Object = CType(e.Data.GetData(GetType(System.String)), System.Object) Dim item2 As Integer = ListBox2.IndexFromPoint(ListBox2.PointToClient(New Point(e.X, e.Y))) If item2 = -1 ThenListBox2.Items.Add(item) ElseListBox2.Items.Insert(item2, item) End IfIf e.AllowedEffect = DragDropEffects.Move ThenListBox1.Items.Remove(item) End If End Sub End Class。
VB常用控件介绍
VB常用控件介绍VB(Virtual Basic)是一种面向对象的编程语言，常用于开发各种图形用户界面(GUI)应用程序。
在VB中，控件是构成用户界面的基本元素，通过控件可以实现用户与程序的交互。
下面是一些常用的VB控件的介绍。
1. 按钮控件(Button)：按钮是VB中最常用的控件之一，用于触发一些事件或执行一些动作。
通过设置按钮的文字、大小、位置和事件处理程序，可以实现各种用户交互功能。
3. 文本框控件(TextBox)：文本框用于接收用户的输入，并可以将输入的文本保存到变量中。
可以设置文本框的大小、位置、边框样式等属性，并可以通过事件处理程序响应用户输入的变化。
4. 列表框控件(ListBox)：列表框用于显示一组选项，并允许用户从中选择一个或多个选项。
可以通过添加和移除选项，以及设置列表框的大小、位置、滚动条等属性来定制列表框的外观和功能。
6. 复选框控件(CheckBox)：复选框用于表示一个状态，可以被选中或取消选中。
常用于表示一个二进制选项，比如启用/禁用一些功能。
可以设置复选框的大小、位置、文本等属性，并可以通过事件处理程序获取用户的选择。
7. 单选按钮控件(RadioButton)：单选按钮用于表示一组互斥的选项，用户只能选择其中的一个。
常用于表示一个多项选择，比如选择性别。
可以设置单选按钮的大小、位置、文本等属性，并可以通过事件处理程序获取用户的选择。
8. 进度条控件(ProgressBar)：进度条用于显示任务的进度，可以根据任务的完成情况来改变进度条的长度和显示。
可以通过设置进度条的最小值、最大值、当前值等属性，以及处理进度改变的事件来定制进度条的功能。
9. 图像框控件(PictureBox)：图像框用于显示图像或图表，可以加载本地或网络上的图像文件，并可以设置图像框的大小、位置等属性。
可以通过处理鼠标点击、鼠标移动等事件来实现与图像相关的交互功能。
10. 文件对话框控件(FileDialog)：文件对话框用于让用户选择文件或保存文件，可以通过设置对话框的类型、过滤条件、默认目录等属性来限制用户的选择范围，并可以通过事件处理程序获取用户选择的文件路径。
VB中ListBox的应用演示教学
V B中L i s t B o x的应用入门——ListBox控件的使用【字体大小：小中大】2008-02-18 19:56 来源：作者：ListBox(列表框)控件可以显示一组项目的列表，用户可以根据需要从中选择一个或多个选项。
列表框可以为用户提供所有选项的列表。
虽然也可设置列表框为多列列表的形式，但在缺省时列表框单列垂直显示所有的选项，如果项目数目超过了列表框可显示的数目，控件上将自动出现滚动条。
这时用户可在列表中上、下、左、右滚动。
ListBox控件在工具箱中的图标如图所示：一、ListBox常用属性1、BackColor 属性：用于显示ListBox控件中的文本和图形的背景颜色，默认为白色(Window)2、BorderStyle 属性：控制在列表框ListBox周围绘制的边框的类型，其枚举值为下面三个：BorderStyle.None——无边框BorderStyle.FixedSingle——单行边框BorderStyle.Fixed3D——三维边框默认值为BorderStyle.Fixed3D。
3、Font、ForeColor 属性：前者用于调整列表框中文本的字体，后者用于调整文本框中文本或者图形的前景色。
4、MultiColumn 属性：指示列表框中的项是否以水平的方式在列表框中显示，默认为False，此时所有的项都只显示为一列，当列表框无法显示全部的项的时候，将会出现一个垂直的滚动条；如果MultiColumn属性为True，则列表框以多列的形式来显示所有的项，如果一列无法全部显示完，则在水平位置重新显示一列，直到显示完毕为止，此时将会出现一个水平滚动条，如下图一所示：5、ColumnWidth 属性：指示“多列列表框”中各列的宽度。
当MultiColumn 属性为True时才起作用，其默认值为0，即将默认宽度分配给每列。
可以使用此属性确保多列 ListBox 中的每列都可正确显示其项，我们可以通过如下代码来自己设置列表框ColumnWidth 属性的值，以确保能以最优的宽度来显示列表：Private Sub SetupMyMultiColumn()Dim x As IntegerDim width As Integer =CInt(ListBox1.CreateGraphics().MeasureString(ListBox1.Items(ListBox1. Items.Count - 1).ToString(), ListBox1.Font).Width)ListBox1.ColumnWidth = widthEnd Sub6、ScrollAlwaysVisible 属性：指示无论列表框中有多少个项，都始终显示滚动条。
vb列表框ListBox的详细使用方法
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 SubPrivate Sub LefttoRightCmd_Click()'将左边列表中所选元素移动到右边列表中If List1.ListIndex >= 0 Then'在右边列表中增加新元素List2.AddItem List1.Text'删除左边列表中的所选元素List1.RemoveItem List1.ListIndexEnd IfEnd SubPrivate Sub List1AddCmd_Click()Dim ListItem As String'ListItem = InputBox("在列表中输入新项目") '向列表中加入新项目If Trim(ListItem) <> "" Then'Trim（）作用是清除ListItem字符串内的空格List1.AddItem ListItemEnd IfEnd SubPrivate Sub List1ClearCmd_Click()'清空列表List1.ClearEnd SubPrivate Sub List1MoveCmd_Click()Dim i As Integer'判断列表框是否只有一个项目被选中If List1.SelCount = 1 ThenList1.RemoveItem List1.ListIndexElseIf 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 iEnd IfNextEnd IfEnd SubPrivate Sub List2AddCmd_Click()'定义变量，以接收输入的字符串Dim ListItem As StringListItem = InputBox("在列表中输入新项目") If Trim(ListItem) <> "" Then'将字符串增加到列表中List2.AddItem ListItemEnd IfEnd SubPrivate Sub List2ClearCmd_Click()'清空列表List2.ClearEnd SubPrivate Sub List2MoveCmd_Click()Dim i As Integer'判断所选元素是否只有一个If List2.SelCount = 1 ThenList2.RemoveItem List2.ListIndex'如果所选元素大于1，则按下列操作进行ElseIf List2.ListCount > 1 ThenFor i = List2.ListCount - 1 To 0 Step -1If List2.Selected(i) ThenList2.RemoveItem iEnd IfNext iEnd IfEnd SubPrivate Sub RighttoLeftCmd_Click()Dim i As Integer'判断选中的元素有几个If List2.SelCount = 1 ThenList1.AddItem List2.TextList2.RemoveItem List2.ListIndex'当选中的元素大于一个时ElseIf List2.SelCount > 1 ThenFor i = List2.ListCount - 1 To 0 Step -1'如果该元素被选中，则将其从右边移至左边If List2.Selected(i) ThenList1.AddItem List2.List(i)List2.RemoveItem iEnd IfNext iEnd IfEnd Sub(源程序下载)这个例子包含一个窗体，窗体中有两个列表框（List1、List2）和八个按钮，界面如下：窗体（FormListBox）我们首先新建一个标准的EXE工程，添加一个窗体，并把列表框和按钮控件添加到窗体上。
VB中ListBox的应用
入门——ListBox控件的使用【字体大小：小中大】2008-02-18 19:56 来源：作者：ListBox(列表框)控件可以显示一组项目的列表，用户可以根据需要从中选择一个或多个选项。
列表框可以为用户提供所有选项的列表。
虽然也可设置列表框为多列列表的形式，但在缺省时列表框单列垂直显示所有的选项，如果项目数目超过了列表框可显示的数目，控件上将自动出现滚动条。
这时用户可在列表中上、下、左、右滚动。
ListBox控件在工具箱中的图标如图所示：一、ListBox常用属性1、BackColor 属性：用于显示ListBox控件中的文本和图形的背景颜色，默认为白色(Window)2、BorderStyle 属性：控制在列表框ListBox周围绘制的边框的类型，其枚举值为下面三个：BorderStyle.None——无边框BorderStyle.FixedSingle——单行边框BorderStyle.Fixed3D——三维边框默认值为BorderStyle.Fixed3D。
3、Font、ForeColor 属性：前者用于调整列表框中文本的字体，后者用于调整文本框中文本或者图形的前景色。
4、MultiColumn 属性：指示列表框中的项是否以水平的方式在列表框中显示，默认为False，此时所有的项都只显示为一列，当列表框无法显示全部的项的时候，将会出现一个垂直的滚动条；如果MultiColumn属性为True，则列表框以多列的形式来显示所有的项，如果一列无法全部显示完，则在水平位置重新显示一列，直到显示完毕为止，此时将会出现一个水平滚动条，如下图一所示：5、ColumnWidth 属性：指示“多列列表框”中各列的宽度。
当MultiColumn 属性为True时才起作用，其默认值为0，即将默认宽度分配给每列。
可以使用此属性确保多列 ListBox 中的每列都可正确显示其项，我们可以通过如下代码来自己设置列表框ColumnWidth 属性的值，以确保能以最优的宽度来显示列表：Private Sub SetupMyMultiColumn()Dim x As IntegerDim width As Integer =CInt(ListBox1.CreateGraphics().MeasureString(ListBox1.Items(ListBox1. Items.Count - 1).ToString(), ListBox1.Font).Width)ListBox1.ColumnWidth = widthEnd Sub6、ScrollAlwaysVisible 属性：指示无论列表框中有多少个项，都始终显示滚动条。
vbalistbox拼音排序
vbalistbox拼音排序在很多编程语言中，ListBox（以下简称LB）控件是很常见的一种数据展示形式。
而在Visual Basic（VB）编程中，LB控件被称为vbalistbox（以下简称VLB）。
本文将介绍如何对VLB进行拼音排序，以及如何在实际项目中应用这一排序方法。
一、什么是vbalistboxVB中的vbalistbox（简称VLB）与ListBox控件类似，都可以用来展示一系列的数据项。
不同的是，VLB具有更高的灵活性和更丰富的功能。
VLB可以自适应窗口大小，支持多列显示，还可以通过代码轻松地对其进行操作。
二、vbalistbox的拼音排序原理要对VLB中的数据进行拼音排序，我们可以采用一种基于字符串比较的方法。
首先，我们需要将每个数据项转换为拼音形式，然后按照拼音顺序对数据项进行排序。
这种方法适用于中文、英文等语言的排序，但在实际操作中，针对不同语言需要采用不同的拼音转换方法。
三、拼音排序在vbalistbox中的应用在VB编程中，我们可以通过自定义函数来实现拼音排序。
以下是一个简单的例子：```vbFunction SortByPinyin(strIn As String) As String" 这里可以使用第三方库或自定义算法实现拼音转换" 例如：使用第三方库Dim pinyin As Stringpinyin = ChineseToPinyin(strIn)" 按照拼音排序Dim arrPinyin As String() = pinyin.Split(" ")Array.Sort(arrPinyin, StringComparer.Ordinal)" 拼接排序后的拼音字符串SortByPinyin = String.Join(" ", arrPinyin)End Function```四、如何实现vbalistbox的拼音排序要在VLB中实现拼音排序，我们需要对数据源进行处理。
listbox使用说明
listbox使用说明摘要：1.引言2.Listbox 的定义和用途3.Listbox 的基本属性4.Listbox 的常用方法5.Listbox 的示例代码6.结语正文：【引言】Listbox 是一种常用于计算机编程中的数据结构，它可以用于存储一系列的选项，供用户进行选择。
在本文中，我们将详细介绍Listbox 的使用方法和示例代码。
【Listbox 的定义和用途】Listbox，又称为下拉列表框，是一种用于显示一系列选项的控件。
用户可以在其中选择一个或多个选项，并将所选内容提交给程序。
Listbox 广泛应用于各种计算机程序和网页中，如文本编辑器、邮件客户端、在线调查等。
【Listbox 的基本属性】Listbox 具有以下基本属性：1.选项：Listbox 中显示的选项，由一系列字符串组成。
2.默认选项：当Listbox 为空时显示的选项。
3.选中选项：用户当前选择的选项。
4.多选：Listbox 是否允许用户选择多个选项。
5.滚动条：是否显示滚动条，以便显示更多的选项。
【Listbox 的常用方法】Listbox 的常用方法如下：1.add(item)：向Listbox 中添加一个选项。
2.insert(index, item)：在指定位置插入一个选项。
3.remove(item)：从Listbox 中移除一个选项。
4.removeAt(index)：从Listbox 中移除指定位置的选项。
5.get(index)：获取指定位置的选项。
6.set(index, item)：设置指定位置的选项。
7.clear()：清空Listbox 中的所有选项。
【Listbox 的示例代码】下面是一个使用Python 创建Listbox 的示例代码：```pythonimport tkinter as tkdef on_select(event):selected_item = listbox.get(listbox.CURRENT)print("您选择的选项是：", selected_item)root = ()listbox = tk.Listbox(root, selectmode=tk.MULTIPLE) listbox.pack()listbox.insert(0, "选项一")listbox.insert(1, "选项二")listbox.insert(2, "选项三")listbox.bind("<<ListboxSelect>>", on_select)root.mainloop()```【结语】通过以上介绍，相信大家对Listbox 的使用已经有了基本的了解。
listbox用法
listbox用法Listbox用法Listbox是一种GUI（图形用户界面）控件，主要用于构建菜单、对话框或者是文本编辑器等应用程序中，用户可以从列表中选择单个或者多个项目。
一，Listbox基本用法1，声明Listbox声明一个Listbox控件可以使用Tkinter库中的Listbox类，例如：listbox = Listbox(master, option,...)其中，master指定Listbox的父控件，option部分是Listbox 的配置项，例如：listbox = Listbox(root,width=10,height=2)2，添加列表项要向Listbox添加列表项，首先可以在声明的时候使用关键字参数values传入列表项列表，例如：listbox =Listbox(root,width=10,height=2,values=('red','blue','green' ,'yellow'))也可以使用Listbox实例的insert方法插入指定文本到指定位置，例如：listbox.insert(END,'orange')3，显示列表项要显示列表项，可以使用Listbox实例的pack或者grid方法显示列表，例如：listbox.pack()4，获取所选中的列表项要获取当前所选中的列表项，可以使用Listbox实例的curselection方法获取，它会返回选中项的索引位置，例如：idx = listbox.curselection()二，Listbox配置项Listbox的配置项分为两类，通用配置项和窗口特有配置项，常用的通用配置项如下：height：指定listbox的高度；width：指定listbox的宽度；values：指定listbox中的列表项；selectmode：指定listbox选中模式，默认是BROWSE模式，其他模式有MULTIPLE、SINGLE和EXTENDED；listvariable：指定listbox中的列表项列表，可以是一个变量引用；常用的窗口特有配置项如下：relief：指定listbox的装饰；bg：指定listbox的背景色；fg：指定listbox中列表项的字体颜色；font：指定listbox中列表项的字体；exportselection：指定listbox可以否设置系统的文本选择； activestyle：指定激活的listbox项的样式；selectbackground：指定listbox选中项背景色；selectforeground：指定listbox选中项字体颜色；highlightthickness：指定listbox高亮显示边框的宽度；selectborderwidth：指定选中的边框宽度；borderwidth：指定listbox边框宽度；yscrollcommand：指定listbox支持滚动条三，Listbox方法Listbox实例支持以下方法：activate(index)：激活指定索引位置的列表项；bbox(index)：返回指定索引位置的列表项的矩形边界；curselection()：返回当前选中的列表项的索引位置；delete(first, last=None)：从first开始到last结束的列表项；get(first,last=None)：返回指定索引位置的列表项文本；index(index)：返回指定索引位置的列表项的文本；insert(index, *elements)：在指定索引位置插入一个或多个列表项；nearest(y)：返回离指定位置最近的列表项的索引位置；see(index)：将指定索引位置的列表项滚动到视图中进行显示；size()：返回当前列表项数量；xview(index)：垂直滚动listbox；yview(index)：水平滚动listbox。
VBA窗体之ListBox
VBA窗体之ListBox 实现窗体如下：窗体代码如下：Option Explicit'声名模块级变量Dim cnn As ADODB.ConnectionDim rst As ADODB.Recordset'是否变量空间、关闭数据库连接、关闭窗体Private Sub btnClose_Click()cnn.CloseSet rst = NothingSet cnn = NothingUnload MeEnd Sub'列表框ListDept单击事件,查询部门员⼯'提取员⼯的编号和姓名Private Sub ListDept_Click()Dim sql As Stringsql = "select distinct 编号,姓名 from 员⼯ where 部门='" & ListDept.Value & "' order by 编号 asc"rst.Open sql, cnn, adOpenKeyset, adLockOptimisticDim i As IntegerWith ListEmp.ClearFor i = 1To rst.RecordCount.AddItem rst("编号") & Space(2) & rst("姓名")rst.MoveNextNextEnd Withrst.CloseEnd Sub'将员⼯信息填⼊ textboxPrivate Sub ListEmp_Click()Dim i As Integer, IDStringCut As StringDim arr, brrDim sql As StringIDStringCut = Mid(ListEmp.Value, 1, InStr(ListEmp.Value, Space(2)) - 1)sql = "select * from 员⼯ where 编号='" & IDStringCut & "'"rst.Open sql, cnn, adOpenKeyset, adLockOptimistic'将每个字段的值存⼊空间arr = Array("txtID", "txtName", "txtAge", "txtIDcard", "txtDate", "txtAddress", _ "txtDept", "txtJob", "txtEMail", "txtCV")brr = Array("编号", "姓名", "年龄", "⾝份证号", "聘⽤时间", "⼯作地", _ "部门", "职务", "电⼦邮件", "简历")For i = 0To UBound(arr)Me.Controls(arr(i)).Value = rst(brr(i))Nextrst.CloseEnd Sub'当窗体加载时，填写listDeptPrivate Sub UserForm_Initialize()'建⽴数据库连接Set cnn = New ADODB.Connectioncnn_open cnn'提取不重复部门名称Dim sql As Stringsql = "select distinct 部门 from 员⼯"'执⾏sql语句Set rst = New ADODB.Recordsetrst.Open sql, cnn, adOpenKeyset, adLockOptimistic'将记录集中的部门显⽰到 listDept 列表框中Dim i As IntegerWith ListDept.Clear '先清空再添加For i = 1To rst.RecordCount.AddItem rst("部门")rst.MoveNext '将记录集中的指针指向下⼀条记录NextEnd Withrst.CloseEnd SubSub cnn_open(cnn)With cnn.Provider = "microsoft.ace.oledb.12.0".ConnectionString = "data source=" & ThisWorkbook.Path & "\学⽣管理.accdb" .OpenEnd WithEnd Sub。
vba中窗体listbox1选择后在listbox2中编辑
vba中窗体listbox1选择后在listbox2中编辑Option Explicit'得到c列单元格不为空的最大行Private Function MaxCol(c As Long) As IntegerDim r As LongFor r = 1 To 65536If Cells(r c).Text = "" ThenExit ForEnd IfNext rMaxCol = r - 1End FunctionPrivate Sub SetListBox2Items(c As Long)Dim r As Long rn As LongListBox2.Clearrn = MaxCol(c) '调用MaxCol模块，判断所选列的行数For r = 2 To rnListBox2.AddItem Cells(r c) '每一行的值都显示出来Next rEnd SubPrivate Sub CommandButton1_Click()’增加按钮Dim ast As StringIf ListBox1.ListIndex < 0 ThenMsgBox ("无选中的父项！")Exit SubEnd Ifast = InputBox("输入要增加的内容：")If ast <> "" ThenCells(ListBox2.ListCount + 2 ListBox1.ListIndex + 1) = astCall SetListBox2Items(ListBox1.ListIndex + 1)End IfEnd SubPrivate Sub CommandButton2_Click() '修改按键，提示窗内输入修改为什么内容 Dim ast As StringIf ListBox2.ListIndex < 0 Then '当未对文本框2内的内容作选择时的提示MsgBox ("请先选中要修改的子项！")Exit SubEnd Ifast = InputBox("本项原内容为：" _& Cells(ListBox2.ListIndex + 2 ListBox1.ListIndex + 1) _& vbCrLf & "将修改后内容输入下面的文本框：")If ast <> "" Then '判断无输入时的操作Cells(ListBox2.ListIndex + 2 ListBox1.ListIndex + 1) = astCall SetListBox2Items(ListBox1.ListIndex + 1)End IfEnd SubPrivate Sub CommandButton3_Click()’删除按钮If ListBox2.ListIndex < 0 ThenMsgBox ("请先选中要删除的子项！")Exit SubEnd IfIf MsgBox("本项内容为：" _& Cells(ListBox2.ListIndex + 2 ListBox1.ListIndex + 1) _& vbCrLf & "是否确认删除？" vbOKCancel "删除子项") = vbOK ThenCells(ListBox2.ListIndex + 2 ListBox1.ListIndex + 1).Delete 2 Call SetListBox2Items(ListBox1.ListIndex + 1)End IfEnd SubPrivate Sub ListBox1_Click()’有选项被选中就运行Call SetListBox2Items(ListBox1.ListIndex + 1) '当选择第一个文本框内容时，调用模块SetListBox2Items，完成显示文本框2的内容End SubPrivate Sub UserForm_Activate()’窗口激活时，载入listbox1的初始内容Dim r As Integer c As IntegerListBox1.ClearFor c = 1 To 10ListBox1.AddItem Cells(1 c)Next cEnd Sub。
用VB做列表框的应用技巧
用VB做列表框的应用技巧一、程序设计界面：用VB做一个列表框向另外的列表框中添加选项并不是一件复杂的事情，在此向各位初学者（包括自己在内）介绍一下如何用列表框的属性和事件来实现这个功能。
新建一个标准EXE工程，在屏幕上会出现一个空白的窗体，向窗体上添加两个ListBox控件、二个Frame控件、四个CommandButton控件和二个OptionButton控件，添加控件后的窗体如图1所示。
图1二、控件属性及设置列表：图2提示：MultiSelect设置为“2－Extended”，就可实现用Ctrl键和Shift键来选择列表中的内容。
三、程序的代码分别如下：1.开始执行程序时，调用程序声明段中的代码：Dim flag(100) As Boolean, ff As BooleanDim i, g As Integer2.双击控件Command1，在代码窗口中的光标就会自动的跳转到控件Command1的Command1_Click()事件处，在该事件中添加下列代码：Private Sub Command1_Click() '添加…>>If ff = True ThenFor i = 0 To List1.ListCount - 1If flag(i) = 0 And List1.Selected(i) Then '判断选项的选中状态List2.AddItem List1.List(i) '向控件list2添加选项flag(i) = 1Call mun '调用统计列表个数End IfNext iEnd IfIf ff = False ThenFor i = List1.ListCount - 1 To 0 Step -1If List1.Selected(i) Then '判断选项的选中状态List2.AddItem List1.List(i) '向控件list2添加内容List1.RemoveItem (i)Call mun '调用统计列表个数End IfNext iEnd IfEnd Sub3.双击Command2控件，并输入如下代码：Private Sub Command2_Click() '全部添加If ff = True ThenFor i = 0 To List1.ListCount - 1If flag(i) = 0 ThenList2.AddItem List1.List(i) '将已选项追加到list2中flag(i) = 1Call munEnd IfNext iEnd IfIf ff = False ThenFor i = List1.ListCount - 1 To 0 Step -1List2.AddItem List1.List(i) '将已选项追加到list2中List1.RemoveItem (i) '删除已选项Call munNext iEnd IfEnd Sub4.双击Command3控件，并输入如下代码：Private Sub Command3_Click() '全部删除If ff = True ThenFor i = 0 To List2.ListCount - 1flag(i) = 0Call munNext iList2.ClearEnd IfIf ff = False ThenFor i = List2.ListCount - 1 To 0 Step -1List1.AddItem List2.List(i)List2.RemoveItem (i)Call munNext iEnd IfEnd Sub5.双击Command4控件，并输入如下代码：Private Sub Command4_Click() '删除<<…If ff = True ThenFor i = List2.ListCount - 1 To 0 Step -1If List2.Selected(i) Then '判断选项的选中状态For q = 0 To List1.ListCount - 1If List2.List(i) = List1.List(q) Thenflag(q) = 0 '如与原数据相同则置为可选End IfNext qList2.RemoveItem (i) '删除所选项Call munEnd IfNext iEnd IfIf ff = False ThenFor i = List2.ListCount - 1 To 0 Step -1If List2.Selected(i) ThenList1.AddItem List2.List(i)List2.RemoveItem (i)Call munEnd IfNext iEnd IfEnd Sub6.双击Form1窗体，并输入窗体的初始化代码：Private Sub Form_Load()ff = TrueCall InitCall mun '调用统计列表个数的函数Frame1.Caption="功能转换"Frame2.Caption = ""Option1(0).ToolTipText = "实现只向List2控件添加内容并不删除原内容"Option1(1).ToolTipText = "实现向List2控件添加内容并将其原内容删除"Me.Icon = LoadPicture("") '标题栏没图标显示Me.Caption = "列表框应用技巧[威龙工作室]"End Sub7.选择Form1的“Unload”并输入下列代码：Private Sub Form_Unload(Cancel As Integer)Unload Me '结束程序End Sub8.选择List1控件的“DblClick”并输入下列代码：Private Sub List1_DblClick()Command1_Click '实现双击添加End Sub9.选择List2控件的“DblClick”并输入下列代码：Private Sub List2_DblClick()Command4_Click '实现双击删除End Sub提示：各位在执行某个程序时，想执行某个程序的代码，可以如上述第8和第9段代码一样就可以执行添加按钮和删除按钮相同的工作了。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
入门——ListBox控件的使用
【字体大小：小中大】2008-02-18 19:56 来源：作者：
ListBox(列表框)控件可以显示一组项目的列表，用户可以根据需要从中选择一个或多个选项。
列表框可以为用户提供所有选项的列表。
虽然也可设置列表框为多列列表的形式，但在缺省时列表框单列垂直显示所有的选项，如果项目数目超过了列表框可显示的数目，控件上将自动出现滚动条。
这时用户可在列表中上、下、左、右滚动。
ListBox控件在工具箱中的图标如图所示：
一、ListBox常用属性
1、BackColor 属性：用于显示ListBox控件中的文本和图形的背景颜色，默认为白色(Window)
2、BorderStyle 属性：控制在列表框ListBox周围绘制的边框的类型，其枚举值为下面三个：
BorderStyle.None——无边框
BorderStyle.FixedSingle——单行边框
BorderStyle.Fixed3D——三维边框
默认值为BorderStyle.Fixed3D。
3、Font、ForeColor 属性：前者用于调整列表框中文本的字体，后者用于调整文本框中文本或者图形的前景色。
4、MultiColumn 属性：指示列表框中的项是否以水平的方式在列表框中显示，默认为False，此时所有的项都只显示为一列，当列表框无法显示全部的项的时候，将会出现一个垂直的滚动条；如果MultiColumn属性为True，则列表框以多列的形式来显示所有的项，如果一列无法全部显示完，则在水平位置重新显示一列，直到显示完毕为止，此时将会出现一个水平滚动条，如下图一所示：
5、ColumnWidth 属性：指示“多列列表框”中各列的宽度。
当MultiColumn 属性为True时才起作用，其默认值为0，即将默认宽度分配给每列。
可以使用此属性确保多列 ListBox 中的每列都可正确显示其项，我们可以通过如下代码来自己设置列表框ColumnWidth 属性的值，以确保能以最优的宽度来显示列表：
Private Sub SetupMyMultiColumn()
Dim x As Integer
Dim width As Integer =
CInt(ListBox1.CreateGraphics().MeasureString(ListBox1.Items(ListBox1. Items.Count - 1).ToString(), ListBox1.Font).Width)
ListBox1.ColumnWidth = width
End Sub
6、ScrollAlwaysVisible 属性：指示无论列表框中有多少个项，都始终显示滚动条。
默认为False
7、HorizontalScrollbar 属性：指示是否为超过列表框右边缘的项目显示滚动条，默认为False。
该属性在列表框以单列显示列表的时候比较有用，与之配合使用的还有HorizontalExtent 属性。
8、SelectionMode 属性：指示列表框式单项选择、多项选择还是不可选择，其枚举值有下面四个：
MultiExtended——可以选择多项，并且用户可使用 SHIFT 键、CTRL 键和箭头键来进行选择。
MultiSimple——可以选择多项。
None——无法选择项。
One——只能选择一项。
默认是One
9、SelectedItems、SelectedItem、SelectedIndex 属性：这三个属性都与选择列表框中的项有关。
SelectedItems 属性返回的是ListBox当前选定的项的集合；SelectedItem属性返回的是ListBox中选定的第一项，也是SelectedItems 集合中的第一项；SelectedIndex 属性返回的是SelectedItem在列表框中的索引，其值是一个整数，如果列表框未选定任何项，则它的值为-1，我们还可以通过改变它的值来更改选定项。
10、Items 属性：返回的是列表框的所有项的集合。
后面的9、10属性属于比较常用的，更详细的使用我们将在下面通过实例来掌握它们
二、向列表框中添加项目
1、设计时添加项目：
我们可以在设计的时候为ListBox控件添加列表项目。
选择ListBox控件，在它的属性窗口中找到Items属性，单击后面的省略号，进入“字符串集合编辑器”中，按要求和需要输入即可，然后单击“确认”。
如下图二所示：
图二：编辑列表框的列表项目
2、在编程时添加项目：
编程时添加列表项目灵活多变，将会是我们以后使用列表框的主要手段，所以我们一定要学会怎么在编程时添加项目。
对于这个，我们主要是使用ListBox1.Items.Add(item)方法来实现。
如下代码所示：
Sub AddItem()
ListBox1.Items.Add("aaaaaa")
ListBox1.Items.Add("bbbbbb")
ListBox1.Items.Add("cccccc")
ListBox1.Items.Add("dddddd")
ListBox1.Items.Add("eeeeee")
ListBox1.Items.Add("ffffff")
ListBox1.Items.Add("gggggg")
ListBox1.Items.Add("kkkkkk")
ListBox1.Items.Add("llllll")
End Sub
上面代码是一个添加列表项的过程，我们可以把它放在任何可以初始化控件的位置，例如我们放在一个按钮的Click事件中，执行之后，就会在列表框中显示出上面添加的各项了
三、ListBox的Item的其它方法
1、插入项目：
此外还可以通过ListBox1.Items.Insert()方法来在已经存在的列表中插入一个项目，例如如下代码：
ListBox1.Items.Insert(1, "插入的项目")
效果如下图三所示：
三、ListBox的Item的其它方法
1、插入项目：
此外还可以通过ListBox1.Items.Insert()方法来在已经存在的列表中插入一个项目，例如如下代码：
ListBox1.Items.Insert(1, "插入的项目")
效果如下图三所示：
入门教程
图解入门
细说ＶＢ．ＮＥＴ
全面剖析
菜单设计初级入门
一个的用户登陆页面代码
应用集锦
中访问数据方法大全
VB和中的XML操作
在中怎么实现多窗体同步
图三：在已经存在的列表中插入项目
使用该方法需要注意的是：插入的位置不能超过列表框中已经有的项的最大索引，否则会出错。
2、Items.Clear方法和Items.Count方法：
Items.Clear方法是用来清除列表框中的项目的。
Items.Count方法用于获取列表框中项目的总数。
3、删除项目：
使用Items.Remove（value）方法来删除指定的项目,value 是一个对象，表示要从集合中移除的项。
示例如下：
ListBox1.Items.Remove(ListBox1.Items.Item(3))
删除列表框中的第4个项目(注意：Item的索引是从0开始的)
4、通过索引来访问指定的项
我们可以通过Items.item来访问指定索引的项目，如下
ListBox1.Items.Item(3)'访问第四个项目。
5、SelectItems 的应用
ListBox1.SelectionMode = SelectionMode.MultiSimple
'用代码指定选中列表中索引为0、3、6的三项
ListBox1.SelectedIndex = 0
ListBox1.SelectedIndex = 3
ListBox1.SelectedIndex = 6
'获取选定项目的总数，返回结果为3
MessageBox.Show(ListBox1.SelectedItems.Count().ToString)
'获取选中项目的第一项，返回结果为索引为0的项目的文本
MessageBox.Show(ListBox1.SelectedItem.ToString)
'获取选中项目中索引为1的项目的文本，返回结果是选中项目中的第二项，也就是ListBox1.SelectedIndex = 3这一项。
MessageBox.Show(ListBox1.SelectedItems.Item(1).ToString)
此外ListBox还提供了BeginUpdate、EndUpdate方法用于大批量处理Add项。