用VB做列表框的应用技巧

1 用VB 做列表框的应用技巧 一、程序设计界面： 用VB 做一个列表框向另外的列表框中添加选项并不是一件复杂的事情，在此向各位初学者（包括自己在内）介绍一下如何用列表框的属性和事件来实现这个功能。 新建一个标准 EXE 工程，在屏幕上会出现一个空白的窗体，向窗体上添加两个 ListBox 控件、二个 Frame 控件、四个 CommandBu tton 控件和二个OptionBu tton 控件，添加控件后的窗体如图 1 所示。 图 1 二、控件属性及设置列表： 图 2 2 提示：Mu ltiSelect 设置为“2－Extended”，就可实现用Ctrl 键和Shift 键来选择列表中的内容。 三、程序的代码分别如下： 1.开始执行程序时，调用程序声明段中的代码： Dim flag(100) As Boolean, ff As Boolean Dim i, g As Integer 2.双击控件 Command1，在代码窗口中的光标就会自动的跳转到控件Command1 的 Command1_Click()事件处，在该事件中添加下列代码： Priv ate Su b Command1_Click() '添加… >> If ff = Tru e Then For i = 0 To List1.ListCou nt - 1 If flag(i) = 0 And List1.Selected(i) Then '判断选项的选中状态 List2.AddItem List1.List(i) '向控件 list2 添加选项 flag(i) = 1 Call mu n '调用统计列表个数 End If Nex t i End If If ff = False Then For i = List1.ListCou nt - 1 To 0 Step -1 If List1.Selected(i) Then '判断选项的选中状态 List2.AddItem List1.List(i) '向控件 list2 添加内容 List1.Remov eItem (i) Call mu n '调用统计列表个数 End If Nex t i End If End Su b 3.双击 Command2 控件，并输入如下代码： Priv ate Su b Command2_Click() '全部添加 If ff = Tru e Then For i = 0 To List1.ListCou nt - 1 If flag(i) = 0 Then List2.AddItem List1.List(i) '将已选项追加到 list2 中 flag(i) = 1 Call mu n End If Nex t i End If 3 If ff = False Then For i = List1.ListCou nt - 1 To 0 Step -1 List2.AddItem List1.List(i) '将已选项追加到list2 中 List1.Remov eItem (i) '删除已选项 Call mu n Nex t i End If End Su b 4.双击Command3 控件，并输入如下代码： Priv ate Su b Command3_Click() '全部删除 ...