实验7：常用内部控件的应用和程序设计.docVIP

实验：常用内部控件的应用和程序设计。 一、实验目的 1、掌握标签、命令按钮、图片框、定时器、单选按钮、复选框、列表框和组合框的功能及应用。 2、熟悉多窗体的基本操作，掌握窗体操作的常用语句和方法。 二、实验内容 建立一个学生信息显示窗口?Timer2用于判断闹钟时间，时间间隔为0.5秒，Timer2设置为不可用。 （2）窗体的下半部是标签Label1,用于显示时间，设置Label1 的Font为宋体，粗体，二号，背景为白色，文字居中对齐，固体边框。 （3）窗体的下半部是标签Label2,标题为“闹钟时间”;Label2的右边是文本框Text1. （4）在文本框中输入闹钟时间并按回车后，启动判断闹钟时间的定时器Timer2,如果Label1显示的时间超过闹钟时间，标签Label1的背景色按红白两色交替交换。 三、实验步骤与指导 （1）设计界面。如图所示。 Frame1和置于其中的选项按钮组Option1、Option2，另一个框架控件Frame2和置于其中的复选框按钮组Check1～Check4，二个命令按钮Command1、Command2，窗体设计如下图所示。 （2）设置对象属性 窗体中的对象属性设置如下表所示。 表 各控件的属性设置 对象名称 属性名 属性值 Form1 Caption 学生信息 Label1 Caption 为空 BorderStyle 1-Fixed Single Text1 Text 为空 Frame1 Caption 性? 别 Frame2 Caption 兴 趣 爱 好 Option1 Caption 男 Option2 Caption 女 Check1 Caption 文 学 Check2 Caption 音 乐 Check3 Caption 舞 蹈 Check4 Caption 体 育 Command1 Caption 确 定 Command2 Caption 取 消 （3）编写程序代码 Dim strsex, strch, strmu, strdr, strsp As String Private Sub Check1_Click() If Check1.Value = 1 Then strch = Check1.Caption Else strch = End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then strmu = Check2.Caption Else strmu = End If End Sub Private Sub Check3_Click() If Check3.Value = 1 Then strdr = Check3.Caption Else strdr = End If End Sub Private Sub Check4_Click() If Check4.Value = 1 Then strsp = Check4.Caption Else strsp = End If End Sub Private Sub Command1_Click() Label1.Caption = Trim(Text1.Text) í??§￡o vbCrLf _ D?±e￡o strsex vbCrLf D?褰?o?￡o vbCrLf strch vbCrLf _ strmu vbCrLf strdr vbCrLf strsp End Sub Private Sub Command2_Click() Label1.Caption = End Sub Private Sub Option1_Click() strsex = Option1.Caption End Sub Private Sub Option2_Click() strsex = Option2.Caption End Sub （4）运行程序单击“启动”按扭， 在文本框中输入学生姓名，单击选择学生性别和兴趣爱好框架中的选项扭，然后按“确定”按扭，则学生信息在标签框中显示出来，单击“取消”按扭则清除标签框中学生信息，然后可重新再次选择。最后按窗体的关闭按扭，或单击工具栏的结束按扭，退出运行，运行结果如图所示（1）设计界面。如图所示。“电子钟” Label1 Font 宋体，粗体，二号 BackColor 白色 Alignment 居中 BorderStyle 2-Sizable La