[VB.NET]浅谈MDI窗体的多窗体编程

---MDI窗体和多窗体编程--- 目的:在MDI窗体内用ToolBar实现多窗体的实例,在VB.NET中显示窗体一般代码如下

Private Sub ToolBar1_ButtonClick() Sub ToolBar1_ButtonClick( ByVal sender As System. Object , ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
Select Case e.Button.Text
Case " OK " ' "OK" is ToolBarButton.Text
Dim fr As New frmName
fr.MdiParent = Me ' Me is MdiForm
fr.Show()
End Select
End Sub

http://www.chinaaspx.com/club/topic_5_7796.htm

参考了一下,得出下面的代码

Private Shared fr As New frmName
Private Sub ToolBar1_ButtonClick() Sub ToolBar1_ButtonClick( ByVal sender As System. Object , ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
Select Case e.Button.Text
Case " OK " ' "OK" is ToolBarButton.Text
If fr Is Nothing Or fr.IsDisposed Then
fr = New frmName
fr.MdiParent = Me
fr.Show()
Else
fr.MdiParent = Me
fr.Show()
fr.Focus()
End If
End Select
End Sub

这样就实例了一次窗体~ ---end---