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 展开
我写的代码在这里,求详细指点。
今天给的课题,周四就要进行答辩了。我了个*。。。。。。。。。
晕。。。太着急、代码忘了粘贴了
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 展开
展开全部
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
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
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询