月光软件站 - 编程文档 - .NET开发 - [VB.NET]浅谈MDI窗体的多窗体编程

.NET开发

本类阅读TOP10

·vs.net 2005中文版下载地址收藏
·NHibernate快速指南(翻译)
·【小技巧】一个判断session是否过期的小技巧
·通过Web Services上传和下载文件
·？dos下编译.net程序找不到csc.exe文件
·VB/ASP 调用 SQL Server 的存储过程
·学习笔记（补）《.NET框架程序设计（修订版）》--目录
·对比.NET PetShop和Duwamish来探讨Ado.NET的数据库编程模式
·Autodesk官方最新的.NET教程（一）(vb.net版)
·Duwamish深入剖析-结构篇

→ 分类导航

VC语言	Delphi
VB语言	ASP
Perl	Java
Script	数据库
其他语言	游戏开发
文件格式	网站制作
软件工程	.NET开发

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

作者：未知来源：月光软件站 加入时间：2005-2-28　月光软件站

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

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

相关文章：

相关软件：