vb.net传值实例的简单介绍

VB.NET窗体间的数据传递

在编写VB.Net windows应用程序的时候我们经常会遇到这种问题，怎么样在两个窗体间传递数据呢？例如，用VB.Net做一个文本编辑器，里面有一个搜索功能（即搜索我打开的文本里面的文字），点搜索则弹出搜索对话框，输入要搜索的内容，然后确定，就可以搜索到我打开的文本里面的文字了，这里就用到了两个窗体间的相互通信。我查看了相关的资料想了想，得出一些想法和方法。

成都创新互联公司专注于郫都网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供郫都营销型网站建设，郫都网站制作、郫都网页设计、郫都网站官网定制、微信小程序定制开发服务，打造郫都网络公司原创品牌,更为您提供郫都网站排名全网营销落地服务。

也许有的人会觉得这个很简单呀。假如主框架为Form1，打开的搜索对话框是Form2.直接在Form2类中申明一个Form1实例：dim f1 as new Form1然后就可以通过f1来调用Form1中的域和函数了。其实不是这样的，你申明的新的Form1实例不是原来的那个Form1对象了，这样操作的是新的Form1中的域和函数，和最先打开的Form1是没有关系的。

那应该如何来完成两个窗体的通讯呢？我们要做的是把当前的Form1实例传递给Form2，如果是这样的话，问题就很好解决了。

方法1：首先，我们在Form2中定义：

Private mF_Form As Form1

我们更改Form2的构造函数为有参数的

Public Sub New(ByVal form As Form1)

MyBase.New()

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

InitializeComponent()

Me.mF_Form = form

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

End Sub

在Form1中，我在 要用到Form2的地方申明如下：

Dim f1 As New Form2(Me)

这里的me指的就是Form1当前的实例,也就是把当前Form1的实例通过Form2的构造函数传递给Form2类（其实在网上看到过比较蠢的方式，就是在构造函数里面传递要传递的信息如：字符串或是数字等，这样做很有局限性，不能传递其他的，所有我们可以直接传递实例,来完成传递更多的信息。）

这样在Form2中使用myForm 就可以对原来的Form1窗口进行操作了。但是你要把要操作的Form1中的域和函数定义成public形式的（这样可能不安全），此时的myForm就是真正的最开始打开的Form1了，你可以用这个实例来进行两个窗体的通讯了。

方法2：其实VB.Net中提供了窗体间进行通讯的现成的属性，呵呵，我们能想到的，微软也想到了，他们创造的语言其实确实可以说是人性化了。

在Form1类中申明Form2时用如下代码：

Dim f2As New Form2 '类Form2中的构造函数不改，还是无参的

f2.owner=me

也可以使用函数的方法，给当前实例添加一个附属窗口 代码：Me.AddOwnedForm(f2)

在Form2类的定义中写如下代码：

dim f1 as Form1=me.owner

这样f1对应的就是原来的Form1的实例了，也就可以用这个进行通讯了。但是还是要把不同类之间访问的域和函数定义成public，哎,安全确实是一个问题！！

vb.net实现窗体间传值

你需要在form1的程序里实例化form2 再使用form2实例化名称调用对应的组件属性 例：

form1_load(){

...

form frmForm2 = new form2();

me.title = frmForm2.textbox1.text;

...

}

VB.net 两个窗体之间传递参数

新窗体中写构造函数，然后调用。

比如你要调用的新窗体是From1.cs这个窗体，

public Form1(要传入的参数)

{

//把传入的参数传入窗体中

//执行窗体标准内容

}

然后在需要调用的地方调用

Form1 f = new Form1(传出的参数);

'--------Form1--------

Dim f2 As Form2

Private Sub Command1_Click()

Set f2 = New Form2

f2.Show vbModal

End Sub

'--------Form1 End--------

'--------Form2--------

Dim WithEvents f3 As Form3

Private Sub Command1_Click()

Set f3 = New Form3

f3.Show

End Sub

Public Sub f3_f2W()

Me.Command1.Caption = "f2W"

End Sub

'--------Form2 End--------

'--------Form3--------

Public Event f2W()

Private Sub Command1_Click()

RaiseEvent f2W

End Sub

'--------Form3 End--------

f.Show();

如此就能实现调用了。

vb.net 窗体之间怎么传值

方法很多，vb.net很简单的比如： Form2窗体的Textbox2属性设置为public，在Form1点击button1.

Dim frm As New Form2

frm.TextBox2.Text = "123"

frm.ShowDialog() 可以取到form1里面窗体传的值

还有一种方法：From1 ：

Dim frm As New Form2

frm.Owner = Me

frm.ShowDialog()

from2 : Private frmParent As Form1

frmParent = Me.Owner

Me.TextBox2.Text = frmParent.TextBox1.Text