实验十五列表框与组合框.docxVIP

实验十五列表框与组合框 ［实验目的］ 加深对列表框、组合列表框等控件的常用属性、事件和方法的理解。 掌握列表框、组合列表框等控件的主要作用与基本用法。 学习使用这些控件来编写解决实际问题的程序。 ［实验内容］ 1 ?设计说明： 当窗体加载时，列表框添加所有项目，且性别默认为“男”性。 定义2个全局变量xb和jg,用来保存性別和籍贯。 单击输出”，按以下格式输出： 张三，男，北京人 Dim xb As String, jg As String Private Sub Commandl Click() Label3. Caption = Textl. Text 〃，“ xb ，” jg 人 End Sub Pri vate Sub Form Load() Listl. Additem 〃上海〃 Listl. Additem 〃北京 Listl. Additem 合肥 Listl. Addltem 〃南京〃 Listl. Additem 天津 Optionl. Value = True End Sub Private Sub Listl_Click() jg = Listl. Text End Sub Private Sub Optionl Click() xb = 〃男〃 End Sub Pri vate Sub Option2_Click() xb = 〃女〃 End Sub 2.实现对列表框中的项冃进行添加、删除、修改操作。 Private Sub Form_Load() Listl. Additem 计算机文化基础〃 Listh AddTtem 〃VB 6. 0 程序设计教程〃 Listl. Additem 操作系统 Li st 1. AddTtem 〃多媒体技术〃 Listl. Addltem 网络技术基础 End Sub Private Sub commandl_Click() Listl. Addltem Textl.Text Textl.Text 二 End Sub Private Sub command2_Click() Listl? RemoveItcm Listl. Listindex End Sub Private Sub command3_Click() Listl. List(Listl.Listindex) = Textl. Text End Sub Private Sub 1istl_Click() Textl.Text 二 Listl. Text Textl? SetFocus End Sub 3.在下拉式组合框输入内容，将不重复的内容作为列表项加入。即在文本框屮输入 字符串，如果此字符串在组合框的列表项中不存在则添加，如果存在则放弃。 壬1组_合梃示洌 壬1组_合梃示洌 I二n I苜][] Private Sub cmbAddItem KeyPress (KeyAscii As Integer) Dim bTag As Boolean If KeyAscii二13 Then 用户按下冋车键 bTag = False 遍历组合框的所有列表项，如果找到，则bTag为True For i = 0 To cmbAddItern. ListCount 一 1 If cmbAddItem. Text = cmbAddltem. List(i) Then bTag 二 True Next i If Not bTag Then cmbAddltem. Additem cmbAddltem. Text cmbAddltem.Text = End If End Sub 4.控制10个小圆的降落运动。程序界面设计如图6. 25所示，窗体左上角第一个 小圆为设计时放置的Shapel(O),其余小圆是动态加载的；右下方的三个按钮是设 计时放置的Command 1()控件数组，它们共用了一个事件过程。另外，使用了一个计 时器控件，每100毫秒控制小圆位置变化一次。 要求：点击“运动”按钮可以使各小圆以不同的速度下落，当小圆落到底边后将会 回到顶部继续下落。“隐藏”按钮对使Index为偶数的小圆改变显示状态。“复位” 按钮可使所有小圆回到初始位置。 Private Sub Form Load () Shapel(0).FillColor = RGB(100, 100, 250) For i = 1 To 9 Load Shape 1 (i)加载控件 Shapel(i).Left = Shape 1 (0). Left + 400 * i 设置位置 Shapel(i). Top = Shapel (0). Top 设置填充色 Shapel(i).FillColor = RGB(100, 100, 250 — i *