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

《实验7：常用内部控件的应用和程序设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、实验7：常用内部控件的应用和程序设计。一、实验目的1、掌握标签、命令按钮、图片框、定时器、单选按钮、复选框、列表框和组合框的功能及应用。2、熟悉多窗体的基本操作，掌握窗体操作的常用语句和方法。二、实验内容实验7_1:建立一个学生信息显示窗口实验7_2:设计一个“电子钟”程序。程序运行结果如图所示。具体要求如下：（1）设计两个定时器，Timer1用于显示系统时间，时间间隔为一秒， Timer2用于判断闹钟时间，时间间隔为0.5秒，Timer2设置为不可用。（2）窗体的下半部是标签Label1,用于显示时间，设置Label1的Font为宋体，粗体，二号，背景为白色，文字居中对齐

2、，固体边框。（3）窗体的下半部是标签Label2,标题为“闹钟时间”;Label2的右边是文本框Text1.（4）在文本框中输入闹钟时间并按回车后，启动判断闹钟时间的定时器Timer2,如果Label1显示的时间超过闹钟时间，标签Label1的背景色按红白两色交替交换。三、实验步骤与指导1.实验7_1内容：（1）设计界面。如图所示。在窗体上添加一个文本框控件Text1，一个标签控件Label1，一个框架控件Frame1和置于其中的选项按钮组Option1、Option2，另一个框架控件Frame2和置于其中的复选框按钮组Check1～Check4，二个命令按钮Command

3、1、Command2，窗体设计如下图所示。（2）设置对象属性窗体中的对象属性设置如下表所示。表各控件的属性设置对象名称属性名属性值Form1Caption学生信息Label1Caption为空BorderStyle1-FixedSingleText1Text为空Frame1Caption性 别Frame2Caption兴趣爱好Option1Caption男Option2Caption女Check1Caption文学Check2Caption音乐Check3Caption舞蹈Check4Caption体育Command1Caption确定Command2Caption取消（3

4、）编写程序代码Dimstrsex,strch,strmu,strdr,strspAsStringPrivateSubCheck1_Click()IfCheck1.Value=1Thenstrch=Check1.CaptionElsestrch=""EndIfEndSubPrivateSubCheck2_Click()IfCheck2.Value=1Thenstrmu=Check2.CaptionElsestrmu=""EndIfEndSubPrivateSubCheck3_Click()IfCheck3.Value=1Thenstrdr=Check3.CaptionElse

5、strdr=""EndIfEndSubPrivateSubCheck4_Click()IfCheck4.Value=1Thenstrsp=Check4.CaptionElsestrsp=""EndIfEndSubPrivateSubCommand1_Click()Label1.Caption=Trim(Text1.Text)&"ͬѧ£º"&vbCrLf&_"ÐÔ±ð£º"&strsex&vbCrLf&"ÐËȤ°®ºÃ£º"&vbCrLf&strch&vbCrLf&_strmu&vbCrLf&strdr&vbCrLf&strspEndSubPrivateSubComma

6、nd2_Click()Label1.Caption=""EndSubPrivateSubOption1_Click()strsex=Option1.CaptionEndSubPrivateSubOption2_Click()strsex=Option2.CaptionEndSub（4）运行程序单击“启动”按扭，在文本框中输入学生姓名，单击选择学生性别和兴趣爱好框架中的选项扭，然后按“确定”按扭，则学生信息在标签框中显示出来，单击“取消”按扭则清除标签框中学生信息，然后可重新再次选择。最后按窗体的关闭按扭，或单击工具栏的结束按扭，退出运行，运行结果如下图所示2.实验7_2内容

7、：（1）设计界面。如图所示。（2）设置对象属性对象属性属性值Form1Caption“电子钟”Label1Font宋体，粗体，二号BackColor白色Alignment居中BorderStyle2-SizableLabel2Caption“闹钟时间”Text1text空Timer1Interval1000Timer2（3）编写程序代码PrivateSubForm_Load()Form1.Caption="电子钟"Form1.BorderStyle=3Timer1.Enabled=TrueTimer2.Enable