VB中时钟控件几种运用.docVIP

  • 88
  • 0
  • 约2.92千字
  • 约 8页
  • 2018-07-04 发布于福建
  • 举报
VB中时钟控件几种运用

VB中时钟控件几种运用   摘 要:时钟控件是VB中一个非常重要的常用控件。它的主要功能是利用系统内部的计时器计时产行时间间隔,定时完成某项任务及进行某种后台处理.正确灵活的运用好时钟控件的设计,可以使我们在应用程序设计中产生非常理想的一些效果. 本文用实例来介绍在VB程序中利用计时器控件与其它控件结合使用产生不同的应用效果。   关键词:Timer控件;动态应用;动画设计   中图分类号:TP31   VB时钟控件(Timer)又称计时器、定时器控件,用于按指定的时间间隔周期性地自动触发事件。它主要有两个功能:一是用于定时完成某项任务,即每隔一段固定的时间就执行一次相同的任务。另一个是进行某种后台处理。时钟控件只有一个事件,就是Timer定时器事件。通过触发Timer事件,时钟控件可以有规律地隔一段时间执行一次代码。时钟控件的关键属性有两个:(1)Enabled用于设置Timer控件是否响应Timer定时器事件。属性值为true和false。(2)Interval用于返回或设置对Timer控件的定时器事件调用周期的时间间隔。以毫秒为单位,取值范围为0-65535毫秒。时钟控件在设计时出现在窗体中,而在程序运行阶段是不可见的。   1 计时器(Timer)控件与滚动条(Hscrollbar)控件的应用   1.1 自动求阶乘设计   在窗体上设置1个滚动条控件、2个标签控件、1个时钟控件和2个命令按钮(如图1)。相应代码如下   Dim n, j, I ‘定义N,J,I三个整型变量   Private Sub Command1_Click() ‘开始按钮事件   Timer1.Enabled = True   End Sub   Private Sub Command2_Click() ;暂停按钮事件   Timer1.Enabled = False   End Sub   Private Sub Timer1_Timer() ‘timer事件过程   n = HScroll1.Value   j = 1   For i = 1 To n ‘循环计算N!   j = j * i   Next   Cls   Label1.Caption = Str(n) + !=   Label2.Caption = j   If HScroll1.Value   Private Sub Command3_Click() ‘退出按钮   End   End Sub   Private Sub Form_Load() ‘窗体初始化   Timer1.Enabled = False   Label1.Left = Form1.Width   Label1.Caption = 中华人民共和国   Label1.FontSize = 30   Timer1.Interval = 100   End Sub   Private Sub Timer1_Timer() ‘timer事件过程   Label1.Left = Label1.Left - 20   If Label1.Left + Label1.Width 0 Then   Label1.Left = Label1.Left - 100   Else   Label1.Left = Form1.Width   End If   End Sub   运行结果如图6   4 计时器(Timer)控件与图片框(picturebox)控件和图像框(image)控件的应用。   4.1 放大图片   在窗体上设置图片框(picturebox)控件、1个时钟控件和2个命令按钮(如图7)。则相应代码如下   Private Sub Command1_Click() ‘开始按钮   Picturebox1.Visible = True   Timer1.Enabled = True   End Sub   Private Sub Command2_Click() ‘退出按钮   End   End Sub   Private Sub Form_Load() ‘窗体初始化   Picturebox1.Visible = False   Picturebox1.Enabled = False   Picturebox1.Width = 3000   Picturebox1.Height = 2000   End Sub   Private Sub Timer1_Timer() ‘timer事件过程   Picturebox1.Width = Image1.Width + 50   Picturebox1.Height = Image1.Height + 30   If Picturebox1.Width

文档评论(0)

1亿VIP精品文档

相关文档