Question

请教一个vb.net的窗口之间传递变量值的问题

假设一个主窗口mainform上有三个按钮，点击各个按钮分别显示出form1，form2，form3。 三个窗口完全一样上面都有一个TextBox1 和 一个按钮 button1， 单击button1可以调出同一个子窗口sonform，然后sonform上有个label显示Textbox1的值。 我在三个窗口里定义了一个全局变量str = Textbox1.text, 然后再sonform里调用str的值
If form1.visible then
Label1.text=form1.str
ElseIf form2.visible then
Label1.text=form2.str
ElseIf form3.visible then
Label1.text=form3.str
End If
我通过上面的代码来判断那个窗口被打开，然后显示相应的str值。但是这样的话，得写三遍同样的代码，要是有10个窗口的话，得写十遍。不知道有没有大神有更好的方法，可以使过程和代码更加的简洁，先谢过。
一个form1，然后又建了form2和form3都继承自form1。form1上有按钮bnt1和TxtBox1，通过点击bnt1 调用form4， form4上有按钮，点击按钮获得form1上Txtb1值和form4上Txtb值运算。点击form2上bnt1调用form4，点击form4上的按钮运算，这回用form2上的Txtb1的值了，同理form3。运算写在form4的bnt点击事件里，之前的方法不适用。有什么方法？

Answer 1

用form的ShowDialog这个功能,这个是可以进行窗体间的传值的。

比如在父窗体上需要传的值是textbox1的内容，子窗体是childform.
那么在父窗体上的点击事件中可以这样写
dim frm as childform = New childform
'要在子窗体上的textbox1里显示父窗体中的textbox1中的内容，这样写
frm.textbox1.text = me.textbox1.text
'最后
frm.showdialog()
这样就可以了。
如果说你三个窗体完全一样，那你也不用写三个一样的窗体只要写一个就行了，在不同的按钮事件中做不同的赋值即可。

不过这样打开的子窗体是模态窗体，也就是说在子窗体显示之后，要对父窗体进行操作必需关闭子窗体才行。

Answer 2

        For Each f As Form In My.Application.OpenForms
            If f.ToString Like "Form*" Then
                    Label1.text=f.str
            End If
        Next

 大概这样就可以，My.Application.OpenForms包含的是已打开的窗口。

追问

谢谢您的答复，但是出现错误，因为str并不是windows.Forms.Form的成员，请问该怎么改呢？

追答

        For Each f  In My.Application.OpenForms '取消对f的定义
            If f.Name Like "Form*" Then 'toString改为Name
                    Label1.text=f.str
            End If
        Next

追问

非常谢谢您的回复，不好意思我的回复有点晚。还是会出现问题，虽然取消了对f的定义，在第一次单击按钮时没有出现错误，但是在第二次点击时会出现str不是mainform的成员，因为str只定义在form1,2,3中，而且最主要的问题是str的值并没有被传递 T_T。不好意思的再次向您请教有没有更好的解决办法？

追答

难道这句 If f.Name Like "Form*" Then 没用吗？这句是对名字符合条件的才进入操作，就是为了把mainform排除在外。你可以用其它检查方法，如用规则对象：
If System.Text.RegularExpressions.Regex.IsMatch(f.name, "^Form\d+$") Then
这样就相当精确了。