VB计时器怎么用

需要准备的工具：电脑，VB6.0程序设计软件。

1、首先打开VB6.0程序设计软件，到程序新建工程主界面，如下图：

2、然后双击新建工程里的”标准 exe“进入工程1（forml）如下图:

3、在左边工具栏窗体上先加载一个计时器控件 如图：

4、加载好计时器控件后，我们在当前计时器控件下面加载一个标签。

5、为了使加载的标签在运行时能把它看清楚，通过修改右边属性”Bordarstyle"里面的属性”0“改选为”1“使标签边框凹陷下去 ，如图：

6、接下来，我们将当前标签右边的属性名称改为”L1“如图:

7、我们开始修改计时器的属性，接下来我们把计时器控件当前的”interval“的属性设置成”1000“ 毫秒，就是1秒钟让它产生一次事件，如图 :

8、双击计时器控件，开始编写计时器程序，”L1.caption=time”如图：

9、然后返回“form"窗口，点击运行，一个简单的计时器软件就做好了。

3个标签，2个按钮，1个计时器控件

Private Sub Command1_Click() '开始/暂停

If Timer1.Enabled = True Then

Timer1.Enabled = False

Else

Timer1.Enabled = True

End If

End Sub

Private Sub Command2_Click() '停止清0

Label1 = "0"

Label2 = "0"

Label3 = "0"

Timer1.Enabled = False

End Sub

Private Sub Form_Load() '初始设置

Label3 = "0"

Label2 = "0"

Label1 = "0"

Timer1.Interval = 1000

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

Label3 = Label3 + 1

If Label3 = 60 Then

Label3 = "0"

Label2 = Label2 + 1

If Label2 = 60 Then

Label2 = "0"

Label1 = Label1 + 1

End If

End If

End Sub

1、首先，建立一个工程，并在窗口中添加三个命令按钮，caption分别改为“设置倒计时”、“启动倒计时”、“继续”，将窗体Form1的caption属性改为“倒计时”，再添加一个计时器控件，并且添加一个文本框，将界面设置成如下图所示。

2、将文本框的Text里的属性清空干净，再把字体Font的属性调整成为小四，方便接下来的观察，一定记得把背景色属性Backcolor调为浅黄色。

3、接下来，双击“设置倒计时”命令这个按钮，就会进入到代码编辑窗口，输入如图所示代码：

4、接着双击“启动倒计时”命令这个按钮，接下来会进入代码编辑窗口，再输入如下图所示代码：

5、再接着双击“计时器”控件，然后进入代码编辑窗口，输入如图所示代码：

6、在代码编辑窗口的通用段进行这三个变量的定义：Dim h As Integer, m As Integer, s As Integer '分别存储这三个量时、分、秒，如下图所示。

7、最后再双击窗体，然后就会进入代码编辑器，在 Form_Load事件中写入代码，代码如下图红框所示：

8、接着关闭代码窗口，按一下F5运行程序，再单击“设置倒计时”这个命令按钮，这时候就会d出一个输入对话框，一定要记得此时输入分钟数，数字为1，然后确定，如图所示：

9、最后一定要单击“启动倒计时”这个命令按钮，然后文本框就会显示倒计时时间，并会不断地变动，这个时候你就可以看见时间在变动，这就是实现了倒计时功能，如图所示：

扩展资料：

使用VB倒计时设置计时参数5X60=300秒，然后设置定时器1S中断.当计时器为0就是5分钟，将计时器参数显示在文本框中就可以了。这个题目需要使用计时器控件，所以计时器的控件的Timer事件以及Enable属性、Interval属性需要熟知。

---