Question

在vb中的timer控件的interval的最大值是多少呀？

我想作一个每隔半小时就执行某项动做的事情，但是不想用到api，只想用timer控件

Answer 1

vb系统中提供了固有计时器timer控件，通过给计时器控件的interval属性设置不同的数值，就可以控制计时器运行的时间间隔，但该属性是一个双字节的整型变量，最大值只能设置为65535，即只有65535毫秒,约一分钟多一点，在需要长时间计时时，该控件就无能为力了。本

Answer 2

'设Timer1的Interval为60000（一分钟）
Private Sub Timer1_Timer()
Const MinuteMax = 30 '此常量代表间隔分钟
Static MinuteLength As Long '此静态变量代表已过去分钟
MinuteLength = MinuteLength + 1 '每过去一分钟计数+1
If MinuteLength > MinuteMax Then '如果达到30分钟
MinuteLength = 0 '将静态变量归零
'你想做的事
End If
End Sub

Answer 3

timer 控件不能做到这点,可以采用timer函数来做.部份源码.

Public start

Private Sub Form_Load()
Timer1.Interval = 500
'timer 指从午夜到现在的时间
start = Timer
End Sub

Private Sub Timer1_Timer()
'设置时间 N秒
dotime = 6000
'计算播放了多少秒
totle = Timer - start
'判断时间
Form1.Caption = "铃声 播放时间为:" + Str(totle) + "秒"

If totle > dotime Then
'关闭
Unload Me
End If

End Sub

Answer 4

把Timer1的Interval设为60000

Dim minute As Integer
Private Sub Form_Load()
minute = 0
End Sub
Private Sub Timer1_Timer()
minute = minute + 1
If minute = 30 Then
'每30分钟你要做的事
minute = 0
End If
End Sub

Timer的Interval属性最大值为65535,超出0.1也不行

Answer 5

一分钟 60000