请问怎么样用函数给不同TEXTBOX赋值?

Question

例如 有3个textbox 
textbox1
textbox2
textbox3请问怎么用函数给这三个TEXTBOX赋值?例如 SetTextBox( "textbox1","abc") 就把 textbox1.text ="abc"
SetTextBox( "textbox2","abcd")

Answer 1

Private Sub SetTextBox(TextBox As TextBox, Optional Text As String = "")
   TextBox.Text = Text
End SubPrivate Sub Command1_Click()
   SetTextBox textbox1, "abc"
   SetTextBox textbox2, "abcd"
End SubPrivate Sub Command2_Click()
   '下面这两句效果等同：
   SetTextBox textbox1
   SetTextBox textbox1, vbNullString
End Sub

Answer 2

Me.Controls("Text1").Text = "abc"

Answer 3

Private Sub SetTextBox(Tx As TextBox, Optional s As String = "")    
Tx= s 
End Sub

Answer 4

给个VB6的代码，vb.net的应该也类似
Option ExplicitPrivate Sub Form_Load()
    Call SetTextBox("text1", "abc")
End Sub
Private Sub SetTextBox(ByVal sTextBox As String, ByVal sValue As String)
    Me.Controls(sTextBox).Text = sValue
End Sub

Answer 5

例如 SetTextBox( "textbox1","abc") 就把 textbox1.text ="abc"=========================这样比直接写textbox1.text ="abc"好在哪里?