将窗体分配给窗体变量,然后修改它的控件



我的windows应用程序和我有多个类似的设计表单,具有相同的控件名称,我试图全部使用,比如:

form2.textbox2.text="somthing"
form3.textbox2.text="somthing"
form4.textbox2.text="somthing"

我不能那样做,但这是另一种做类似的事情的方法

dim formx as form = form2
formx.textbox2.text="something"
formx=form3
formx.textbox2.text="something"
formx=form4
formx.textbox2.text="something"

您可以使用一个助手方法来接收表单、控件名称和要设置的值。然后你可以用Controls搜索控件。查找:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
SetText(Me, TextBox1, "Hello")
SetText(Form2, TextBox2, "World")
SetText(Form3, TextBox2, "blah")
End Sub
Private Sub SetText(ByVal frm As Form, ByVal controlName As String, ByVal value As String)
Dim ctl As Control = frm.Controls.Find(controlName, True).FirstOrDefault
If Not IsNothing(ctl) Then
ctl.Text = value
End If
End Sub

最新更新