vb.net窗体重复打开 vb重新加载窗体

VB.net 点击显示新窗口 如何新窗口不关闭时 点击后不重复创建窗口 显示已加载的窗口

这样写，每次点击按钮事件都会创建一个新的form。

创新互联长期为近千家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为新平企业提供专业的成都网站设计、网站制作，新平网站改版等技术服务。拥有十多年丰富建站经验和众多成功案例,为您定制开发。

你想要的效果是主窗口生命周期内，子form是一个。

根据这个你再考虑下怎么实现。比如主form加载时创建子form。点击事件中去获取子form的焦点。

vb.net 如何防止程序重复运行？

现在多是在form_load里验证的,你打开第二次也只是暂时的,后面让他关闭就行了.

form_load之前windows form就已经生成... 把你程序读入内存就算这个程序已经被打开开始执行了...不管你放那里都是会打开第二次的...

要让他结束直接用Application.Exit()就行了.

VB 如何重复打开某窗体

你如果的是如果Text的值改变得，然后弹出一个新的form2吧？然后form2 的text1就等于form1的text1的值对吧？

在form1的text1的KeyDown里面加入：

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If ketcode Asc(Text1.Text) Then

Dim nForm2 As New Form2

nForm2.Show

nForm2.Text1.Text = Chr(KeyCode)

End If

End Sub

VB重复打开子窗体

VB.NET中，在访问窗体之前，你必须进行窗体实例化,然后才能打开，如：Dim frm1 As New Form1' frm1.MdiParent = Me ' 定义MDI子窗体frm.Show() '打开窗体如果在项目中有多处代码访问同一窗体，都这样的话，则会创建出

VB.NET中，在访问窗体之前，你必须进行窗体实例化,然后才能打开，如：

Dim frm1 As New Form1

' frm1.MdiParent = Me ' 定义MDI子窗体

frm.Show() '打开窗体

如果在项目中有多处代码访问同一窗体，都这样的话，则会创建出不同的实例。如重防止重复打开MDI子窗体的实例呢？下面的代码可以帮你完成：

Dim frm1As New Form1

CheckForm(frm1, "Form1")

'*****************************************************************************'*过程名称：CheckForm

'*参数说明：MDIChildForm需检测的窗体；MDIChildFormName 检测窗体的名字

'*功能说明：首先检测是否有MDI子窗体，如果没有，则创该MDI子窗体的窗体实例

'* 如果有，则检测当中有没有其窗体实例，有则激活；没有则创建其窗体实例

'*****************************************************************************

Private Sub CheckForm(ByVal MDIChildForm As Form, ByVal MDIChildFormName As String)

If Me.MdiChildren.Length 1 Then

'如果没有任何一个MDI子窗体，则创该MDI子窗体的窗体实例

ShowForm(MDIChildForm )

Exit Sub

Else

Dim x As Integer

Dim frmyn As Boolean

For x = 0 To (Me.MdiChildren.Length) - 1

Dim tempChild As Form = CType(Me.MdiChildren(x), Form)

If tempChild.Name = MDIChildFormName Then

frmyn = True

'检测到有该MDI子窗体，设为TRUE 并退出循环

Exit For

Else

frmyn = False

End If

Next

If frmyn = False Then

'在打开的窗体中没检测到则新建

ShowForm(tempForm)

Else

'在打开的窗体中检测到则激活

Dim MDIChildFrm As Form = CType(Me.MdiChildren(x), Form)

MDIChildFrm .Activate()

End If

End If

End Sub

'**************************************************

'*过程名称：ShowForm

'*参数说明：MDIChildForm 需创建实例的窗体

'*功能说明：创建窗体实例

'**************************************************

Private Sub ShowForm(ByVal MDIChildForm As Form)

Dim MDIChildFrm As Form = MDIChildForm

MDIChildFrm.MdiParent = Me ' 定义MDI子窗体

MDIChildFrm.Show() '打开窗体

End Sub