实验七常用控件程序设计.doc

实验七常用控件程序设计( 4 个学时) 一、实验目的 1. 掌握单选按钮、复选按钮、框架、列表框、组合框、时钟和滚动条的属性、事件和方法。 2. 明确常用内部控件的功能,熟练使用“属性”窗口设置属性。 3. 掌握在常用内部控件的事件过程中编写程序代码。二、实验内容 1. 设计一个程序运用单选按钮、复选框和框架对文本框中文本的颜色、字号和效果进行设置。要求: 文本的颜色可以选择红色、绿色和蓝色。文本的字号可以选择 12、 18、 24号, 效果可以选择删除线和下划线。当文本框中输入文字后,单击某个按钮,文本框中的文字将按所选择的选项进行设置。 1 )代码设计如下 Private Sub check1_click() If =1 Then = True Else: = False End If End Sub Private Sub check2_click() If =1 Then = True Else: = False End If End Sub Private Sub option1_click() = 12 End Sub Private Sub option2_click() = 18 End Sub Private Sub option3_click() = 24 End Sub Private Sub option4_click() = vbRed End Sub Private Sub option5_click() = vbGreen End Sub Private Sub option6_click() = vbBlue End Sub 2 )运行后的结果(将运行结果的界面截下来粘贴在下面) 3 )调试过程记录(错误情况及改正方法,不得少于三条) 2. 编写一个为组合框中添加或删除内容的程序。要求: 1) 在组合框中输入内容后, 单击“添加”按钮, 如果列表框中没有该内容, 则将输入内容加入到列表框中,否则不添加,另外,要求组合框中的内容能自动按字母顺序排序。 2 )在列表框中选择某一选项后,单击“删除”按钮,则删除该项。 3 )单击“清除’按钮,将清除列表框中所有的内容。 1 )代码设计 Private mand1_Click() Dim i As Integer Dim flag As Integer flag =1 For i=0 -1 = (i) Then flag =0 End If Next i If flag =1 Else MsgBox (" 不能添加已存在的项目!") End If End Sub Private mand2_Click() End Sub Private mand3_