【VB开源代码栏目提醒】：网学会员VB开源代码为您提供Ex8_9.frm参考，解决您在Ex8_9.frm学习中工作中的难题，参考学习。
VERSION 5.00
Begin VB.Form Ex8_9
Caption = "列表框控件的应用"
ClientHeight = 4170
ClientLeft = 60
ClientTop = 450
ClientWidth = 5130
LinkTopic = "Form1"
ScaleHeight = 4170
ScaleWidth = 5130
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command8
Caption = "清除所有项目"
Height = 375
Left = 3000
TabIndex = 9
Top = 3480
Width = 1695
End
Begin VB.CommandButton Command7
Caption = "添加新项目"
Height = 375
Left = 3000
TabIndex = 8
Top = 2880
Width = 1695
End
Begin VB.CommandButton Command6
Caption = "删除所选项目"
Height = 375
Left = 3000
TabIndex = 7
Top = 2280
Width = 1695
End
Begin VB.CommandButton Command5
Caption = "清除所有项目"
Height = 375
Left = 480
TabIndex = 6
Top = 3480
Width = 1695
End
Begin VB.CommandButton Command4
Caption = "添加新项目"
Height = 375
Left = 480
TabIndex = 5
Top = 2880
Width = 1695
End
Begin VB.CommandButton Command3
Caption = "删除所选项目"
Height = 375
Left = 480
TabIndex = 4
Top = 2280
Width = 1695
End
Begin
VB.CommandButton Command2
Caption = "<<"
Height = 375
Left = 2400
TabIndex = 3
Top = 1560
Width = 375
End
Begin VB.CommandButton Command1
Caption = ">>"
Height = 375
Left = 2400
TabIndex = 2
Top = 720
Width = 375
End
Begin VB.ListBox List2
Height = 1860
Left = 2880
MultiSelect = 2 'Extended
Sorted = -1 'True
TabIndex = 1
Top = 240
Width = 1935
End
Begin VB.ListBox List1
Height = 1860
Left = 360
TabIndex = 0
Top = 240
Width = 1935
End
End
Attribute VB_Name = "Ex8_9"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'--------------------------------------
' 简单的列表框ListBox的例子
'--------------------------------------
'------名称-------------作用------------
' List1、List2 列表框
' Command1 移动所选项目到另一个列表框（左到右）
' Command2 移动所选项目到另一个列表框（右到左）
' Command3 删除列表框List1中所选项目
' Command6 删除列表框List2中所选项目
' Command4 给列表框List1增加新项目
' Command7 给列表框List2增加新项目
' Command5 清空列表框List1
' Command8 清空列表框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 Command1_Click()
'将左边列表中所选元素移动到右边
列表中
If List1.ListIndex >= 0 Then
'在右边列表中增加新元素
List2.AddItem List1.Text
'删除左边列表中的所选元素
List1.RemoveItem List1.ListIndex
End If
End Sub
Private Sub Command2_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
Private Sub Command3_Click()
If List1.ListIndex >= 0 Then
'删除左边列表中的所选元素
List1.RemoveItem List1.ListIndex
End If
End Sub
Private Sub Command4_Click()
Dim ListItem As String
ListItem = InputBox("在列表中输入新项目")
'向列表中加入新项目
If Trim(ListItem) <> "" Then
'Trim()作用是清除ListItem字符串内的空格
List1.AddItem ListItem
End If
End Sub
Private Sub Command5_Click()
'清空列表
List1.Clear
End Sub
Private Sub Command6_Click()
Dim i As Integer
'判断列表框是否只有一个项目被选中
If List2.SelCount = 1 Then
List2.RemoveItem List2.ListIndex
ElseIf List2.ListCount > 1 Then
'删除列表框中的所选中的多个项目
For i = List2.ListCount - 1 To 0 Step -1
'ListCount返回列表框中的项目总数
'ListCount-1是列表框中最后一个项目的索引号
'判断该项目是否被选中，Selected()返回布尔值
If List2.Selected(i) Then
'删除索引号为i的项目
List2.RemoveItem i
End If
Next
End If
End Sub
Private Sub Command7_Click()
'定义变量，以接收输入的字符串
Dim ListItem As String
ListItem = InputBox("在列表中输入新项目")
If Trim(ListItem) <> "" Then
'将字符串增加到列表中
List2.AddItem ListItem
End If
End Sub
Private Sub Command8_Click()
'清空列表
List2.Clear
End Sub
相关文章
2013-9-1
