vb2008 字符串转控件名称

如： form1中有textbox1,textbox2,.... 双击任意textbox.进入form2,在form2中可以改变相应的textbox的.text值。请问如何编写？

答案：在form2中的文本框输入值同时会改变form1中双击的那个文本框
form1中代码：
    Private Sub TextBox1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.DoubleClick
        Form2.Show()
        Form2.setTbox(sender)
    End Sub
    Private Sub TextBox2_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.DoubleClick
        Form2.Show()
        Form2.setTbox(sender)
    End Sub
 
form2中代码：
    Public tbox As TextBox
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        tbox.Text = TextBox1.Text
    End Sub
    Public Sub setTbox(ByVal tb As TextBox)
        tbox = tb
    End Sub 
 
另外其实form1中的代码可以精简成如下的：
    Private Sub TextBox1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.DoubleClick, TextBox2.DoubleClick
        Form2.Show()
        Form2.setTbox(sender)
    End Sub

其他：(sender as TextBox).Text="新值"; Private Sub Textx_DblClick()
form2.Textx.Text ="xxxx"
me.hide
form2.show
End Sub 添加form1和form2窗体，在form1里面添加两个文本框。
首先在form2中添加一个公共变量Public texts As TextBox
在form1代码中打开文本框的双击事件，如此编码
Public Class Form1
    Private Sub TextBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.DoubleClick
        Form2.texts = Me.TextBox1
        Form2.Show()
    End Sub
    Private Sub TextBox2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.DoubleClick
        Form2.texts = Me.TextBox2
        Form2.Show()
    End Sub
End Class
 
 
 
在form2中添加加载事件，在加载的时候改变相应的
Public Class Form2
    Public texts As TextBox
    Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        texts.Text = "111"
    End Sub
End Class

上一个：VB的TXT操作
下一个：Rs.MovePreviou下的Label8=Rs!NO无法执行出现 实时错误:3021求解！！！急死人了！~