用Visual Basic做列表框的应用技巧

作者: 来源:网络文章时间:2005-12-13 15:11:44

用Visual Basic做列表框的应用技巧(1) 一、程序设计界面：

　　用VB做一个列表框向另外的列表框中添加选项并不是一件复杂的事情，在此向各位初学者（包括自己在内＾＿＾）介绍一下如何用列表框的属性和事件来实现这个功能。

　　新建一个标准EXE工程，在屏幕上会出现一个空白的窗体，向窗体上添加两个ListBox控件、二个Frame控件、四个CommandButton控件和二个OptionButton控件，添加控件后的窗体如图1所示。

　　

20030822-1.jpg">

图1

　　二、控件属性及设置列表：

　　

图2

　　提示：MultiSelect设置为“2－Extended”就实现用Ctrl键和Shift键来选择列表中的内容。

　　三、程序的代码分别如下：

　　'1.开始执行程序时，调用程序声明段中的代码：

Dim flag(100) As Boolean, ff As Boolean
Dim i, g As Integer

　　'2.双击控件Command1，在代码窗口中的光标就会自动的跳转到控件Command1的　

Command1_Click()事件处，在该事件中添加下列代码：
Private Sub Command1_Click() '添加…>>
If ff = True Then
For i = 0 To List1.ListCount - 1
If flag(i) = 0 And List1.Selected(i) Then '判断选项的选中状态
List2.AddItem List1.List(i) '向控件list2添加选项
flag(i) = 1
Call mun '调用统计列表个数
End If
Next i
End If
If ff = False Then
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) Then '判断选项的选中状态
List2.AddItem List1.List(i) '向控件list2添加内容
List1.RemoveItem (i)
Call mun '调用统计列表个数
End If
Next i
End If
End Sub

　　'3.双击Command2控件，并输入如下代码：

Private Sub Command2_Click() '全部添加
If ff = True Then
For i = 0 To List1.ListCount - 1
If flag(i) = 0 Then
List2.AddItem List1.List(i) '将已选项追加到list2中
flag(i) = 1
Call mun
End If
Next i
End If
If ff = False Then
For i = List1.ListCount - 1 To 0 Step -1

1.用Visual Basic做列表框的应用技巧(1)
2.用Visual Basic做列表框的应用技巧(2)
3.用Visual Basic做列表框的应用技巧(3)

共3页 9 7 [1] [2] [3] 8 :>

用Visual Basic做列表框的应用技巧相关文章：

用Visual Basic做列表框的应用技巧相关软件：

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
转载请注明来源：http://www.xgdown.com