用vb做列表框的应用技巧

《用vb做列表框的应用技巧》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、用VB做列表框的应用技巧　一、程序设计界面：　　用VB做一个列表框向另外的列表框中添加选项并不是一件复杂的事情，在此向各位初学者（包括自己在内）介绍一下如何用列表框的属性和事件来实现这个功能。　　新建一个标准EXE工程，在屏幕上会出现一个空白的窗体，向窗体上添加两个ListBox控件、二个Frame控件、四个CommandButton控件和二个OptionButton控件，添加控件后的窗体如图1所示。图1　二、控件属性及设置列表：图26提示：MultiSelect设置为“2－Extended”，就可实现用Ctrl键和Shift键来选择列表中的内容

2、。三、程序的代码分别如下：1.开始执行程序时，调用程序声明段中的代码：Dimflag(100)AsBoolean,ffAsBooleanDimi,gAsInteger2.双击控件Command1，在代码窗口中的光标就会自动的跳转到控件Command1的　Command1_Click()事件处，在该事件中添加下列代码：PrivateSubCommand1_Click()'添加…>>Ifff=TrueThenFori=0ToList1.ListCount-1Ifflag(i)=0AndList1.Selected(i)Then'判断选项的选中状态Li

3、st2.AddItemList1.List(i)'向控件list2添加选项flag(i)=1Callmun'调用统计列表个数EndIfNextiEndIfIfff=FalseThenFori=List1.ListCount-1To0Step-1IfList1.Selected(i)Then'判断选项的选中状态List2.AddItemList1.List(i)'向控件list2添加内容List1.RemoveItem(i)Callmun'调用统计列表个数EndIfNextiEndIfEndSub3.双击Command2控件，并输入如下代码：Pri

4、vateSubCommand2_Click()'全部添加Ifff=TrueThenFori=0ToList1.ListCount-1Ifflag(i)=0ThenList2.AddItemList1.List(i)'将已选项追加到list2中flag(i)=1CallmunEndIfNextiEndIf6Ifff=FalseThenFori=List1.ListCount-1To0Step-1List2.AddItemList1.List(i)'将已选项追加到list2中List1.RemoveItem(i)'删除已选项CallmunNextiE

5、ndIfEndSub4.双击Command3控件，并输入如下代码：PrivateSubCommand3_Click()'全部删除Ifff=TrueThenFori=0ToList2.ListCount-1flag(i)=0CallmunNextiList2.ClearEndIfIfff=FalseThenFori=List2.ListCount-1To0Step-1List1.AddItemList2.List(i)List2.RemoveItem(i)CallmunNextiEndIfEndSub5.双击Command4控件，并输入如下代码：P

6、rivateSubCommand4_Click()'删除<<…Ifff=TrueThenFori=List2.ListCount-1To0Step-1IfList2.Selected(i)Then'判断选项的选中状态Forq=0ToList1.ListCount-1IfList2.List(i)=List1.List(q)Thenflag(q)=0'如与原数据相同则置为可选EndIfNextqList2.RemoveItem(i)'删除所选项CallmunEndIfNextiEndIfIfff=FalseThenFori=List2.ListCo

7、unt-1To0Step-16IfList2.Selected(i)ThenList1.AddItemList2.List(i)List2.RemoveItem(i)CallmunEndIfNextiEndIfEndSub6.双击Form1窗体，并输入窗体的初始化代码：PrivateSubForm_Load()ff=TrueCallInitCallmun'调用统计列表个数的函数Frame1.Caption="功能转换"Frame2.Caption=""Option1(0).ToolTipText="实现只向List2控件添加内容并不删除原内容"O

8、ption1(1).ToolTipText="实现向List2控件添加内容并将其原内容删除"Me.Icon=LoadPicture(""