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

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

ID:7067072

大小:104.50 KB

页数:7页

时间:2018-02-04

实验7:常用内部控件的应用和程序设计_第1页
实验7:常用内部控件的应用和程序设计_第2页
实验7:常用内部控件的应用和程序设计_第3页
实验7:常用内部控件的应用和程序设计_第4页
实验7:常用内部控件的应用和程序设计_第5页
资源描述:

《实验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

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。