MDI應用程式是一種具有管理單一父表單下所有子表單的應用程式
一、建立一個MID父表單1、建立一個新的表單應用程式
2、將設定該表單設定為父表單(MainForm)
2、將設定該表單設定為父表單(MainForm)
IsMdiContainer = True
3、自工具箱拉一個MenuStrip進主表單
<=在MenuStrip設定File和New,其它可以先略過
<=在MenuStrip設定File和New,其它可以先略過
1、建立一個新的表單應用程式(ChildForm)
2、在父表單(MainForm)的MenuStrip1的File->New中,雙點兩下滑鼠
程式設定
2、在父表單(MainForm)的MenuStrip1的File->New中,雙點兩下滑鼠
程式設定
Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click
Dim aChild As New frm_Ex3_2
'將MdiParent屬性設定成父表單
aChild.MdiParent = Me
aChild.Show()
End Sub
Dim aChild As New frm_Ex3_2
'將MdiParent屬性設定成父表單
aChild.MdiParent = Me
aChild.Show()
End Sub
三、正在使用中的MDI子表單(MainForm)
1、ActiveMdiChild:取得正在使用中的MDI子表單
Dim ActiveForm As frm_Ex3_2 = Me.ActiveMdiChild
2、修改正在使用中MDI子表單
Dim ActiveForm As frm_Ex3_2 = Me.ActiveMdiChild
If ActiveForm Is Nothing = False Then
'在正在使用表單中要做的程式
ActiveForm.TextBox1.Text = "This is a Test"
End If
End Sub
3、對MDI表單進行排列If ActiveForm Is Nothing = False Then
'在正在使用表單中要做的程式
ActiveForm.TextBox1.Text = "This is a Test"
End If
End Sub
父表單可透過LayoutMdi(MdiLayout.列舉屬性)進行設定
Me.LayoutMdi(MdiLayout.Cascade)
Me.LayoutMdi(MdiLayout.TileHorizontal)
Me.LayoutMdi(MdiLayout.TileVertical)
Me.LayoutMdi(MdiLayout.TileHorizontal)
Me.LayoutMdi(MdiLayout.TileVertical)
沒有留言:
張貼留言