----Windows提供了定时器这种输入设备，它可以周期性地在指定间隔的时间过去时通知应用程序，VB中的Timer控件就是经过封装的定时器。SetTimer函数用来分配定时器，它有四个参数：hwndAsLong是接收WM_TIMER消息的窗口的句柄；nIDEventAsLong定时器的ID，它是一个非0数；uElapseAsLong是指定的一个时间间隔，以毫秒为单位；lpTimerFuncAsLong定时器函数的过程实例地址，在这里是回调过程的地址。KillTimer函数用来清除定时器：hwndAsLong与定时器相关的窗口；nIDEventAsLong定时器的ID。我们用AddressOf操作符建立回调过程，用来接收定时器的通知，需要注意的是回调过程必须建立在标准模块中，并且一定要具有正确的语法，由于VB不提供语法检查，也不对错误进行通知，因此在回调过程中使用错误的语法将会导致致命的错误，而使程序崩溃。
----创建一新的EXE项目，在窗体上放置一ProgressBar和Command控件，添加一模块，给模块添加API函数的声明：
----DeclareFunctionSetTimerLib"user32"(ByValhwndAsLong,ByValnIDEventAsLong,ByValuElapseAsLong,ByVallpTimerFuncAsLong)AsLong
----DeclareFunctionKillTimerLib"user32"(ByValhwndAsLong,ByValnIDEventAsLong)AsLong
Publicid_timerAsInteger
用来存放返回的定时器的ID
Constinc_stepAsInteger=5
设置ProgressBar值的增量
----Starttimer过程调用SetTimer函数生成定时器，hwnd和nIDEvent送入0表示在回调过程中不使用它们，uElapse置为100，让程序每100毫秒就调用一次回调函数；lpTimerFunc参数由AddressOfTimerProc将TimerProc的地址送入函数。
PublicSubstarttimer()
Id_timer=SetTimer(0,0,100,AddressOftimerproc)
Form1.ProgressBar1.Value=0
Form1.Command1.Caption="Stop"
EndSub
Endtimer清除定时器，同时给用户一个信息反馈。
PublicSubendtimer()
KillTimer0,id_timer
id_timer=0
MsgBox"Timerhasbeenkilled!",vbExclamation,"Done!"
Form1.Command1.Caption="Start"
EndSub
Updateprogressbar过程用来更新进程条的显示。
PublicSubupdateprogressbar()
DimpercentdoneAsInteger
percentdone=Form1.ProgressBar1.Value inc_step
Ifpercentdone>100Then
Form1.ProgressBar1.Value=100
endtimer
Else
Form1.ProgressBar1.Value=percentdone
EndIf
EndSub
----建立回调过程，这里回调过程只是调用updateprogressbar过程来更新显示。
PublicSubTimerProc()
updateprogressbar
EndSub
PrivateSubCommand1_Click()
Ifid_timer>0Then
endtimer
Else
starttimer
EndIf
EndSub
----保存并测试该应用程序，Start钮激活定时器，系统开始周期性地调用回调函数，定时器被连续激活（进程条不断更新），到100或按Stop后定时器被清除，显示终止。以上代码在VB5专业版，Pwin98操作系统下运行通过。
----何如在VB中使用回调(CallBack)过程->
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
