为什么不能呢?如果这样设置:
timer1.interval=1000
timer2.interval=60000?的话,显示timer1的TEXT1与显示timer2的TEXT2便不能同步!
但60000改为1000*60时却执行出错!无法使用!
我试了试:
timer1.interval=1000
timer2.interval=1000*5
这样才能做到同步!
好象timer.interval达不到1000*60??
为什么?
为什么不能呢?如果这样设置:
timer1.interval=1000
timer2.interval=60000?的话,显示timer1的TEXT1与显示timer2的TEXT2便不能同步!
但60000改为1000*60时却执行出错!无法使用!
我试了试:
timer1.interval=1000
timer2.interval=1000*5
这样才能做到同步!
好象timer.interval达不到1000*60??
为什么?
返回或设置对 Timer 控件的计时事件各调用间的毫秒数。
语法
object.Interval [= milliseconds]
Interval 属性语法有以下组成部分:
部分 | 描述 |
object | 对象表达式,其值是“应用于”列表中的一个对象。 |
milliseconds | 数值表达式,指定毫秒数,“设置值”中有详细说明,。 |
设置值
milliseconds 的设置值为:
设置值 | 描述 |
0 | (缺省值)使 Timer 控件无效。 |
1 to 65,535 | 设置的时间间隔(以毫秒计),在 Timer 控件 Enabled 属性设置为 True 时开始有效,例如,10,000 毫秒等于 10 秒。最大值为 65,535 毫秒,等于 1 分钟多一些。 |
说明
可以在设计时或在运行时设置 Timer 控件的 Interval 属性。使用 Interval 属性时,请记住:
通过XINFRESH提供的信息!
是不是要在代码前面先定义:
dim timer.interval = 1 to 65,535
是么?
具体代码怎么编写呢?
我在VFP中设置timer.interval可以为1999999999,看来VFP中的timer比较好
VBInteval最大为1000,好使用5秒钟的定时的话
Private Sub Timer1_Timer()
Static Sec As Integer
Sec = Sec + 1
If Sec = 5 Then
'执行的代码
Sec = 0
End If
End Sub
结果已经做出来了!如下:
Private Sub Timer1_Timer()
Dim a As Integer
Dim b As Integer
a = Val(Text8.Text)
a = a + 1
Text8.Text = a
If Int(a / 60) = a / 60 Then
Text8.Text = ""
a = a + 1
b = Val(Text7.Text)
b = b + 1
Text7.Text = b
End If
End Sub
Text8显示秒,Text7显示分
Timer1.Enabled = True
Timer1.Interval = 1000
执行之没有错,这样可以么?