如何自我引用控件

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