Question

vb timer控件的用法

一个text文件，两个command按钮，和一个timer控件
单击command1时，开始计时，每隔一秒变量a加1，
单击command2时，停止计时，text显示用了多少时间

Answer 1

简单的说Timer是一个时间的控件，不能说Timer的值等于2秒时，因为Timer相当于时间，只能说当Timer跳动两秒时触发某事件。

例如：

1、在窗体上添加一个timer控件，默认名称为Timer1。

2、将Timer1的Interval属性设置为1000，即每隔1000毫秒（1秒）触发一次。

3、在Timer1的Timer()事件中编写如下代码

Private Sub Timer1_Timer()

Print Time

End Sub

4、运行该程序，窗体上每隔1秒就会输出一次系统当前时间。

扩展资料：

具体代码如下：

首先要确定启动控件

Me.Timer1.Enabled = True　　’启动控件

Me.Timer1.Interval = 1000　‘设定跳动频为1秒。1000＝1秒 

dim sTime as string=0

然后在控件的　Timer1.Tick事件下写下面的代码

sTime=stime+1

if sTime=2 then

'你所要触发事件的代码

msgbox("OK")

end if

参考资料：百度百科—C语言

Answer 2

简单的说Timer是一个时间的控件，
不能说Timer的值等於2秒时，因为Timer相当於时间，只能说当Timer跳动两秒时触发某事件。
代码如下：
' 首先要确定启动控件
Me.Timer1.Enabled = True　　’启动控件
Me.Timer1.Interval = 1000　‘设定跳动频为1秒。1000＝1秒
　　　　 dim sTime as string=0
　然後在控件的　Timer1.Tick事件下写下面的代码
sTime=stime+1
if sTime=2 then
'你所要触发事件的代码
msgbox("OK")
end if

Answer 3

Dim a As Integer
Private Sub Command1_Click()
Timer1.Enabled = True '激活时间控件
Timer1.Interval = 1000
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False '关闭时间控件
Text1 = a
End Sub

Private Sub Timer1_Timer()
a = a + 1
End Sub

Answer 4

Dim a As Long
Private Sub Command1_Click()
Timer1.Interval = 1000
Timer1.Tag = Timer
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Text1.Text = Round(Timer - Val(Timer1.Tag), 3) & "秒"
End Sub

Private Sub Timer1_Timer()
a = a + 1
End Sub

Answer 5

Dim a As Long
Private Sub Command1_Click()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Text1.Text = a
End Sub

Private Sub Timer1_Timer()
a = a + 1
End Sub