能否将控件名称当作变量传递？或者有什么好方法？关于语法

Question

Private Sub TextBox1_Click()
    CheckRow TextBox1, TextBox1.Text, 1
End SubPrivate Sub TextBox2_Click()
    CheckRow TextBox2, TextBox2.Text, 2
End SubFunction CheckRow(TxtB As Object, Txt As String, TxtIndex As Integer)
     TxtB.text=""
     我就是想将Textbox1或者Textbox2当作变量来传递，同时改变他的属性，可以这么做吗？
End Function

Answer 1

不用写其他的东西,就传一个对象就行了Private Sub Form_Load()
    text1.text="this is a test"
    Call GetObj(Text1)
End Sub
Private Sub GetObj(objtmp As Object)
    objtmp.Text = "Get it!"
End Sub

Answer 2

Function CheckRow(TxtB As TextBox) 
     TxtB.text="dddd"
End Function

Answer 3

声明的时候不用 as object 用控件的类型 很方便！

Answer 4

Function CheckRow(TxtB As TextBox, Txt As String, TxtIndex As Integer)
即可