如何給VB.NET窗體添加子窗體？

直接添加一個MID父窗體或在已有窗體的屬性中找到IsMDIContainer屬性，然后設置為True，然后創(chuàng)建第二個窗體 ，需要加載子窗體的時候：

長嶺ssl適用于網站、小程序/APP、API接口等需要進行數(shù)據(jù)傳輸應用場景，ssl證書未來市場廣闊！成為成都創(chuàng)新互聯(lián)的ssl證書銷售渠道，可以享受市場價格4-6折優(yōu)惠！如果有意向歡迎電話聯(lián)系或者加微信：18982081108（備注：SSL證書合作）期待與您的合作！

Dim NewMDIChild As New Form2

NewMDIChild.MdiParent = Me

NewMDIChild.Show()

Public?Shared?Sub?CheckMDIChildForm(ByVal?MDIForm?As?Windows.Forms.Form,?ByVal?MDIChildForm?As?Windows.Forms.Form,?ByVal?MDIChildFormName?As?String)

If?MDIForm.MdiChildren.Length??1?Then

'如果沒有任何一個MDI子窗體，則創(chuàng)該MDI子窗體的窗體實例

Dim?MDIChildFrm?As?Windows.Forms.Form?=?MDIChildForm?'?定義MDI子窗體

MDIChildFrm.MdiParent?=?MDIForm?'指定父窗體

MDIChildFrm.Show()?'打開窗體

Exit?Sub

Else

Dim?x?As?Integer

Dim?frmyn?As?Boolean

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

Dim?tempChild?As?Windows.Forms.Form?=?CType(MDIForm.MdiChildren(x),?Windows.Forms.Form)

If?tempChild.Name?=?MDIChildFormName?Then

'檢測到有該MDI子窗體，設為激活?并退出循環(huán)

frmyn?=?True

tempChild.BringToFront()

Exit?For

Else

frmyn?=?False

End?If

Next

If?Not?frmyn?Then

'在打開的窗體中沒檢測到則新建

Dim?MDIChildFrm?As?Windows.Forms.Form?=?MDIChildForm?'?定義MDI子窗體

MDIChildFrm.MdiParent?=?MDIForm?'指定父窗體

MDIChildFrm.Show()?'打開窗體

End?If

End?If

End?Sub

vb.net 怎么樣新建一個from2

打開Visual Studio，點擊文件→新建項，選擇“窗體”，在文件名那里輸入Form2.vb就得了

vb.net用代碼向另一個窗體添加命令按鈕

先得到目標窗體的 handle (句柄) 或整個對象, 然后實例化一個button 并加入到窗體對象中. 如: 在 form2 點擊 add 按鈕后, form1 會新添加一個按鈕,單擊顯示hello , 下面是兩個窗口類. public class form1 inherits system.windows.forms.form '這是一個什么都沒有的空窗體 public sub new() me.size=new size(200,200) end subend class public class form2 inherits system.windows.forms.form private button1 as button '添加按鈕 private frm as form public sub new() me.size=new size(200,200) button1= new button() '實例化 button1.text="add" '名字就叫 add button1.location=new point(50,50) addhandle button1.click, addressof add_click me.controls.add(button1) end sub '用于記錄form1對象的屬性 public property form1() as form get return frm end get set (byval value as form) frm = value end set end property '添加按鈕 private sub add_click(byval o as object, byval e as eventargs) '當form1屬性被指定,向form1 添加按鈕 if frm isnot nothing then dim btn as button = new button() btn.text ="new button" btn.location=new point(50,50) addhandle btn.click, addressof button_click frm.controls.add (btn) else msgbox ("未指定form1") end if end sub '新按鈕的單擊事件 private sub button_click(byval o as object, byval e as eventargs) msgbox("hello!") end subend class 兩個窗體類完成了,然后在模塊寫如下代碼,程序設置為從模塊啟動:public module module1 public sub main() dim frm1= new form1() dim frm2 = new form2() frm2.form1=frm1 frm2.show() frm1.show() application.run(frm2) end subend module

vb.net窗體問題form

我按照你的說法寫了程序~能正常運行！

========================================

'窗口1的

Public Class Form1

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

Form2.Show()

End Sub

End Class

========================================

’2的

Public Class Form2

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

Form3.Show()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Form1.Close()

End Sub

End Class

===========================================================

‘3的

Public Class Form3

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

Form2.Close()

End Sub

End Class