VB里的时间控件,在运行调试的时候就会启动,怎样让他在下一个周期的时候启动?

我写的是设一个定时器,周期5秒,每隔5秒按一下option1,而option1是输出“a=2“。他就是在一起动的时候屏幕上就会出现一个a=2。我想让他在点击了comman... 我写的是设一个定时器,周期5秒,每隔5秒按一下option1,而option1是输出“a=2“。他就是在一起动的时候屏幕上就会出现一个a=2。我想让他在点击了command1时候开始计时,从第一个5秒开始执行option1的单击而刚启动的时候不点option1。

我写的代码在这里,求详细指点。

今天给的课题,周四就要进行答辩了。我了个*。。。。。。。。。
晕。。。太着急、代码忘了粘贴了

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
Call Option1_Click
Else
Call Option2_Click
End If
End Sub

Private Sub Option1_Click()
Print "a"
End Sub

Private Sub Option2_Click()
Print "b"
End Sub
展开
 我来答
吹花PM
2012-06-18 · TA获得超过946个赞
知道小有建树答主
回答量:635
采纳率:0%
帮助的人:609万
展开全部
Private Sub form_load()
Timer1.Interval = 5000
Timer1.Enabled = False
End Sub
Private Sub command1_click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Call Option1_Click
End Sub
楼上写错了一个单词,已修正,又增加了timer控件的代码。
思路很简单,timer控件的Enabled属性默认是开着的,程序启动时自然开始工作,所以需要在窗体load事件里添加Timer1.Enabled = True语句,当然也可以手动设置。
command1做计时器启动按钮,自然是改变其Enabled 属性为True
如果需要实现单击此按钮完全控制计时器运行(单击一次开始,单击二次停止,循环),可以这样写
Private Sub command1_click()
Static n As Integer
n = n + 1
If n Mod 2 = 1 Then
Timer1.Enabled = True
Command1.Caption = "停止"
Else
Timer1.Enabled = False
Command1.Caption = "开始"
End If
End Sub
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
yiyiarrow
2012-06-18 · TA获得超过391个赞
知道小有建树答主
回答量:588
采纳率:0%
帮助的人:425万
展开全部
没看到代码,所以不知道你具体要实现什么,先写一下下面的。。
private sub form_load()
timer1.enabled=false
end sub
private sub command1_click()
timer1.inverval=5000
timer1.enabled=true
end sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式