Office 2010下VBA Addressof的应用

最新推荐文章于 2024-01-19 21:51:54 发布

原创最新推荐文章于 2024-01-19 21:51:54 发布 · 3k 阅读

1 ·

CC 4.0 BY-SA版权

Office Development 同时被 3 个专栏收录

134 篇文章

订阅专栏

VBA

23 篇文章

订阅专栏

Addressof

1 篇文章

订阅专栏

本文介绍如何在VBA中利用Addressof函数在模块模式下实现计时器功能，通过实例演示了计时器的创建、设置及触发过程。

在VBA中Addressof不能在Class或Form中使用，只有Module模式下才能使用Addressof以面是一个计时器的例子：

Form1中代码：

Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long

Private Sub CommandButton1_Click()
    Module1.test
End Sub
Private Sub CommandButton2_Click()
    KillTimer 0, Module1.mHandle
End Sub

Module1下代码：

Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public mHandle As Long

Public Sub test()
    mHandle = SetTimer(0, 0, 2000, AddressOf MyTimerProce)
End Sub


Public Sub MyTimerProce(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long)
    MsgBox "hello"
End Sub