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

王朝vb·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

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

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