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"窗口，点击运行，一个简单的计时器软件就做好了。
AiPPT
2024-09-19 广告
需要准备的工具：电脑，VB6．0程序设计软件。
1、打开VB6．0，新建一个工程，在窗体中添加三个命令按钮，caption分别改为“设置倒计时”、“启动倒计时”、“继续”，将窗体Form1的caption属性改为“倒计时”，添加一个计时器控件，添加一个文本框，将界面设置成下图：
2、将文本框的Text属性清空，将字体Font属性调整为小四，便于观察，将背景色属性Backcolor调为浅、黄色。
3、双击“设置倒计时”命令按钮，进入代码编辑窗口，输入如下代码：
a＝InputBox（＂请输入倒计时时间（以分为单位）：＂，＂倒计时输入框＂
4、双击“启动倒计时”命令按钮，进入代码编辑窗口，输入如下代码：
Timer1．Interval＝1000＇设置计时器为一秒发生一次
Timer1．Enabled＝True＇激活计时器
If a < 60 Then
m＝a
Else
h＝s＼60
m＝aMod60
EndIf
m＝m－1
s＝60
5、双击“计时器”控件，进入代码编辑窗口，输入如下代码：
s＝s－1
If s = 0 And m <> 0 Then
s＝60
m＝m－1
EndIf
If m = 0 And h <> 0 Then
h＝h－1
m＝59
s＝60
6、VB6．0制作倒计时计时器在代码编辑窗口的通用段进行变量定义：
Dim h As Integer，m As Integer，s As Integer＇分别存储时分秒
Dim a AsInteger
7、双击窗体，进入代码编辑器，在Form＿Load事件中写入代码：
Timer1．Enabled＝False＇先关闭计时器
8、关闭代码窗口，按下F5运行程序，单击“设置倒计时”命令按钮，弹出输入对话框，此时输入分钟数为1，确定，如图：
9、单击“启动倒计时”命令按钮，文本框显示倒计时时间，并时刻变动，至此实现了倒计时功能，如图：
Timer控件使用：
Timer 控件响应时间的流逝。它们独立于用户，编程后可用来在一定的时间间隔执行操作。此控件的一个一般用处是检查系统时钟，判断是否该执行某项任务。对于其它后台处理，Timer 控件也非常有用。
每个 Timer 控件都有 Interval
属性，指定定时器事件之间的毫秒数。除非禁止此属性，否则定时器在大致相等的时间间隔不断接受事件（称作定时器事件会更贴切）。
在为 Timer 控件编程时应考虑对 Interval 属性的几条限制：
如果应用程序或其它应用程序正在进行对系统要求很高的操作─ 例如长循环、高强度的计算或者正在访问驱动器、网络或端口─ 则应用程序定时器事件的间隔可能比
Interval 属性指定的间隔长。间隔的取值可在 0 到 64,767 之间（包括这两个数值），这意味着即使是最长的间隔也不比一分钟长多少（大约 64.8 秒）。
间隔并不一定十分准确。要保证间隔准确，应在需要时才让定时器检查系统时钟，而不在内部追踪积聚的时间。
系统每秒生成 18 个时钟信号─ 所以即使用毫秒衡量 Interval 属性，间隔实际的精确度不会超过 18 分之一秒。
每个 Timer 控件必须要与窗体关联。因此要创建定时器应用程序就必须至少创建一个窗体（如果不需要窗体完成其它操作就不必使窗体可见）。
在窗体上放置 Timer 控件：
在窗体上放置 Timer 控件的方法与绘制其它控件的方法相同：单击工具箱中的定时器按钮并将它拖动到窗体上。
Timer 控件只在设计时出现在窗体上，所以可以选定这个控件，查看属性，编写事件过程。运行时，定时器不可见，所以其位置和大小无关紧要。
初始化 Timer 控件：
Timer 控件有两个关键属性。
数字钟应用程序示例：
包含一个定时器和一个有边框的标签。
应用程序中的唯一过程是定时器的事件过程：
Private Sub Timer1_Timer ()
If lblTime.Caption <> CStr(Time) Then
lblTime.Caption = Time
End If
End Sub
过程调用内在的 Time 函数来显示系统时间。此函数返回一个 Variant，以日期/时间数值 (VarType 7) 的形式包含当前时间。将它赋予某个字符串变量或属性时，比如赋予本例中的 Caption 属性时，Visual Basic 将用“控制面板”中指定的格式将其转换成一个字符串。若要用其它格式显示，可使用 Format 函数。
这个控件主要用来定时刷新/操作 某样指令
它属性如下
Enabled ：设置计时器True为可用。如果为False 则不可用。
Interval：设置计时器执行时间，1000为1秒，最大为60000即1分。
一般在Button或其他可操作控件中 对这两个属性进行设置
如：在Button中添加 timer1.enabled=false
然后在Timer中添加你想操作的命令：
Private Sub Timer1_Timer()
Button1.Caption = Format(Now, "yyyy-mm-dd hh:mm:ss") '取系统当前时间为按钮的标题
End Sub
Timer1.Enabled = True '设置计时器True为可用。如果为False 则不可用。
Timer1.Interval = 1000'设置计时器执行时间，1000为1秒，最大为60000即1分。
然后再timer1的事件里写入要执行的代码。
有不懂的补充！呵
