实验十五 列表框与组合框

《实验十五 列表框与组合框》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实验十五列表框与组合框[实验目的]1.加深对列表框、组合列表框等控件的常用属性、事件和方法的理解。2.掌握列表框、组合列表框等控件的主要作用与基本用法。3.学习使用这些控件来编写解决实际问题的程序。[实验内容]1.设计说明：当窗体加载时，列表框添加所有项目，且性别默认为“男”性。定义2个全局变量xb和jg，用来保存性别和籍贯。单击“输出”，按以下格式输出：张三，男，北京人DimxbAsString,jgAsStringPrivateSubCommand1_Click()Label3.Caption=Text1.Text&","&xb&","&jg&"人"EndSubPrivateSub

2、Form_Load()List1.AddItem"上海"List1.AddItem"北京"List1.AddItem"合肥"List1.AddItem"南京"List1.AddItem"天津"Option1.Value=TrueEndSubPrivateSubList1_Click()jg=List1.TextEndSubPrivateSubOption1_Click()xb="男"EndSubPrivateSubOption2_Click()xb="女"EndSub2.实现对列表框中的项目进行添加、删除、修改操作。PrivateSubForm_Load()List1.AddItem"

3、计算机文化基础"List1.AddItem"VB6.0程序设计教程"List1.AddItem"操作系统"List1.AddItem"多媒体技术"List1.AddItem"网络技术基础"EndSubPrivateSubcommand1_Click()List1.AddItemText1.TextText1.Text=""EndSubPrivateSubcommand2_Click()List1.RemoveItemList1.ListIndexEndSubPrivateSubcommand3_Click()List1.List(List1.ListIndex)=Text1.TextE

4、ndSubPrivateSublist1_Click()Text1.Text=List1.TextText1.SetFocusEndSub3.在下拉式组合框输入内容，将不重复的内容作为列表项加入。即在文本框中输入字符串，如果此字符串在组合框的列表项中不存在则添加，如果存在则放弃。PrivateSubcmbAddItem_KeyPress(KeyAsciiAsInteger)DimbTagAsBooleanIfKeyAscii=13Then'用户按下回车键bTag=False'遍历组合框的所有列表项，如果找到，则bTag为TrueFori=0TocmbAddItem.ListCount-

5、1IfcmbAddItem.Text=cmbAddItem.List(i)ThenbTag=TrueNextiIfNotbTagThencmbAddItem.AddItemcmbAddItem.TextcmbAddItem.Text=""EndIfEndSubØ4.控制10个小圆的降落运动。程序界面设计如图6.25所示，窗体左上角第一个小圆为设计时放置的Shape1(0)，其余小圆是动态加载的；右下方的三个按钮是设计时放置的Command1()控件数组，它们共用了一个事件过程。另外，使用了一个计时器控件，每100毫秒控制小圆位置变化一次。Ø要求：点击“运动”按钮可以使各小圆以不同的速度

6、下落，当小圆落到底边后将会回到顶部继续下落。“隐藏”按钮可使Index为偶数的小圆改变显示状态。“复位”按钮可使所有小圆回到初始位置。PrivateSubForm_Load()Shape1(0).FillColor=RGB(100,100,250)Fori=1To9LoadShape1(i)'加载控件Shape1(i).Left=Shape1(0).Left+400*i'设置位置Shape1(i).Top=Shape1(0).Top'设置填充色Shape1(i).FillColor=RGB(100,100,250-i*10)Shape1(i).Visible=True'使之可见Next

7、iEndSubPrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0'第0个按钮Timer1.Enabled=NotTimer1.EnabledIfTimer1.EnabledThen'改变按钮的标题Command1(0).Caption="停止"ElseCommand1(0).Caption="运动"EndIfCase1'第1个按钮Fori=0To9IfiMod2=0Then'