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

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属性获得相应的主窗体实例，这样就可以操作主窗体的控件或属性了。