FORM窗体和对话框.pptVIP

* （3）窗体的常用属性 Name属性：更改窗体的名字 Text属性：决定了窗体标题栏显示的内容。 * （4）向该项目中加入第二个窗体 “项目”菜单|选择“添加Windows窗体“将弹出添加新项的对话框 * 11.6 多文档（MDI）程序 一个MDI程序至少需要用到2个窗体。 一个作为容器，称为父窗体 另一个作为模板 在MDI程序中可以同时打开多个文档，每个文档用一个单独的窗体显示。每一个这样单独的窗体称为一个子窗体。一般而言，所有的子窗体是类似的，使用窗体模板来创建。 * 例11-2 创建一个MDI程序 要求 创建一个MDI程序，能够同时打开多幅图片 分析 在MDI程序中，有一个窗体称为父窗体，欲使一个窗体成为父窗体，要将窗体的IsMdiContainer属性设置为True。 * 步骤 （1）新建项目MDI。 （2）向窗体添加一个MainMenu和一个OpenFileDialog控件 （3）编辑MainMenu，它的顶层具有2项，文件和窗口。文件菜单下有2项，分别是打开和退出 窗口菜单下有3项，分别是水平平铺，垂直平铺和层叠 （4）将窗体的IsMdiContainer属性设置为True。 （5）将窗体的Name属性和Text属性均改为MDIDemo。在解决方案资源管理器中打开项目的属性，更改启动项设置。 * （6）创建子窗体的模板 从“项目”菜单中选择添加Windows窗体，将出现添加新项的对话框，在模板中选择Windows窗体，在名称一栏中填入一个合适的名字后按下打开按钮，新的窗体将被加入到项目中。 （7）在新窗体中 将AutoScroll属性改为True 添加一个PictureBox控件，并将SizeMode属性设置为AutoSize。 （8）添加文件菜单下的打开项的Click事件过程 * （9）在代码窗口顶部选择OpenFileDialog控件同时选择它的FileOk事件过程，将在此编写显示图片的代码。 （10）为窗口的菜单下3项，水平平铺，垂直平铺和层叠添加Click事件过程。 （11）为退出菜单项添加Click事件过程。 * 选中当前的窗体，它将成为父窗体或是容纳子窗体的容器。欲使它成为容器，需要将窗体的IsMdiContainer属性设置为True。此时，窗体的背景色变为深灰色。最后将窗体的Name属性和Text属性均改为MDIDemo。在解决方案资源管理器中打开项目的属性，更改启动项设置。设计好的窗体如下图所示： 将一个窗体设置为容器 * 添加新项 * 程序代码 Private Sub MnuOpen_Click(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles MnuOpen.Click OpenFileDialog.ShowDialog() End Sub * Private Sub OpenFileDialog_FileOk(ByVal sender As Object, ByVal e As _ System.ComponentModel.CancelEventArgs) Handles OpenFileDialog.FileOk Dim frmChild As New Child() frmChild.MdiParent = Me frmChild.PictureBox.Image = Image.FromFile(OpenFileDialog.FileName) frmChild.Show() End Sub * Private Sub MnuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuExit.Click Me.Close() End Sub * Private Sub MnuWinH_Click(ByVal sender As System.Object, ByVal e _ As System.EventArgs) Handles MnuWinH.Click Me.LayoutMdi(MdiLayout.TileHorizontal) End Sub * Private Sub MnuWinV_Click(ByVal sender As Object, ByVal e _ As System.EventArgs) Handles MnuWinV.Click Me.LayoutMdi(MdiLayout.TileVertica