用VB做列表框应用技巧.doc

用VB做列表框的应用技巧一、程序设计界面：用VB做一个列表框向另外的列表框中添加选项并不是一件复杂的事情，在此向各位初学者（包括自己在内）介绍一下如何用列表框的属性和事件来实现这个功能。新建一个标准EXE工程，在屏幕上会出现一个空白的窗体，向窗体上添加两个ListBox控件、二个Frame控件、四个CommandButton控件和二个OptionButton控件，添加控件后的窗体如图1所示。图1二、控件属性及设置列表：图2 提示：MultiSelect设置为“2Extended”，就可实现用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 Sub 4.双击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段代码一样就可以执行添加按钮和删除按钮相同的工作了。10.双击Option1控件，并输入下列代码来实现功能转换：Private Sub Option1_Click(Index As Integer)Select Case IndexCase 0ff = TrueCall InitCall munCase 1ff = FalseCall InitCall munEnd SelectEnd Sub11.分别统计出两个列表框中数据的个数：Private Sub mun()Label1.Caption = 列表框元素个数: & List1.ListCountLabel2.Caption = 列表框元素个数: & List2.ListCountEnd Sub12.初始化列表框的内容：Private Sub Init()For i = 0 To List1.ListCount - 1flag(i) = 0Next iList1.Clear 清除List1控件初始化控件List1信息List1.AddItem 北京List1.AddItem 广州List1.AddItem 上海List1.AddItem 台湾List1.AddItem 香港List1.AddItem 大连List1.AddItem 澳门List1.AddItem 深圳List1.AddItem 成都List1.AddItem 西藏自治区List1.AddItem 云南List1.AddItem 桂林List1.AddItem 内蒙古自治区List1.AddItem 重庆List1.AddItem 哈尔滨List1.AddItem 天津List1.AddItem 海南