vbnet窗体间传值 vbnet窗体数据如何交互

vb 窗体间传递值

如果是

目前创新互联公司已为超过千家的企业提供了网站建设、域名、雅安服务器托管、绵阳服务器托管、企业网站设计、隆昌网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。

VB

6.0，您可以考虑通过设置全局变量来在两个窗体间传递数据。

如果是

VB.NET

可以这样来进行：

假设登录对话框为Form2，确定按钮名称为CmdOK:

将

Form2

的

AcceptButton

属性设置为

CmdOK

将

Form2

的

CmdOK

按钮的

DialogResult

设置为

OK

在

Form1

需要添加显示对话框代码的位置添加：

Dim

Dialog

As

New

Form2

If

Dialog.ShowDialog

=

Windows.Forms.DialogResult.OK

Then

Me.Text

=

"XXX系统

-

"

Dialog.TextBox1.Text

End

If

这样在Form1主窗口内的标题栏就会显示用户名了。

同理，可以通过访问Dialog中的任何对象来取得对话框中的任何信息。

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 两个项目里两个窗体传值

通过Database吧！不然得通过消息处理API比如

Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _

ByVal hwnd As IntPtr, _

ByVal wMsg As Integer, _

ByVal wParam As Integer, _

ByVal lParam As Integer) _

As Boolean

但必须得事先知道另外一个项目的text1的句柄

请教一个vb.net的窗口之间传递变量值的问题

用form的ShowDialog这个功能,这个是可以进行窗体间的传值的。

比如在父窗体上需要传的值是textbox1的内容，子窗体是childform.

那么在父窗体上的点击事件中可以这样写

dim frm as childform = New childform

'要在子窗体上的textbox1里显示父窗体中的textbox1中的内容，这样写

frm.textbox1.text = me.textbox1.text

'最后

frm.showdialog()

这样就可以了。

如果说你三个窗体完全一样，那你也不用写三个一样的窗体只要写一个就行了，在不同的按钮事件中做不同的赋值即可。

不过这样打开的子窗体是模态窗体，也就是说在子窗体显示之后，要对父窗体进行操作必需关闭子窗体才行。

问个vb.net里两个窗体互相传值的问题

在form2中写

private string formtext1;

public string Formtext1

{

get { return formtext1; }

set { formtext1= value; }

}

在form1中

form2.Formtext1=text1.Text();

form2.show();

在form2中页面加载是给text2 赋值 text2.Text=formtext;

VB.NET Public Sub 窗体 互相传值

Public Sub checkInjectionWithNoKeyword()

Dim injection_Type As String = My.Forms.SqlInjection.ComboBox_Type.Text.Trim()

Dim my_checkUrl As String = My.Forms.SqlInjection.ComboBox_Url.Text.Trim()

end sub

这个改成放在窗体内就行了，我也有遇到同样的问题，最后只好放窗体里才能实现。

网上找的什么委托都是不行的。