[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---

 

 

 

免责声明：本文为网络用户发布，其观点仅代表作者个人观点，与本站无关，本站仅提供信息存储服务。文中陈述内容未经本站证实，其真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。