用Visual Basic做列表框的应用技巧(2)
List2.AddItem List1.List(i) '将已选项追加到list2中
List1.RemoveItem (i) '删除已选项
Call mun
Next i
End If
End Sub
'4.双击Command3控件，并输入如下代码：
Private Sub Command3_Click() '全部删除
If ff = True Then
For i = 0 To List2.ListCount - 1
flag(i) = 0
Call mun
Next i
List2.Clear
End If
If ff = False Then
For i = List2.ListCount - 1 To 0 Step -1
List1.AddItem List2.List(i)
List2.RemoveItem (i)
Call mun
Next i
End If
End Sub
'5.双击Command4控件，并输入如下代码：
Private Sub Command4_Click() '删除<<…
If ff = True Then
For i = List2.ListCount - 1 To 0 Step -1
If List2.Selected(i) Then '判断选项的选中状态
For q = 0 To List1.ListCount - 1
If List2.List(i) = List1.List(q) Then
flag(q) = 0 '如与原数据相同则置为可选
End If
Next q
List2.RemoveItem (i) '删除所选项
Call mun
End If
Next i
End If
If ff = False Then
For i = List2.ListCount - 1 To 0 Step -1
If List2.Selected(i) Then
List1.AddItem List2.List(i)
List2.RemoveItem (i)
Call mun
End If
Next i
End If
End Sub
'6.双击Form1窗体，并输入窗体的初始化代码：
Private Sub Form_Load()
ff = True
Call Init
Call mun '调用统计列表个数的函数
Frame1.Caption="功能转换"
Frame2.Caption = ""
Option1(0).ToolTipText = "实现只向List2控件添加内容并不删除原内容"
Option1(1).ToolTipText = "实现向List2控件添加内容并将其原内容删除"
Me.Icon = LoadPicture("") '标题栏没图标显示
Me.Caption = "列表框应用技巧 [威龙工作室]"
End Sub
'7.选择Form1的“Unload”并输入下列代码：
Private Sub Form_Unload(Cancel As Integer)
Unload Me '结束程序
End Sub
'8.选择List1控件的“DblClick”并输入下列代码：
Private Sub List1_DblClick()
Command1_Click '实现双击添加
End Sub
'9.选择List2控件的“DblClick”并输入下列代码：
Private Sub List2_DblClick()
Command4_Click '实现双击删除
End Sub
' 提示：各位在执行某个程序时，想执行某个程序的代码，可以如上述第8和第9段代码一样就可以执行添加按钮和删除按钮相同的工作了。
