Question

我正在尝试找到一种在其click事件中自动引用文本框名称的方法。该名称将在事件代码调用的子中使用。我知道它可以是硬编码的，但我有很多文本框，并且更喜欢使用通用代码。任何帮助将不胜感激。

编辑：是的，我应该键入'label'而不是'textbox' - 抱歉。无论如何，我希望能够使用一些简单的代码，如：

Private Sub lbl_Charges_Click()
    tabPage (me.activecontrol.name)
End Sub

显然，activecontrol方法对标签不起作用。我正在调用的代码是：

Private Sub tabPage(page As String)
    page = Mid(page, 5)
    Echo False
    Me.tab_Menu.Pages("pag_" & page).SetFocus
    Me.tab_Menu.Visible = True
    Me.lbl_Hide.SetFocus
    Echo True
End Sub

我正在做所有这一切的原因是我正试图找到一种方法来摆脱与此相关的所有闪烁（标签菜单和标签背景是透明的）echo方法将用标签菜单页面处理闪烁，但对命令按钮没有帮助。

TIA

Answer 1

您可以使用ActiveControl：

Call SomeClickFunction(Me.ActiveControl.Name)

或者，要传递控件本身：

Call SomeClickFunction(Me.ActiveControl)

在点击事件

1 个答案: