[技巧]编写MDI应用程序

[复制链接]

AZ猫

2552 主题	15 听众	3161 积分

管理员

Rank: 75

性别: 男
听众数: 15
买家信用
卖家信用
在线时间: 1426 小时
相册: 0

发表于 2006-6-4 21:48:00 |显示全部楼层

[sell=30] Imports System Imports System.ComponentModel Imports System.Drawing Imports System.Windows.Forms Namespace Microsoft.Samples.WinForms.VB.MDI Public Class MainForm Inherits System.Windows.Forms.Form Private windowCount As Integer = 0 Public Sub New() MyBase.New() MainForm = Me '此调用是 Windows 窗体设计器所必需的。 InitializeComponent() '设置 MDI 资料 Me.IsMdiContainer = True '添加“文件”菜单 Dim miFile As MenuItem = MainMenu.MenuItems.Add("文件(&F)") miFile.MergeOrder = 0 miFile.MergeType = MenuMerge.MergeItems Dim miAddDoc As MenuItem = New MenuItem("添加文档(&A)", New EventHandler(AddressOf Me.FileAdd_Clicked), Shortcut.CtrlA) miAddDoc.MergeOrder = 100 Dim miExit As MenuItem = New MenuItem("退出(&X)", New EventHandler(AddressOf Me.FileExit_Clicked), Shortcut.CtrlX) miExit.MergeOrder = 110 miFile.MenuItems.Add(miAddDoc) miFile.MenuItems.Add("-") ' 提供一个分隔符 miFile.MenuItems.Add(miExit) '添加“窗口”菜单 Dim miWindow As MenuItem = MainMenu.MenuItems.Add("窗口(&W)") miWindow.MergeOrder = 10 miWindow.MenuItems.Add("层叠(&C)", New EventHandler(AddressOf Me.WindowCascade_Clicked)) miWindow.MenuItems.Add("水平平铺(&H)", New EventHandler(AddressOf Me.WindowTileH_Clicked)) miWindow.MenuItems.Add("垂直平铺(&V)", New EventHandler(AddressOf Me.WindowTileV_Clicked)) miWindow.MdiList = True '向菜单底部添加 MDI 窗口列表 AddDocument() '添加初始文档 End Sub '添加浏览器文档 Private Sub AddDocument() windowCount = windowCount + 1 '创建窗体 Dim doc As Document = New Document("文档" + windowCount.ToString()) doc.MdiParent = Me '向该窗体设置其 MDI 父级 doc.Show() '显示窗体 End Sub '“文件”->“添加”菜单项处理程序 Private Sub FileAdd_Clicked(ByVal sender As Object, ByVal e As System.EventArgs) AddDocument() End Sub '“文件”->“退出”菜单项处理程序 Private Sub FileExit_Clicked(ByVal sender As Object, ByVal e As System.EventArgs) Me.Close() End Sub '已激活其中一个 MDI 子窗口 - 将状态栏 '文本设置到窗口标题 Private Sub MDIChildActivated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MainForm.MDIChildActivate If (Me.ActiveMdiChild Is Nothing) Then statusBar1.Text = "" Else statusBar1.Text = Me.ActiveMdiChild.Text End If End Sub '“窗口”->“层叠”菜单项处理程序 Private Sub WindowCascade_Clicked(ByVal sender As Object, ByVal e As System.EventArgs) Me.LayoutMdi(MdiLayout.Cascade) End Sub '“窗口”->“水平平铺”菜单项处理程序 Private Sub WindowTileH_Clicked(ByVal sender As Object, ByVal e As System.EventArgs) Me.LayoutMdi(MdiLayout.TileHorizontal) End Sub '“窗口”->“垂直平铺”菜单项处理程序 Private Sub WindowTileV_Clicked(ByVal sender As Object, ByVal e As System.EventArgs) Me.LayoutMdi(MdiLayout.TileVertical) End Sub '窗体重写 dispose 以清理组件列表。 Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub #Region " Windows 窗体设计器生成的代码 " 'Windows 窗体设计器所必需的 Private components As System.ComponentModel.Container Private WithEvents mainMenu As System.Windows.Forms.MainMenu Private WithEvents statusBar1 As System.Windows.Forms.StatusBar Private WithEvents MainForm As System.Windows.Forms.Form '注意：下面的过程是 Windows 窗体设计器所必需的 '可以使用 Windows 窗体设计器修改它。 '不要使用代码编辑器修改它。 Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Me.mainMenu = New System.Windows.Forms.MainMenu() Me.statusBar1 = New System.Windows.Forms.StatusBar() Me.Text = "MDI 示例" Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.Menu = mainMenu Me.ClientSize = New System.Drawing.Size(450, 200) statusBar1.BackColor = System.Drawing.SystemColors.Control statusBar1.Location = New System.Drawing.Point(0, 180) statusBar1.Size = New System.Drawing.Size(450, 20) statusBar1.TabIndex = 1 Me.Controls.Add(statusBar1) End Sub #End Region '运行此应用程序 '应用程序的主入口点 <STAThread()> Shared Sub Main() System.Windows.Forms.Application.Run(New MainForm()) End Sub End Class End NameSpace [/sell]

ASP.NET源码下载专区

ASP.NET CMS源码下载专区

ASP.NET快速开发框架下载专区

Asp.net视频教程,asp.net教程,文档下载

JQuery插件,Jquery教程,Jquery ui

ASP.NET Extjs 系列专区

ASP.NET Entity Framework 系列专区

ASP.NET MVC 系列专区

使用道具举报