《f-vba定时器》由会员分享，可在线阅读，更多相关《f-vba定时器（3页珍藏版）》请在金锄头文库上搜索。
1、iFix3.5 实例指导http:/www.opc- QQ:41063473 1第三例第三例 VBA 窗体定时器的应用窗体定时器的应用对于 iFix3.5 画面上的定时器，应该来讲应用是非常简单的，然而，在脚本 VBA 中创建的窗体中并没有定时器这个控件，那么如何在 VBA窗体中实现定时器的功能呢？如果大家用过 C 语言，那么就知道在 C 语言中是采用 SetTimer 和KillTimer 来创建和注销定时器的，在 iFix VBA 中我们也采用这两个函数来实现定时器的功能。新建一个画面，命名为 Timer。进入脚本，新建一个窗体，新建一个模块。在窗体上添加一个命令按钮控件。如图 3.1 所
2、示。模块 1 里的代码如下：Public Declare Function SetTimer Lib “user32“ (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As LongPublic Declare Function KillTimer Lib “user32“ (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long这两个是对 API 函数 SetTimer 和 KillTimer 的引用。i
3、Fix3.5 实例指导http:/www.opc- QQ:41063473 2Sub Timer_eg() 用来测试定时器，按照设定时间间隔触发UserForm1.Caption = UserForm1.Caption + 1 用来使窗体的 CAPTION 变化End Sub窗体下的代码如下：Dim timerset As Integer设置一个定时器，时间间隔为 150 毫秒，入口函数为 Timer_eg，即每隔 150 毫秒启动一次 Timer_eg。Private Sub CommandButton1_Click()timerset = SetTimer(0, 0, 150, Addre
4、ssOf Timer_eg)End SubPrivate Sub UserForm_Activate()UserForm1.Caption = 0初始化设置窗体 CAPTION 为 0End Sub如果窗体注销，注销定时器Private Sub UserForm_Terminate()If timerset 0 Thentimerset = KillTimer(0, timerset)End IfEnd Sub然后在画面上添加一个命令按钮控件，脚本如下：Private Sub CommandButton1_Click()UserForm1.ShowEnd Sub现在运行画面，点击画面按钮，出现下图：iFix3.5 实例指导http:/www.opc- QQ:41063473 3点击命令按钮，窗体的 CAPTION 开始以数字增加的方式变化，如下图所示：
