excel - VBA 将表单控件传递给函数

Question

全部，

我一直在纠结这个问题:是否可以将对象传递给函数？

这是我想要完成的:

1. 获取在表单上按下的控件的名称(作为对象？)
2. 将控件的名称发送到函数“MyFunction”(作为引用？)
3. 禁用“MyFunction”上的相同控件

从 form1 调用:

Private Sub button1_Click()
    Dim caller As String
    caller = Form1.ActiveControl.Name

    MyFunction(caller)

End Sub 'I'm able to pass it as a string

button1_Click 调用 MyFunction 并将 caller 传递给它:

Private Sub MyFunction(caller As String)
    caller.Enabled = False
End Sub

我知道这不能用作字符串。我怎么可能把它当作一个实际的对象呢？谢谢!

Answer 1

将对象传递给子对象几乎没有问题:

Private Sub Disable(c As Control)
    MsgBox c.Name
    c.Enabled = False
End Sub

Private Sub CommandButton1_Click()
    Disable CommandButton1
End Sub

Private Sub CommandButton2_Click()
    Disable CommandButton2
End Sub

Private Sub CommandButton3_Click()
    Disable CommandButton3
End Sub

在上面我创建了一个带有三个按钮的用户窗体，他们在点击时说出他们是谁，然后被禁用。

注意

Disable CommandButton1

可以替换为

Disable Me.ActiveControl

甚至只是

Disable ActiveControl