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

实验十五 列表框与组合框实验目的1. 加深对列表框、组合列表框等控件的常用属性、事件和方法的理解。2. 掌握列表框、组合列表框等控件的主要作用与基本用法。3. 学习使用这些控件来编写解决实际问题的程序。 实验内容1.设计说明：当窗体加载时，列表框添加所有项目，且性别默认为“男”性。定义2个全局变量xb和jg，用来保存性别和籍贯。单击“输出”，按以下格式输出：张三，男，北京人Dim xb As String, jg As StringPrivate Sub Command1_Click()Label3.Caption = Text1.Text & , & xb & , & jg & 人End SubPrivate Sub Form_Load()List1.AddItem 上海List1.AddItem 北京List1.AddItem 合肥List1.AddItem 南京List1.AddItem 天津Option1.Value = TrueEnd SubPrivate Sub List1_Click()jg = List1.TextEnd SubPrivate Sub Option1_Click()xb = 男End SubPrivate Sub Option2_Click()xb = 女End Sub2.实现对列表框中的项目进行添加、删除、修改操作。Private Sub Form_Load() List1.AddItem 计算机文化基础 List1.AddItem VB 6.0程序设计教程 List1.AddItem 操作系统 List1.AddItem 多媒体技术List1.AddItem 网络技术基础End SubPrivate Sub command1_Click() List1.AddItem Text1.TextText1.Text = End SubPrivate Sub command2_Click()List1.RemoveItem List1.ListIndexEnd SubPrivate Sub command3_Click()List1.List(List1.ListIndex) = Text1.TextEnd SubPrivate Sub list1_Click() Text1.Text = List1.Text Text1.SetFocusEnd Sub3.在下拉式组合框输入内容，将不重复的内容作为列表项加入。即在文本框中输入字符串，如果此字符串在组合框的列表项中不存在则添加，如果存在则放弃。Private Sub cmbAddItem_KeyPress(KeyAscii As Integer) Dim bTag As Boolean If KeyAscii = 13 Then 用户按下回车键 bTag = False 遍历组合框的所有列表项，如果找到，则bTag为True For i = 0 To cmbAddItem.ListCount - 1 If cmbAddItem.Text = cmbAddItem.List(i) Then bTag = True Next i If Not bTag Then cmbAddItem.AddItem cmbAddItem.Text cmbAddItem.Text = End IfEnd Sub 4. 控制10个小圆的降落运动。程序界面设计如图6.25所示，窗体左上角第一个小圆为设计时放置的Shape1(0)，其余小圆是动态加载的；右下方的三个按钮是设计时放置的Command1()控件数组，它们共用了一个事件过程。另外，使用了一个计时器控件，每100毫秒控制小圆位置变化一次。 要求：点击“运动”按钮可以使各小圆以不同的速度下落，当小圆落到底边后将会回到顶部继续下落。“隐藏”按钮可使Index为偶数的小圆改变显示状态。“复位”按钮可使所有小圆回到初始位置。Private Sub Form_Load()Shape1(0).FillColor = RGB(100, 100, 250)For i = 1 To 9Load Shape1(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 iEnd SubPrivate Sub Command1_Click(Index As Integer)Select Case IndexCase 0 第0个按钮Timer1.Enabled = Not Timer1.Enabled If Timer1.Enabled Then 改变按钮的标题Command1(0).Caption = 停止ElseCommand1(0).Caption = 运动End IfCase 1 第1个按钮For i = 0 To 9If i Mod 2 = 0 Then 使Index为偶数的控件隐藏或显示Shape1(i).Visible = Not Shape1(i).VisibleEnd IfNext iIf Shape1(0).Visible Then 改变按钮的标题 Command1(1).Caption = 隐藏 Else Command1(1).Caption = 显示 End IfCase Else 其他按钮 For i = 0 To 9 Shape1(i).Top = 10 重设控件位置 Next iEnd SelectEnd SubPrivate Sub Timer1_Timer()For i = 0 To 9 Shape1(i).Top = Shape1(i).Top + Rnd *