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()M_parent=ctype(sender,form1) '在 InitializeComponent() 调用之后添加任何初始化 End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click m_parent.textbox1.text = "1111"End Sub注意:这种方法可以很方便的获得和使用另一个窗体的变量和控件,是一个不错的选择。如果我们只是想从form1获得一些变量或属性的值的话,可以直接传递变量或属性过去,而不是窗体的实例。‘-----------------------------------------------------------------------------------------------写在结束的话:[呵呵,我也是一个VB.NET的新手,在学习和使用它的时候遇到了很多困难,在网上找了很多文章来看,得到了不少帮助,现在也来写些文章,希望可以给那些和我一样的初学者以些许帮助。更希望,“高手们”不吝赐教,多多帮忙。如有转载,请注明作者和联系信息。谢谢!--作者:长春(何秋蔑)--email:heqiumie@163.net--QQ:61106719 --向那些热心帮助过我的相识和不相识的朋友们致敬! --2005/01/11 猜你喜欢