Private Sub Form_Load()РList1.AddItem "Word"РList1.AddItem "Excel"РList1.AddItem "PowerPoint"РList1.AddItem "Outlook"РEnd SubР程序设计10 Р1、在窗体上放置两个列表框控件,在它的Iist中输入一些内容。Р2、当单击“<”按钮时,把Iist2中的一项放到list1中,并且在list2中删除该项。Р3、当单击“<<”按钮时,把list1中,并且清空list2。Р4、当单击“>”按钮时,把list2中选中的一项放到list2中,并且在list1中,并且在list1中删除该项。Р5、当单击“>>”按钮时,把list1中所有的项放到list2中,并且清空list1。Р6、当单击“结素“按钮时,退出应用程序。Р7、界面及功能设计请参考cx10.exe文件。Р程序设计10题解:Р一、根据题目要求及样例,在Form1窗体上画出各控件,并根据题意按下表对窗体和各控件设置属性值。Р控件名称Р属性Р属性值Р备注РList1РlistР111,222Р增加列表项РList2РlistР333,444Р增加列表项РCommand1РcaptionР>РCommand2РcaptionР>>РCommand3РcaptionР<<РCommand4РcaptionР<РCommand5РcaptionР结束Р二、根据题意,编写如下事件过程代码:РPrivate mand1_Click()Р If List1.ListIndex = -1 ThenР MsgBox "请选择一列表项"Р ElseР List2.AddItem List1.List(List1.ListIndex)Р List1.RemoveItem List1.ListIndexР End IfРEnd Sub
全文预览