《Visual Basic程序设计及应用 教学课件 郑丽敏 VB第10章》.pdf

第10章 图形与动画 第十章 图表 1. 定时器控件 2. 坐标系 3. 直线与形状控件 4. 绘图属性 5. 图形方法 6. 绘制图形应用举例 2015/5/18 温 馨 提 示 本文档为 PDF 格式课件，不能运用教学演示， 需要 PPT 格式的课件 ，请 访问 尚辅网 ： 更多课件等您拿。 快速获得课件方法：在淘宝店铺查找输入： 教 学配套课件中心 ；或是直接输入地址 ： 惊喜超出您的想象！ 直接联系获取课件QQ: 349134187 旺旺：源汇雅馨 扫一扫绝对免费获得课件：订阅尚辅网微信公众 号 一扫课件到手！！！！！！ 10.1 定时器控件  什么是定时器控件  定时器控件能够按照指定时间间隔不 停地产生时钟信号，可以制作动画， 或定时操作。  VB中定时器控件为定时器(Timer)， 图标为 3 2015/5/18 10.1 定时器控件  常用属性  Enabled属性用于决定定时器是否生 效，系统缺省值为True。。  Interval属性用于设置定时器触发 Timer事件的时间间隔，即决定每隔 多少时间触发一次Timer事件 4 2015/5/18 10.1 定时器控件  事件  定时器控件只有一个Timer事件， 它在一个Timer 控件的预定的 时间间隔过去之后发生。 5 2015/5/18 10.1 定时器控件  【例10-1】 在窗口的标题栏实时显示当前的系 统时间，并实现整点报时。将Timer 控件的Interval属性设置为1000。 6 2015/5/18 10.1 定时器控件 解答 Private Sub Form_Load() 将系统时间放到窗体标题 Me.Caption = Time End Sub 定时刷新标题 Private Sub Timer1_Timer() If Me.Caption CStr(Time) Then 避免相同的时间刷新或报告两次 Me.Caption = Time 将系统时间放到窗体标题 If Minute(Time) = 0 And Second(Time) = 0 Then 整