Question

VB6.0想用定时器每隔1分钟自动执行一个程序，并且一直重复上面的代码

Answer 1

问：VB6.0想用定时器每隔1分钟自动执行一个程序，并且一直重复上面的代码

答：你好，很高兴为你服务，为你作出如下解答:1.原因：VB6.0不支持定时器，因此无法实现每隔1分钟自动执行一个程序的功能。2.解决方法：可以使用WindowsAPI函数SetTimer来实现定时器功能。3.步骤：（1）在VB6.0中添加一个模块，并在模块中添加以下代码：PublicDeclareFunctionSetTimerLib"user32"(ByValhwndAsLong,ByValnIDEventAsLong,ByValuElapseAsLong,ByVallpTimerFuncAsLong)AsLongPublicDeclareFunctionKillTimerLib"user32"(ByValhwndAsLong,ByValnIDEventAsLong)AsLongPublicConstWM_TIMER=&H113（2）在窗体中添加一个按钮，并在按钮的Click事件中添加以下代码：DimTimerIDAsLongTimerID=SetTimer(Me.hwnd,0,60000,0)（3）在窗体中添加一个Timer事件，并在Timer事件中添加以下代码：KillTimerMe.hwnd,TimerID'在此处添加要执行的程序TimerID=SetTimer(Me.hwnd,0,60000,0)4.个人心得：使用WindowsAPI函数SetTimer可以实现定时器功能，可以让程序每隔一段时间自动执行一个程序，可以极大地提高程序的效率。