在 VBA 中以编程方式确定 OnClick 事件的事件处理程序

Question

我正在开发一个在 MS Access VBA 中跟踪执行路径的应用程序。但是，我遇到了一个问题。似乎您可以在 VBA 中动态分配处理程序来控制 OnClick 和其他此类事件，但我看不到从这些控件中读取事件的方法。例如：

With Forms("Order Entry").Controls("OK") 
 If .OnClick = "" Then 
 .OnClick = "fnProcessOrder" 
 End If 
End With 

这会将函数“fnProcessOrder”动态分配给“确定”按钮。但是，如果您尝试获取该按钮的值，则会得到：

With Forms("Order Entry").Controls("OK") 
  Debug.Print "My Handler -->" + .OnClick
EndWith

结果：

--> [Event Procedure]

没有进一步的细节。这似乎是微软在此处所述的行为： https://msdn.microsoft.com/en-us/vba/access-vba/articles/commandbutton-onclick-property-access

但我想知道是否还有比这更进一步的方法。

我原以为这些信息会出现在 MSysObjects 和 MSysQueries 表中，但我在那里看不到它。我尝试使用 Database Documenter 提取我的测试数据库，并且我也从生成的文档中获得了该值。

有没有办法找到分配给控件的 VBA 函数？

Answer 1

实际上，我的代码看起来不正确。如果要将 VBA 函数分配给事件过程，则必须使用类似于以下的语法：.OnClick = "=fnProcess()" 注意文字 = 和 () - 这些是使 Access 识别您想要调用功能。

作为额外的考虑，您可以有一个类模块（我们称之为Observer），其代码类似于：

Private WithEvents ctlInterest As Access.Textbox

Public Sub Init(TargetControl As Access.Control)
  Set ctlInterest = TargetControl
  With ctlInterst
    If .OnClick = "" Then
      .OnClick = "[Event Procedure]"
    End If
  End With
End Sub

Private ctlInterest_OnClick()
  fnProcess()
End Sub

然后你可以像这样部署类......

Private objObserver As Observer

Private Sub Form_Load()
  Set objObserver = New Observer
  objObserver.Init(Me.txtInterest)
End Sub   

这将产生相同的结果，并且您最终会得到 多个 事件处理程序。

如需了解更多信息，this 可能会有所帮助。

结合函数表达式是可能的以及它可以随时动态分配的事实，它几乎需要代码路径分析来识别所有事件处理程序的可能入口点。这意味着您需要Rubberduck 的解析器。请注意，静态代码路径分析已计划但尚未实现，AIUI。

另外，我想确定一下——如果您打算为错误处理构建调用堆栈跟踪，您可能需要查看第三方加载项。例如，vbWatchDog，一种商业产品，可以在 VBA 中提供该信息。

Answer 2

这将返回事件的完整代码。如果您只在该事件中使用一个 sub，它应该可以工作。

Public Sub TestModulePrinter()
    Dim subName As String
    With Forms("Order Entry").Controls("OK")
      subName = "Private Sub " & .Name & "_OnClick()"
    End With
    Dim i As Long
    Dim IsPrinting As Boolean
    With Forms("Order Entry").Module
        For i = 1 To .CountOfLines
            If Not IsPrinting Then
                If Trim(.Lines(i, 1)) = subName Then
                    IsPrinting = True
                End If
            Else
                If Trim(.Lines(i, 1)) = "End Sub" Then
                    IsPrinting = False
                Else
                    Debug.Print .Lines(i, 1)
                End If
            End If
        Next i
    End With
End Sub