vb.net两个窗口,在vb设计时双击打开什么窗口

vb.net如何让两个窗体并发运行

Imports System.Threading

成都创新互联服务项目包括察哈尔右翼前网站建设、察哈尔右翼前网站制作、察哈尔右翼前网页制作以及察哈尔右翼前网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，察哈尔右翼前网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到察哈尔右翼前省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

Public Class Form1

Dim t1, t2 As Thread

Dim tt1

Private Delegate Sub voiddelegate(ByVal i As Integer)

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Form2.Show()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

t1 = New Thread(AddressOf test)

tt1 = 1

t1.Start()

tt1 = 2

t2 = New Thread(AddressOf test)

t2.Start()

' Timer1.Start()

End Sub

Private Sub updateui(ByVal i As Integer)

Form2.Label1.Text = i.ToString

Form2.Label2.Text = i.ToString

End Sub

'把循环放到线程中运行会好一些，其实主要事务是对窗体控件的操作时多线程意义不大，因为访问窗体的代码依然要在窗体线程中运行。

Private Sub test()

Dim d As voiddelegate = AddressOf updateui

For i = 0 To 9000

Me.Invoke(d, i)

Next

End Sub

'如果放在计时器中运行效果好的多

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Static i As Integer = 0

i += 1

If i 9000 Then Timer1.Stop() : i = 0

Form2.Label1.Text = i.ToString

Form2.Label2.Text = i.ToString

End Sub

End Class

'如果在另一线程中用Application.run 打开窗体确实能行，不过窗体间相互操作不起作用，这个尚待研究中。

VB.NET两个窗体怎么同步显示或隐藏？

1、没有事件是直接由最小化、还原触发的，它们都会触发SizeChanged事件。所以你可以写主窗体的SizeChanged事件来控制副窗体显隐，顺便改变副窗体的相对位置；

2、在SizeChanged事件中，通过判断窗体的WindowState属性来确定用户是最小化还是还原了；（FormWindowState.Minimized和FormWindowState.Normal枚举）

3、调用副窗体的BringToFront方法可以把副窗体带到最前面来

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();

如此就能实现调用了。