在Visual Basic（VBA）中传递对象引用

Question

如何将表单的TextBox对象传递给方法？

以下代码发出异常。

Private Sub DoSmthWithTextBox(ByRef txtBox as TextBox) 
    txtBox.BackColor = vbRed 
End Sub 

Private Sub TextBox1_Change() 
    DoSmthWithTextBox Me.TextBox1 
End Sub 

问题时DoSmthWithTextBox Me.TextBox1通过从TextBox1代替对象引用String出现。

如何将TextBox对象传递给DoSmthWithTextBox方法？

Answer 1

重写为Excel：

Private Sub DoSmthWithTextBox(txtBox As MSForms.TextBox) 
    txtBox.BackColor = vbRed 
End Sub 

据我所知，这是因为Excel有一个对象文本框是一个形状，而用户窗体使用ActiveX控件的文本框，所以你需要一个明确的参照MSForms库。