请问怎么样用函数给不同TEXTBOX赋值?
例如 有3个textboxtextbox1
textbox2
textbox3
请问怎么用函数给这三个TEXTBOX赋值?
例如 SetTextBox( "textbox1","abc") 就把 textbox1.text ="abc"
SetTextBox( "textbox2","abcd") --------------------编程问答--------------------
Private Sub SetTextBox(TextBox As TextBox, Optional Text As String = "")--------------------编程问答-------------------- Me.Controls("Text1").Text = "abc" --------------------编程问答-------------------- Private Sub SetTextBox(Tx As TextBox, Optional s As String = "")
TextBox.Text = Text
End Sub
Private Sub Command1_Click()
SetTextBox textbox1, "abc"
SetTextBox textbox2, "abcd"
End Sub
Private Sub Command2_Click()
'下面这两句效果等同:
SetTextBox textbox1
SetTextBox textbox1, vbNullString
End Sub
Tx= s
End Sub --------------------编程问答-------------------- 楼上几位正解
可以结贴了 --------------------编程问答-------------------- 给个VB6的代码,vb.net的应该也类似
Option Explicit--------------------编程问答-------------------- 例如 SetTextBox( "textbox1","abc") 就把 textbox1.text ="abc"
Private 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
=========================
这样比直接写textbox1.text ="abc"好在哪里? --------------------编程问答--------------------
可以“动态引用”。
在某些时候还是有实用价值的。
--------------------编程问答--------------------
是的, 我用到过通过外部配置文件控制程序内部控件舒适化等.
补充:VB , 基础类