Timer1.Interval不能超过多少?298秒执行一次按钮点击动作怎样写vb代码
的有关信息介绍如下:Timer1.Interval最大数可是3000
Timer.interval=1000
Private Sub Timer1_Timer()
a =a+ 1
If a >= 298 Then
Command1_Click
a = 0
End If
End Sub
Dim IntJs As Integer
Private Sub Command1_Click()
'代码
End Sub
Private Sub Form_Load()
Timer1.Interval = 2000
End Sub
Private Sub Timer1_Timer()
IntJs = IntJs + 1
If IntJs * 2 >= 298 Then
Command1_Click
IntJs = 0
End If
End Sub