多媒体计时器的问题

定时工作所消耗的时间能否大于定时间隔？ --------------------编程问答-------------------- 当然能 --------------------编程问答-------------------- 能 --------------------编程问答--------------------

引用楼主 warcraftmgq 的回复:

定时工作所消耗的时间能否大于定时间隔？

1、这是一个奇怪的问题，既然工作所消耗的时间>定时间隔，你怎么安定时间隔工作？你为什么不把定时间隔搞长一点。
2、你要想这么做，一般进入定时器时，要关闭定时器，工作完以后再打开定时器，例如：

Private Sub Timer1_Timer()

   Timer1.Enabled = False

   '在这里工作

   Timer1.Enabled = True

   

End Sub

--------------------编程问答-------------------- '添加一个Timer控件 Timer1
Private Sub Form_Load()
Timer1.Interval = 5 '这个间隔够短了吧
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
End '防止发生在程序运行忙时点关闭按钮可能只关闭窗口，却无法关闭程序的问题
End Sub

Private Sub Timer1_Timer()
   Cls '窗体清空作为Timer1_Timer事件开始的标志
   Print "第一个循环开始"
   For i = 1 To 2000
   a = a + i
   Me.Caption = a
   DoEvents
   Next
   Print "第一个循环完毕"
   Print "第二个循环开始"
   For i = 1 To 2000
   a = a + i
   Me.Caption = a
   DoEvents
   Next
   Print "第二个循环完毕"
End Sub

--------------------编程问答-------------------- 我是想使用定时器做一个AD转换的activex all，使用定时来触发一次AD转换动作(单通道进行一百次ad转换做算术平均保存好，然后通过类的方法来读取这个变量）由于会在不能得机器上运行，有的机器进行100次AD转换需要10ms 有的可能只需要2ms，我的意思是尽可能快的进行触发，
假设在这个机器上ad转换耗时10ms 但是我定时器设置延迟间隔为 1ms这样行不行？。 --------------------编程问答-------------------- 不明白什么问题。。

补充：VB ,  API