excel - VBA:在类模块中模拟 AddressOf 运算符的解决方法

Question

我需要在我正在开发的类中使用多个 Windows API 函数，用于一个业余爱好项目。其中几个函数需要使用 AddressOf 运算符，但根据Microsoft Documentation ，禁止在类模块中使用它。

有谁知道可以模拟 AddressOf 运算符的函数或某些标准方法，或者甚至可能吗？

背景
该应用程序以从工作表调用的函数为中心，然后使用这些函数实例化类并使用 SetTimer WinAPI 函数调用方法。

您可能会说:“好吧，您可以使用 Application.OnTime”，如果该函数不是从工作表中调用的，那么您是对的。出于充分的理由，Excel 的计算引擎显式忽略对 Application.OnTime 的调用(如果调用者是工作表)；然而，SetTimer 无论如何都会起作用。

我想避免在标准模块中放置公共(public)函数的笨拙实现(这将依赖于类的实例)，我将能够在其中使用 AddressOf 运算符，尽管以一种丑陋的、未封装的方式。

编辑:正如评论中提到的，最初，我故意没有透露我到底想做什么，以避免听到“你不应该这样做”，哈哈。我有一个工作类，它完全按照我想要的方式执行(即使用 Ctrl+Shift+Enter 标准方法将数组返回到工作表)，但我想尝试模拟 < em>动态数组函数目前正在由 Excel 开发团队进行 beta 测试，不需要您选择范围并通过Ctrl+Shift+Enter 输入数组。我知道如果我问类似“如何在没有 Ctrl+Shift+Enter 的情况下从 UDF 返回一个数组到工作表”之类的问题，每个人都会提供现有的答案和/或羞辱我，(我会这样做如果其他人问同样的问题，哈哈)，因为询问如何实现与 Excel 计算引擎的预期功能相矛盾的东西。

话虽如此，我的类还有另一个版本，它使用 QueryTable 对象将数据放入工作表中，其工作方式与动态数组函数 非常相似。我可能会将每个实现发布在Code Review上看看我如何改进它们/深入了解哪一个是最稳定的实现，等等。

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 Function Method1(varValsIn As Variant) As Variant
  
  Dim lngWindowsTimerID As Long
        
        'doing some stuff
        
        'call API function after doing some stuff
        lngWindowsTimerID = SetTimer(0&, 0&, 1, AddressOf DoStuff)

End Sub 

Private Sub DoStuff
    'Stuff to do
End Sub

Answer 1

你可以使用一些汇编语言来打破vb的限制，当然，利弊取决于你。我只是一个搬运工。有一个函数Ge​​tClassProcAddress:

Private Function GetClassProcAddress(ByVal SinceCount As Long) As Long
    Dim i As Long, jmpAddress As Long

    CopyMemory i, ByVal ObjPtr(Me), 4                                ' get vtable
    CopyMemory i, ByVal i + (SinceCount - 1) * 4 + &H1C, 4           ' 
    CopyMemory jmpAddress, ByVal i + 1, 4                            ' The function address obtained is actually a table, a jump table
    GetClassProcAddress = i + jmpAddress + 5                         ' Calculate jump relative offset to get the actual address
End Function

参数SinceCount:来自类模块的顶层函数或属性，它是哪个函数？

1. 当查找的函数是公共(public)函数时，其值为从顶部开始计算的函数个数，如公共(public)函数WndProc写在类模块的顶部，如果是则传1第二个公共(public)函数或属性，然后依次传递2...注意计算时，公共(public)属性也要计算。

2. 当查找的函数是局部函数时，也就是说，如果是Private修饰的函数，则参数值为所有公共(public)函数的编号+该私有(private)函数的索引。也是从上往下计算，包括属性。

不幸的是，我想说我们不能直接使用它。编译后函数中会添加一些参数，例如vTable指针。所以我们需要构造一个小函数->类函数。

Private Function GetClassProcAddr(obj As Object, ByVal Index As Long, _
    Optional ByVal ParamCount As Long = 4, Optional ByVal HasReturnValue As Boolean) As Long
    Static lReturn As Long, pReturn As Long
    Static AsmCode(50) As Byte
    Dim i As Long, pThis As Long, pVtbl As Long, pFunc As Long

    pThis = ObjPtr(obj)
    CopyMemory pVtbl, ByVal pThis, 4
    CopyMemory pFunc, ByVal pVtbl + (6 + Index) * 4, 4
    pReturn = VarPtr(lReturn)

    For i = 0 To UBound(AsmCode)                                'fill   nop
        AsmCode(i) = &H90
    Next
    AsmCode(0) = &H55                                           'push   ebp
    AsmCode(1) = &H8B: AsmCode(2) = &HEC                        'mov    ebp,esp
    AsmCode(3) = &H53                                           'push   ebx
    AsmCode(4) = &H56                                           'push   esi
    AsmCode(5) = &H57                                           'push   edi
    If HasReturnValue Then
        AsmCode(6) = &HB8                                       'mov    offset lReturn
        CopyMemory AsmCode(7), pReturn, 4
        AsmCode(11) = &H50                                      'push   eax
    End If
    For i = 0 To ParamCount - 1                                 'push   dword ptr[ebp+xx]
        AsmCode(12 + i * 3) = &HFF
        AsmCode(13 + i * 3) = &H75
        AsmCode(14 + i * 3) = (ParamCount - i) * 4 + 4
    Next
    i = i * 3 + 12
    AsmCode(i) = &HB9                                           'mov    ecx,this
    CopyMemory AsmCode(i + 1), pThis, 4
    AsmCode(i + 5) = &H51                                       'push   ecx
    AsmCode(i + 6) = &HE8                                       'call   relative address
    CopyMemory AsmCode(i + 7), pFunc - VarPtr(AsmCode(i + 6)) - 5, 4
    If HasReturnValue Then
        AsmCode(i + 11) = &HB8                                  'mov    eax,offset lReturn
        CopyMemory AsmCode(i + 12), pReturn, 4
        AsmCode(i + 16) = &H8B                                  'mov    eax,dword ptr[eax]
        AsmCode(i + 17) = &H0
    End If
    AsmCode(i + 18) = &H5F                                      'pop    edi
    AsmCode(i + 19) = &H5E                                      'pop    esi
    AsmCode(i + 20) = &H5B                                      'pop    ebx
    AsmCode(i + 21) = &H8B: AsmCode(i + 22) = &HE5              'mov    esp,ebp
    AsmCode(i + 23) = &H5D                                      'pop    ebp
    AsmCode(i + 24) = &HC3                                      'ret
    GetClassProcAddr = VarPtr(AsmCode(0))
End Function

代码引用来自:https://blog.csdn.net/lyserver/article/details/4224676