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

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

新絳網(wǎng)站建設(shè)公司成都創(chuàng)新互聯(lián)公司,新絳網(wǎng)站設(shè)計(jì)制作，有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為新絳上千提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站建設(shè)公司要多少錢，請(qǐng)找那個(gè)售后服務(wù)好的新絳做網(wǎng)站的公司定做！

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

'如果沒(méi)有任何一個(gè)MDI子窗體，則創(chuàng)該MDI子窗體的窗體實(shí)例

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

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

MDIChildFrm.Show()?'打開(kāi)窗體

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

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

frmyn?=?True

tempChild.BringToFront()

Exit?For

Else

frmyn?=?False

End?If

Next

If?Not?frmyn?Then

'在打開(kāi)的窗體中沒(méi)檢測(cè)到則新建

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

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

MDIChildFrm.Show()?'打開(kāi)窗體

End?If

End?If

End?Sub

vb.net mdi窗體 皮膚控件 報(bào)錯(cuò)

我剛用過(guò),

在父窗體的構(gòu)造函數(shù)中寫(xiě)

skinEngine1.SkinFile

=

"Longhorn.ssk";

"longhorn.ssk"是你要用的皮膚名稱,記住把皮膚放到\bin\Debug目錄下

只要在父窗體使用皮具即可,其他窗體自動(dòng)實(shí)現(xiàn)窗體更換

采納后可以追問(wèn)

vb.net設(shè)置mdi子窗口隨父窗口的大小而變化

簡(jiǎn)單一點(diǎn)的方式是，在MDI主窗體內(nèi)添加一個(gè)picturebox控件，然后在這個(gè)picturebox中添加一個(gè)image控件。

Picture1的屬性：

1.Align=top

2.Appearance=flat

3.BordeStyle=None

4.TabStop=false

Image1的屬性：

1.Stretch=true

在MDI窗體的resize事件中添加如下代碼：

Private Sub MDIForm_Resize()

Me.Picture1.Height = Me.Height

End Sub

在Picture1控件的resize事件中添加如下代碼：

Private Sub Picture1_Resize()

Me.Image1.Move 0, 0, Me.Picture1.Width, Me.Picture1.Height

End Sub