Timer属性判定问题?如设成3,4分钟,要怎样做.

Question

Timer属性判定问题?如设成3,4分钟,要怎样做.Timer1.Interval = 1000
Timer1.Interval = 240000 '设成四分钟.
系统提示:timer属性无效.
要怎样才能让timer控件支持大的时间段,谢谢谢谢大家

Answer 1

没有办法的，根据你的需要，你考虑一下用其它方法实现吧1 to 65,535  设置的时间间隔（以毫秒计），在 Timer 控件 Enabled 属性设置为 True 时开始有效，例如，10，000 毫秒等于 10 秒。最大值为 65，535 毫秒，等于 1 分钟多一些。

Answer 2

或者可以用一个TIMER控件来计时，再把要实行周期调用的代码写到一个过程中，只要到达每个4分钟的倍数的时候就执行那个过程。只是一个想法，未知是否可行 ^_^

Answer 3

你timer里每一秒取当前系统时间，当与第一次取的时间差是4分钟不就ok了。

Answer 4

用sleep函数吧。
楼上的方法会不会很慢啊。

Answer 5

iCalInterval \iMailInterval 两个全局变量
    设置iMailInterval =4
    Timer1.Interval = 60000
    在定时器事件中使用以下代码
    iCalInterval = iCalInterval + 1
    If iCalInterval > iMailInterval Then iCalInterval = 0
    
    If iCalInterval > iMailInterval 
    begin
        执行你的代码
    endif

Answer 6

如果用sleep，那么整个程序就都睡着了。用timer函数，取自午夜以来的秒数，当两个秒数相差超过你设定的时间，那就执行代码
dim a as long
dim b as long
a =timer
b=timer
do 
  doevents
  b=timer
  if b-a>240 then '1分钟60秒，4分钟就是240秒
  
  '你想干什么在这添代码
    exit do '做完了跳出去
   end if
loop

Answer 7

我觉得 lemonchen(浪迹天涯) 的行啊.可以达到你的目的.我觉得也不费时啊!