- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
北京职业院校VB程序编程教案:图片框、图像框和时钟
北京职业院校VB程序编程教案:图片框、图像框和时钟
教学目的:
通过本次课的学习,学生应该掌握图片框、图像框和时钟控件的常用属性、方法和事件,能够区分图片框与图像框的区别,并能够灵活的应用。
教学重点和难点:
1.图片框和图像框的区别;
2.时钟控件的属性和事件。
教学过程:
一、 图片框(PictureBox)
1.用途
介绍图片框的主要用途。
2.属性
图片框的图片加载用到的picture属性,以及loadpicture()函数的使用
3.例题
通过例题讲解图片框的具体应用
二、 图像框(Image)
1.用途
介绍图像框的主要用途。
2.属性
图像框的图片加载用到的picture属性
3.性能对比
把图片框和图像框的性能进行一下对比,以便能更好的应用这两种控件
4.例题
通过例题讲解图像框的strech属性的具体应用。
三、时钟(Timer)
1.用途
介绍时钟控件的主要用途
2.属性
时钟控件的两个主要属性——Enabled属性和Inteval属性
(1)时钟控件的启动
(2)Interval属性的设置
3.事件
时钟控件的主要事件——Timer事件,通过一道日历的例题来讲解Timer事件的具体使用。
学生作业:
上机实验六:图片框、图像框和时钟
[讲稿]
(九) 图片框、图像框和时钟
3、事例:
9.2 图像框(Image)
1、作用:用来显示图形
2、与图片框的性能对比
(1)PictureBox可以作为其他控件中的容器,而Image则无此功能;
(2)Image有Stretch属性:让图片的显示大小去适应Image的大小;PictureBox有AutoSize属性:PictureBox的大小去适应图片的大小。这也是两个控件的本质区别
(3)Image控件使用的系统资源比PictureBox控件少而且重绘速度快,但它仅支持PictureBox控件的一部分属性,事件和方法。
3、事件
9.3 时钟(Timer)
一个时钟控件能有规律地以一定时间间隔激发计时器事件(Timer)而执行相应的程序代码。
Timer控件在设计时可见,在运行时是不可见的。所以它的位置无关紧要。
1、属性
(1)Enabled属性~指定计时器是否响应Timer事件。启动计时器,设置Enabled值为True,否则为False
(2)Interval属性~表示两个计时器事件之间时间间隔其值为ms(0.001s)为单位,最大值为65535ms等于1分多钟
当Interval属性值为0时,表示屏蔽计时器,即时钟控件不工作。
Eg.如果希望每0.5s产生一个计时器事件,那么Interval的值为500。这样,每隔500ms引发一次计时器事件,从而执行相应的Timer事件过程。
两个注意事项:见教材85页
2、事件:
时钟控件只有一个Timer事件。当Enabled属性为True,且Interval属性大于0,则Timer事件以Interval属性指定的时间间隔发生。
例: 设计一个如下图所示的定时程序.用户在Text1和Text2文本框中设置定时时间,然后单击“定时”(Command1)按钮开始定时。两个文本框的MaxLength属性为2,时钟控件名称为Timer1,系统当前时间显示在Label1标签中,“结束”按钮的名称为Command2.
程序代码如下:
Dim hour , minute
Private Sub Form_Load ( )
hour= “**” ’当hour和minute设置为”**”时,定时时间和系统时间不可能相等
minute= “**”
End Sub
Private Sub Command1_Click ( )
hour=Format (Text1.Text, “00”)
minute=Format(Text2.Text,“00”)
End Sub
Private Sub Timer1_Timer ( )
Label1.Caption=Time$ ( )
If Mid$(Time$,1,5)=hour+ “:”+minute Then
hour= “**”
minute= “**”
MsgBox (“时间到!”)
End If
End Sub
Private Sub Command2_Click ( )
End
End Sub
2
您可能关注的文档
最近下载
- DBJT 08-120-2015雨水口标准图2015沪S203.docx VIP
- 神经介入产品培训.ppt VIP
- 重庆市綦江区郭扶镇社区工作者招聘考试试题汇总2024.docx VIP
- ECharts数据可视化课件 第1章 初识ECharts.pptx VIP
- 重庆市綦江区安稳镇社区工作者招聘考试试题汇总2024.docx VIP
- 突发事故处理流程.pdf VIP
- 电工安全生产协议书(完整版).docx VIP
- 固定翼无人机技术完整全套教学课件.pdf
- 1.35KV预制舱变电站项目(整套35KV预制舱,变压器,开关柜,火灾报警)技术规范书.doc VIP
- DB36_T 811-2020 井冈蜜柚 生产技术规程.pdf VIP
文档评论(0)