UC知道问:VB里的timer一个用法
来源：百度知道 编辑：UC知道 时间：2024/05/09 06:37:23
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
for i=60 to 0 step -1
i= i -1
print " 倒数 " & i & " 秒"
End Sub
在如上代码中,如何定义i 才可以实现 隔一秒 i-1 呢
修改下
Private Sub Timer1_Timer()
for i=60 to 0 step -1
i= i -1
print " 倒数 " & i & " 秒"
next i
End Sub
1楼的那个我会 可我修改了 用到我的里面就错了
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
for i=60 to 0 step -1
i= i -1
print " 倒数 " & i & " 秒"
End Sub
在如上代码中,如何定义i 才可以实现 隔一秒 i-1 呢
修改下
Private Sub Timer1_Timer()
for i=60 to 0 step -1
i= i -1
print " 倒数 " & i & " 秒"
next i
End Sub
1楼的那个我会 可我修改了 用到我的里面就错了
Dim i As Integer
Private Sub Form_Load()
i = InputBox("输入倒记时起点")
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Cls
i = i - 1
Print " 倒数 " & i & " 秒"
If i <= 0 Then
Timer1.Enabled = False
End If
End Sub
Dim i As Integer
Private Sub Form_Load()
i = Val(InputBox("输入倒记时起点"))
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
i = i - 1
Print " 倒数 " & i & " 秒"
If i = 0 Or i < 0 Then
End
End If
End Sub