如何自引用控件

Question

在我的表单中，我需要能够点击一个控件并在代码中知道该控件的名称。

控件是否有办法像表单一样知道它自己的名字？

我正在寻找这样的东西（除了这将给出表格的名称）：

private sub someControl_click()
    msgbox Me.Name  'tell user the name of the control (= someControl)
end sub

Answer 1

从.Name获取控件的Screen.ActiveControl。

Private Sub someControl_click()
    MsgBox Screen.ActiveControl.Name
End Sub