关于如何操作其他窗体的控件或变量的方法！

关于如何操作其他窗体的控件或变量的方法！

其实解决的方法有很多，在这里只做简单的总结。

1． 定义全局变量

其实这个方法比较简单也很好理解，我们只要在一个 module 里面定义了两个全局变量就可以了。

例如： public frm1 as new form1()

Public frm2 as new form2()

这样，我们无论在哪里想访问就很容易了。但是，这样做会耗费比较多的系统资源。一般来说不要使用全局变量。

2． 使用 shared 前缀

使用了 shared 定义的字段（变量）或者属性可以被其他窗体调用。

例如：（假设有窗体 form1 和 form2 ）

在 form1 中写入：

Public Shared m_add As String ‘这样我们在 form1 的任何地方都可以更改 m_add 的值

Private Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load

m_add = "111"

End Sub

在 form2 中写入：

Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

MessageBox.Show(Form1.m_add) ‘ 显然我们可以得到 form1 的这个变量了

End Sub

注意：使用 shared 时，不用定义实例，被定义成 shared 的变量或属性在所有的实例中都是一个值。就象上面的例子中使用 Form1.m_add 一样。所以如果是打开很多的同一个窗体的实例时，该值不变化 , 可以用来记录打开的实例数量。

3. 这种方法传递一个窗体实例过去，这样就可以获得该实例的变量与属性了。当然也可以对他们进行操作。

例如： 在 form1 中

Dim frm As New Form2(me)

frm.Show()

在 form2 中 ：

Dim m_parent as form1

Public Sub New ( ByVal sender As Object )

MyBase .New()

' 该调用是 Windows 窗体设计器所必需的。

InitializeComponent()

' 在 InitializeComponent() 调用之后添加任何初始化

M_parent=ctype(sender,form1) ‘或者 m_parent=directcast(sender,form1)

End Sub

Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

m_parent.textbox1.text = "1111"

End Sub

4. 设置一个属性来控制访问

这种方式在 new 一个窗体后， show 他出来前设置它的一个公共属性，这个属性就是本窗体的实例。当然也可以不是一个属性而是一个公共的字段。

如：在 form1 中：

Dim newform as new form2()

Newform.setparentform = me

Newform.show()

在 form2 中：

Dim m_parentform as form1

Public property setparentform as form1

Get

Return m_parentform

End get

Set (byval value as form1)

m_parentform = value

End set

注意：如果是 mdi 类型的话，可以通过子窗体的 parentform 属性获得相应的主窗体实例，这样就可以操作主窗体的控件或属性了。

--闵峰