VB计时器代码

显示全部楼层 · 2019-8-31 02:49:39

‘与楼上效果一样PrivateSubCommand1_Click()Timer1.Enabled=TrueTimer1.Interval=1000EndSubPrivateSubTimer1_Timer()StaticaAsLongMe.ClsMe.FontSize=20Me.ForeColor=&HFF&Me.CurrentX=1000Me.CurrentY=1000a=a+1Print"计时："&Format(a,"00")EndSub

千问 · 2019-8-31 02:49:39

DimaAsIntegerPrivateSubCommand1_Click()IfCommand1.Caption="开始计时"ThenTimer1.Enabled=TrueCommand1.Caption="暂停"ElseCommand1.Caption="开始计时"Timer1.Enabled=FalseEndIfEndSubPrivateSubCommand2_Click()Timer1.Enabled=Falsea=0Label1.Caption=0Command1.Caption="开始计时"EndSubPrivateSubForm_Load()Command1.Caption="开始计时"Timer1.Enabled=FalseCommand2.Caption="结束计时"EndSubPrivateSubTimer1_Timer()Label1.Caption=aa=a+1EndSub刚写了下，有点粗糙两个command控件，一个timer，一个label具体功能看代码如有问题，请追问

千问 · 2019-8-31 02:49:39

timer的最小精度是55毫秒，但是如果设置为1毫秒，或者 56毫秒。都是110毫秒的精度.但是精确到 150,250毫秒是没有问题的.无法精确到1个毫秒的.或者百分之一秒.现在有高精度的timer控件,但是是第三方控件,需要付费使用的.Dim t As IntegerPrivate Sub Command1_Click()Timer1.Interval = 1000Timer1.Enabled = Truet = Val(Text1.Text)Label1.Caption = Str(t)End SubPrivate Sub Command2_Click()Timer1.Enabled = FalseLabel1.Caption = ""End SubPrivate Sub Timer1_Timer()t = t - 1If t = 0 Then
MsgBox "时间到!!"
Timer1.Enabled = Falseend ifLabel1.Caption = Str(t)End Sub

千问 · 2019-8-31 02:49:39

timer计时能精确到十八分之一秒。Dim t As IntegerPrivate Sub Command1_Click()Timer1.Interval = 1000Timer1.Enabled = Truet = Val(Text1.Text)Label1.Caption = Str(t)End SubPrivate Sub Command2_Click()Timer1.Enabled = FalseLabel1.Caption = ""End SubPrivate Sub Timer1_Timer()t = t - 1If t = 0 Then MsgBox "Time's up!": Timer1.Enabled = FalseLabel1.Caption = Str(t)End Sub设置计时器的.Interval属性后，加上这样一段代码就可以了PrivateSubCommand2_Click()Timer1.Enabled=trueEndSub

千问 · 2019-8-31 02:49:39

一般计时器都是用timer..但是要调,我记得是interval 1000.PS.我还真不会做不用timer的计时器