| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2211 人关注过本帖
标题:timer2.interval=60000与timer2.interval=1000*60的不同
只看楼主 加入收藏
lijun337
Rank: 1
等 级:新手上路
帖 子:379
专家分:5
注 册:2006-4-12
结帖率:84.62%
收藏
 问题点数:0 回复次数:8 
timer2.interval=60000与timer2.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??
为什么?

2006-04-23 20:20
xinfresh
Rank: 4
等 级:贵宾
威 望:13
帖 子:594
专家分:0
注 册:2006-1-13
收藏
得分:0 

Interval 属性

返回或设置对 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 属性时,请记住:

  • Timer 控件的 Enabled 属性决定该控件是否对时间的推移做响应。将Enabled 设置为 False 会关闭 Timer 控件,设置为 True 则打开它。当 Timer 控件置为有效时,倒计时总是从其 Interval 属性的设置值开始。

  • 创建 Timer 事件程序用以告诉 Visual Basic 在每次 Interval 到时该做什么。

E-mail:xinfresh@QQ:383094053校内:http:///getuser.do?id=234719042
2006-04-23 21:11
lijun337
Rank: 1
等 级:新手上路
帖 子:379
专家分:5
注 册:2006-4-12
收藏
得分:0 
设置timer2.interval=1000*60
执行之,就出错!提示“实时错误6,溢出!”

如何具体解决!

请示!

谢谢!
2006-04-24 17:51
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
interval 属性好像最大只能是6000吧..

我的msn: myfend@
2006-04-24 18:03
lijun337
Rank: 1
等 级:新手上路
帖 子:379
专家分:5
注 册:2006-4-12
收藏
得分:0 
我准备用它显示分钟的!
做个计时器的!
2006-04-24 20:56
lijun337
Rank: 1
等 级:新手上路
帖 子:379
专家分:5
注 册:2006-4-12
收藏
得分:0 

通过XINFRESH提供的信息!

是不是要在代码前面先定义:

dim timer.interval = 1 to 65,535

是么?

具体代码怎么编写呢?

2006-04-24 21:04
qqqaaaqqq
Rank: 1
等 级:新手上路
帖 子:94
专家分:0
注 册:2005-12-30
收藏
得分:0 

我在VFP中设置timer.interval可以为1999999999,看来VFP中的timer比较好

2006-04-24 21:47
VBACO
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2006-4-23
收藏
得分:0 

VBInteval最大为1000,好使用5秒钟的定时的话
Private Sub Timer1_Timer()
Static Sec As Integer
Sec = Sec + 1
If Sec = 5 Then
'执行的代码
Sec = 0
End If
End Sub

2006-04-24 22:06
lijun337
Rank: 1
等 级:新手上路
帖 子:379
专家分:5
注 册:2006-4-12
收藏
得分:0 

结果已经做出来了!如下:

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

执行之没有错,这样可以么?

2006-04-24 22:27
快速回复:timer2.interval=60000与timer2.interval=1000*60的不同
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017428 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved