【Visual Basic】计时器与窗体屏幕尺寸的取法

主要是利用一个小例子讲解VB中计时器Timer的运用。

如下图所示：

有一个显示当前时间，在屏幕的边缘不停地移动。

首先是窗体设置，直接从工具箱拖入Label与Timer控件。Timer控件是没有长度的，属于脚本类型的控件，只能双击写代码。

各个空间的尺寸、文本等就不设置了，直接双击窗体，在窗体初始化下的过程，用代码控制。

在代码界面输入以下的代码：

Public Class Form1

    Public Flag As Integer '全局变量Flag的定义

    Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load '窗体载入马上执行的事件
        Me.Width = 300
        Me.Height = 300
        Label1.Top = 0
        Label1.Left = 0
        Label1.Text = Now
        Timer1.Interval = 1000 'Timer1每1000毫秒，就是1秒，执行Timer1_Tick这个函数
        Timer1.Enabled = True
        Timer2.Interval = 80 'Timer2每80毫秒，执行Timer2这个函数
        Timer2.Enabled = True
        Flag = 0
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Timer1.Tick '此过程在双击控件会自动生成，无须自己输入
        Label1.Text = Now 'vb.net只能用Now取当前的时间，Time$是不行
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Timer2.Tick
        If Flag = 0 Then
            If Label1.Left + 20 > Width - Label1.Width Then
                Flag = 1
            Else
                Label1.Left += 20
            End If

        ElseIf Flag = 1 Then
            If Label1.Top + 20 > displayRectangle.Height - Label1.Height Then ' displayRectangle.Height是vb.net的写法，在vb6写成Scaleheight
                Flag = 2
            Else
                Label1.Top += 20
            End If

        ElseIf Flag = 2 Then
            If Label1.Left - 20 < 0 Then
                Flag = 3
            Else
                Label1.Left -= 20
            End If

        ElseIf Flag = 3 Then
            If Label1.Top - 20 < 0 Then
                Flag = 0
            Else
                Label1.Top -= 20
            End If

        End If
    End Sub
End Class

程序的思想与《【ActionScript】组件的颜色变换》（ 点击打开链接）是一模一样的。只是这里是控件在四个边角的移动。

一进入程序，首先进入Private Sub Form1_Load这个过程，设置好各个控件。

之后，每1秒用当前时间刷新Label1的文本内容。每80毫秒刷新Label的位置。Top与Left属性分别构成Label的横纵坐标。还要判断，Label是否到底控件的边缘。

这里的高度不可以用Height，这个高度不包含标题栏的高度。displayRectangle.Height是vb.net的写法，在vb6写成Scaleheight，可以取出窗体含标题的高度。

这样判断才可能使得Label1的位置不超出窗体的边缘。

同时，Flag必须定义为一个全局变量，初始为0，否则，如果在Private Sub Timer2_Tick中定义，会出现每次Flag都0的错误了。因为读一次Private Sub Timer2_Tick就重新定义Flag为0，因此Flag定义必须放在此过程之外，成为全局变量。