对于如何设置其他窗体的控件或变量的方法
发表时间：2025-12-21 来源：浏览器大全整理相关软件相关文章人气：
关于如何操作其他窗体的控件或变量的方法！
其实解决的方法有很多，在这里只做简单的总结。
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
