vb timer控件的用法
一个text文件,两个command按钮,和一个timer控件单击command1时,开始计时,每隔一秒变量a加1,单击command2时,停止计时,text显示用了多少...
一个text文件,两个command按钮,和一个timer控件
单击command1时,开始计时,每隔一秒变量a加1,
单击command2时,停止计时,text显示用了多少时间 展开
单击command1时,开始计时,每隔一秒变量a加1,
单击command2时,停止计时,text显示用了多少时间 展开
5个回答
展开全部
简单的说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语言
2015-07-22 · 知道合伙人数码行家
可以叫我表哥
知道合伙人数码行家
向TA提问 私信TA
知道合伙人数码行家
采纳数:25897
获赞数:1464984
2010年毕业于北京化工大学北方学院计算机科学与技术专业毕业,学士学位,工程电子技术行业4年从业经验。
向TA提问 私信TA
关注
展开全部
简单的说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
不能说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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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
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
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询