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）在Form_Load事件中添加以下代码：SetTimerhwnd,1,60000,0（3）在Form_Unload事件中添加以下代码：KillTimerhwnd,1（4）在Form_Timer事件中添加以下代码：Call执行程序4.个人心得：使用WindowsAPI函数SetTimer可以实现定时器功能，可以让程序每隔一段时间自动执行一个程序，这样可以提高程序的效率。