学习中发现需要延时触发(不需要特别精确),查阅不少资料,发现都不是很好,琢磨老久发现下面的代码似乎可以实现:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Timer1_Timer() 'Timer1.Interval=1000
t = Timer
Text1 = t '实现每隔2s输出timer值
Sleep (1000)
End Sub
~-~ :) 班门弄斧,贻笑大方了,请高手指点!