欢迎来到天天文库
浏览记录
ID:7067072
大小:104.50 KB
页数:7页
时间:2018-02-04
《实验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和
3、置于其中的复选框按钮组Check1~Check4,二个命令按钮Command1、Command2,窗体设计如下图所示。(2)设置对象属性窗体中的对象属性设置如下表所示。表各控件的属性设置对象名称属性名属性值Form1Caption学生信息Label1Caption为空BorderStyle1-FixedSingleText1Text为空Frame1Caption性 别Frame2Caption兴趣爱好Option1Caption男Option2Caption女Check1Caption文学Check2Caption音乐Check3Cap
4、tion舞蹈Check4Caption体育Command1Caption确定Command2Caption取消(3)编写程序代码Dimstrsex,strch,strmu,strdr,strspAsStringPrivateSubCheck1_Click()IfCheck1.Value=1Thenstrch=Check1.CaptionElsestrch=""EndIfEndSubPrivateSubCheck2_Click()IfCheck2.Value=1Thenstrmu=Check2.CaptionElsestrmu=""End
5、IfEndSubPrivateSubCheck3_Click()IfCheck3.Value=1Thenstrdr=Check3.CaptionElsestrdr=""EndIfEndSubPrivateSubCheck4_Click()IfCheck4.Value=1Thenstrsp=Check4.CaptionElsestrsp=""EndIfEndSubPrivateSubCommand1_Click()Label1.Caption=Trim(Text1.Text)&"ͬѧ£º"&vbCrLf&_"ÐÔ±ð£º"&strse
6、x&vbCrLf&"ÐËȤ°®ºÃ£º"&vbCrLf&strch&vbCrLf&_strmu&vbCrLf&strdr&vbCrLf&strspEndSubPrivateSubCommand2_Click()Label1.Caption=""EndSubPrivateSubOption1_Click()strsex=Option1.CaptionEndSubPrivateSubOption2_Click()strsex=Option2.CaptionEndSub(4)运行程序单击“启动”按扭,在文本框中输入学生姓名,单击选择学生性别
7、和兴趣爱好框架中的选项扭,然后按“确定”按扭,则学生信息在标签框中显示出来,单击“取消”按扭则清除标签框中学生信息,然后可重新再次选择。最后按窗体的关闭按扭,或单击工具栏的结束按扭,退出运行,运行结果如下图所示2.实验7_2内容:(1)设计界面。如图所示。(2)设置对象属性对象属性属性值Form1Caption“电子钟”Label1Font宋体,粗体,二号BackColor白色Alignment居中BorderStyle2-SizableLabel2Caption“闹钟时间”Text1text空Timer1Interval1000Tim
8、er2(3)编写程序代码PrivateSubForm_Load()Form1.Caption="电子钟"Form1.BorderStyle=3Timer1.Enabled=TrueTimer2.Enable
此文档下载收益归作者所有