【教学课件】第七章界面设计.ppt

《【教学课件】第七章界面设计.ppt》由会员分享，可在线阅读，更多相关《【教学课件】第七章界面设计.ppt（32页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、 Visual Basic Visual Basic程序设计教程程序设计教程第七章第七章 界面界面设计 Visual Basic程序程序设计教教程程对于用户而言，系统好不好用主要取决于界面，因为不管对于用户而言，系统好不好用主要取决于界面，因为不管代码多么复杂，或系统功能多么强大，如果界面不美观，代码多么复杂，或系统功能多么强大，如果界面不美观，或者界面操作繁琐，那么我们设计的程序将无人问津。本或者界面操作繁琐，那么我们设计的程序将无人问津。本章我们来讨论在进行章我们来讨论在进行VBVB程序设计时，主要用到的几种界面程序设计时，主要用到的几种界面设计工具。设计工具。Visual Basic V

2、isual Basic程序设计教程程序设计教程2对话框主要内容1菜单2工具栏和状态栏 3多文档界面设计4 Visual Basic Visual Basic程序设计教程程序设计教程37.1 对 话 框框 对话框是一种特殊的窗体，一般情况下没有对话框是一种特殊的窗体，一般情况下没有“最大化最大化”按钮按钮和和“最小化最小化”按钮，只有一个按钮，只有一个“关闭关闭”按钮。在按钮。在Visual BasicVisual Basic中，中，对话框主要分为三类。对话框主要分为三类。（1 1）系统预测定义的对话框，如）系统预测定义的对话框，如InputBoxInputBox（又称为输入框）和（又称为输入框

3、）和MsgBoxMsgBox（又称消息框）。（又称消息框）。（2 2）用户自定义对话框。）用户自定义对话框。（3 3）通用对话框。）通用对话框。Visual Basic Visual Basic程序设计教程程序设计教程7.1.1 自定义对话框 我们在设计一个窗体时就是设计一个自定义的我们在设计一个窗体时就是设计一个自定义的对话框，只是对话框的大小一般不能改变，而且没对话框，只是对话框的大小一般不能改变，而且没有有“最大化最大化”按钮和按钮和“最小化最小化”按钮。要达到这两按钮。要达到这两个设计效果，必须把窗体的个设计效果，必须把窗体的BorderStyleBorderStyle属性设置属性设置

4、为为3 3（Fixed DialogFixed Dialog），并把），并把MaxButtonMaxButton属性和属性和MinButtonMinButton属性都设置为属性都设置为FalseFalse，前者是把窗体的边，前者是把窗体的边界设置为固定的，即不能随意手动改变边界大小；界设置为固定的，即不能随意手动改变边界大小；后者的设置表示窗体没有后者的设置表示窗体没有“最大化最大化”按钮和按钮和“最小最小化化”按钮。按钮。Visual Basic Visual Basic程序设计教程程序设计教程7.1.2 通用对话框 应用程序经常需要进行打开、保存、打印等操应用程序经常需要进行打开、保存、打

5、印等操作，这就需要开发系统提供相应的对话框以方便使作，这就需要开发系统提供相应的对话框以方便使用，在用，在Visual BasicVisual Basic中，这些对话框称为中，这些对话框称为“公共对公共对话框话框”，它被设计成一个叫做，它被设计成一个叫做Common DialogCommon Dialog的控的控件，这个控件为用户提供一组标准的通用对话框。件，这个控件为用户提供一组标准的通用对话框。点击点击“工程工程”菜单中的菜单中的“部件部件”命令，打击命令，打击“部件部件”对话框，选中对话框，选中“Microsoft Common Dialog Microsoft Common Dialo

6、g Control 6.0”Control 6.0”，点击，点击“确定确定”即可往工具箱中添即可往工具箱中添加此控件加此控件 Visual Basic Visual Basic程序设计教程程序设计教程7.1.2 通用对话框 Visual Basic Visual Basic程序设计教程程序设计教程7.1.2 通用对话框（1 1）“打开打开”对话框。对话框。“打开打开”对话框用于打开指定文件所在的驱动器、文件夹、对话框用于打开指定文件所在的驱动器、文件夹、文件名及扩展名等。在窗体上创建一个文件名及扩展名等。在窗体上创建一个“公共对话框公共对话框”控件控件后，右键单击该控件，选择后，右键单击该控件

7、，选择“属性属性”命令，即可弹出命令，即可弹出“属性属性页页”对话框，该对话框可以对各种通用对话框的属性进行设对话框，该对话框可以对各种通用对话框的属性进行设置置 Visual Basic Visual Basic程序设计教程程序设计教程7.1.2 通用对话框Private Sub Command1_Click()Private Sub Command1_Click()CommonDialog1.InitDir=c:CommonDialog1.InitDir=c:CommonDialog1.Filter=CommonDialog1.Filter=所有文件所有文件(*.*)|*.*|Word(*

8、.*)|*.*|Word文档文档(*.doc)|*.doc|(*.doc)|*.doc|文本文件文本文件(*.txt)|*.txt(*.txt)|*.txtCommonDialog1.ShowOpenCommonDialog1.ShowOpenText1.Text=CommonDialog1.FileNameText1.Text=CommonDialog1.FileNameEnd Sub End Sub Visual Basic Visual Basic程序设计教程程序设计教程7.1.2 通用对话框（2 2）“另存为另存为”对话框对话框“另存为另存为”对话框用于指定文件所要保存的驱动器、文件夹

9、、对话框用于指定文件所要保存的驱动器、文件夹、文件名、扩展名等信息。它的使用步骤和文件名、扩展名等信息。它的使用步骤和“打开打开”对话框一对话框一样，只需在最后使用样，只需在最后使用“公共对话框公共对话框”控件的控件的ShowSaveShowSave方法即方法即可，在此不再赘述。可，在此不再赘述。（3 3）“颜色颜色”对话框对话框“颜色颜色”对话框用于在调色盘中选择颜色，或者创建自定义对话框用于在调色盘中选择颜色，或者创建自定义颜色，如图颜色，如图7-77-7所示。当用户选中某一颜色后，系统把该颜所示。当用户选中某一颜色后，系统把该颜色的值赋值给色的值赋值给ColorColor属性。属性。（4

10、 4）“字体字体”对话框。对话框。“字体字体”对话框用于设置并返回字体的样式、大小、效果等对话框用于设置并返回字体的样式、大小、效果等 Visual Basic Visual Basic程序设计教程程序设计教程注意：使用字体对话框之前必须先设置注意：使用字体对话框之前必须先设置FlagsFlags属性，否则将属性，否则将会提示不存在字体的错误。会提示不存在字体的错误。FlagsFlags属性有以下取值：属性有以下取值：1 1 或或 cdlCFScreenFontscdlCFScreenFonts（屏幕字体）；（屏幕字体）；2 2 或或 cdlCFPrinterFontscdlCFPrinter

11、Fonts（打印机字体）；（打印机字体）；3 3 或或 cdlCFBothcdlCFBoth（=1+2=1+2，两种字体都有）。，两种字体都有）。例例7-27-2设置文本框设置文本框text1text1的字体格式，字体设为的字体格式，字体设为“华文行楷华文行楷”，字形为，字形为“常规常规”，大小为，大小为“小一小一”Visual Basic Visual Basic程序设计教程程序设计教程7.2 菜单在在WindowsWindows环境下，几乎所有应用软件的操作都可以通过菜环境下，几乎所有应用软件的操作都可以通过菜单来实现。菜单在应用程序中占据了十分重要的地位。在实单来实现。菜单在应用程序中占

12、据了十分重要的地位。在实际应用中，菜单可以分为两类：下拉式菜单和弹出式菜单，际应用中，菜单可以分为两类：下拉式菜单和弹出式菜单，下拉式菜单一般通过点击菜单标题的方式打开，而弹出式菜下拉式菜单一般通过点击菜单标题的方式打开，而弹出式菜单通过鼠标右键的方式打开。单通过鼠标右键的方式打开。Visual Basic Visual Basic程序设计教程程序设计教程7.2.1 下拉式菜单下拉式菜单通过菜单编辑器进行编写。下拉式菜单通过菜单编辑器进行编写。Visual Basic Visual Basic程序设计教程程序设计教程7.2.1 下拉式菜单说明：说明：（1 1）内缩符号由）内缩符号由4 4个点组

13、成，它表示菜单所在的层次。若一个个点组成，它表示菜单所在的层次。若一个菜单名前有菜单名前有4 4个点，则表示该菜单是第二级菜单，有个点，则表示该菜单是第二级菜单，有8 8个点表个点表示第三级菜单，以此类推。示第三级菜单，以此类推。VBVB规定菜单系统最多可达规定菜单系统最多可达6 6级，级，一般情况下不超过一般情况下不超过3 3级。级。（2 2）标题栏内输入）标题栏内输入“-”-”，则产生一个分隔符。但分隔符只能，则产生一个分隔符。但分隔符只能作为第二级菜单，不能设计为顶级菜单，即符号作为第二级菜单，不能设计为顶级菜单，即符号“-”-”前要前要有有4 4个点。个点。（3 3）除了分隔符外，其他

14、菜单都可以响应）除了分隔符外，其他菜单都可以响应ClickClick事件。事件。（4 4）在输入标题时，若在字母前输入）在输入标题时，若在字母前输入“&”&”，则运行时在字母，则运行时在字母处加一个下划线。处加一个下划线。例例7-27-2设计简易的文件菜单。设计简易的文件菜单。Visual Basic Visual Basic程序设计教程程序设计教程7.2.2 弹出式菜单弹出式菜单是一种独立于菜单栏而显示在窗体弹出式菜单是一种独立于菜单栏而显示在窗体上的浮动菜单，即它不需要在窗口顶部下拉打开，上的浮动菜单，即它不需要在窗口顶部下拉打开，而是通过单击鼠标右键在窗体的位置打开，因而使而是通过单击鼠

15、标右键在窗体的位置打开，因而使用更加灵活。用更加灵活。建立弹出式菜单首先需要在菜单编辑器中建立建立弹出式菜单首先需要在菜单编辑器中建立菜单，其方法与建立下拉式菜单相似，只是在可见菜单，其方法与建立下拉式菜单相似，只是在可见属性中必须设置为属性中必须设置为FalseFalse。然后在窗体的。然后在窗体的MouseDownMouseDown事件或事件或MouseUpMouseUp事件中调用事件中调用PopupMenuPopupMenu方法。方法。PopupMenuPopupMenu方法的格式为：方法的格式为：对象对象PopupMenu PopupMenu 菜单名菜单名,flags,x,y,Bold

16、Command,flags,x,y,BoldCommand Visual Basic Visual Basic程序设计教程程序设计教程7.2.2 弹出式菜单说明：说明：（1 1）对象是指当前对象，若是当前窗体则可以省略；）对象是指当前对象，若是当前窗体则可以省略；（2 2）菜单名是菜单编辑器中建立的菜单名称（至少有一个子）菜单名是菜单编辑器中建立的菜单名称（至少有一个子菜单项）；菜单项）；（3 3）flagsflags参数是一个数值或符号常量，用来指定弹出式菜单参数是一个数值或符号常量，用来指定弹出式菜单的位置及行为，其值一部分用于指定菜单位置，另一部分用的位置及行为，其值一部分用于指定菜单位

17、置，另一部分用于定义菜单的特殊行为，如表于定义菜单的特殊行为，如表7-47-4和表和表7-57-5所示。所示。Visual Basic Visual Basic程序设计教程程序设计教程7.2.2 弹出式菜单（4 4）x x和和y y分别表示弹出式菜单显示位置的横坐标和分别表示弹出式菜单显示位置的横坐标和纵坐标，若省略，则在光标的当前位置显示；纵坐标，若省略，则在光标的当前位置显示；（5 5）BoldCommandBoldCommand参数指定以粗字体出现的菜单项，参数指定以粗字体出现的菜单项，只能有一个菜单项被加粗。只能有一个菜单项被加粗。（6 6）通常把）通常把PopupMenuPopupM

18、enu方法放在窗体或控件的方法放在窗体或控件的MouseDownMouseDown事件中，该事件响应所有的鼠标单击事事件中，该事件响应所有的鼠标单击事件，这个事件可以用件，这个事件可以用ButtonButton变量来操作。对于鼠标变量来操作。对于鼠标而言，左键的而言，左键的ButtonButton值是值是1 1，右键的，右键的ButtonButton值是值是2 2。因此下面的语句可以通过单击鼠标右键来弹出菜单因此下面的语句可以通过单击鼠标右键来弹出菜单If Button=2 Then PopupMenu If Button=2 Then PopupMenu 菜单名菜单名 Visual Basi

19、c Visual Basic程序设计教程程序设计教程7.2.2 弹出式菜单例例7-37-3设置一个文本框，在文本框内右键单击时出现设置一个文本框，在文本框内右键单击时出现“剪切剪切”、“复制复制”和和“粘贴粘贴”命令。如图命令。如图7-167-16所示，右键时所示，右键时出现出现“剪切剪切”命令和命令和“复制复制”命令，命令，“粘贴粘贴”命令不可用；命令不可用；当剪切或复制完成时，当剪切或复制完成时，“粘贴粘贴”命令恢复可用，如图命令恢复可用，如图7-177-17所所示。示。Visual Basic Visual Basic程序设计教程程序设计教程7.3 工具栏和状态栏 工具栏提供了应用程序中

20、常用命令的快捷操作方式，它工具栏提供了应用程序中常用命令的快捷操作方式，它一般位于菜单栏的下面。一般位于菜单栏的下面。创建一个工具栏的步骤如下。创建一个工具栏的步骤如下。（1 1）将）将ToolBarToolBar控件与控件与ImageListImageList控件添加到工具箱。工具栏控件添加到工具箱。工具栏控件和图像列表控件一般情况下不出现在工具箱中，用户需控件和图像列表控件一般情况下不出现在工具箱中，用户需要手动将它们添加至工具箱。执行要手动将它们添加至工具箱。执行“工程工程”菜单的菜单的“部件部件”命令，在命令，在“部件部件”对话框中选择对话框中选择“Microsoft Windows

21、Microsoft Windows Common Controls”Common Controls”选项，单击确定即可，如图选项，单击确定即可，如图7-197-19所示。所示。这样在工具箱中添加了很多控件，其中就有工具箱控件和图这样在工具箱中添加了很多控件，其中就有工具箱控件和图像列表控件。像列表控件。（2 2）将工具栏控件和图像列表控件添加至窗体。效果如图）将工具栏控件和图像列表控件添加至窗体。效果如图7-7-2020所示，因为图像列表控件在运行时不显示出来，所以该控所示，因为图像列表控件在运行时不显示出来，所以该控件可以拖放在窗体的任何位置。件可以拖放在窗体的任何位置。Visual Bas

22、ic Visual Basic程序设计教程程序设计教程7.3 工具栏和状态栏（3 3）为图像列表控件添加图片。图像列表控件不能单独，它）为图像列表控件添加图片。图像列表控件不能单独，它只是一个图像的容器，专门存储其他控件需要显示的图像。只是一个图像的容器，专门存储其他控件需要显示的图像。要使工具栏能够显示常用命令的图像，必须先把这些图像添要使工具栏能够显示常用命令的图像，必须先把这些图像添加至图像列表控件，然后将工具栏控件与图像列表控件相关加至图像列表控件，然后将工具栏控件与图像列表控件相关联。联。单击右键点击图像列表控件的单击右键点击图像列表控件的“属性属性”命令，在弹出的命令，在弹出的“属

23、性页属性页”对话框中选择对话框中选择“图像图像”选项卡，再点击选项卡，再点击“插入图插入图片片”按钮选择需要的图片即可把图片添加进来。添加图片后，按钮选择需要的图片即可把图片添加进来。添加图片后，系统会自动为每张图片分配一个索引号，在工具栏控件与图系统会自动为每张图片分配一个索引号，在工具栏控件与图像列表控件相关联时，调用该图片的索引号即可显示该图片，像列表控件相关联时，调用该图片的索引号即可显示该图片，如图如图7-217-21所示。所示。Visual Basic Visual Basic程序设计教程程序设计教程7.3 工具栏和状态栏（4 4）使工具栏控件与图像列表控件相关联。工具栏控件创）使

24、工具栏控件与图像列表控件相关联。工具栏控件创建完毕后，它显示在窗体的上方。单击右键工具栏控件选择建完毕后，它显示在窗体的上方。单击右键工具栏控件选择“属性属性”命令，弹出命令，弹出“属性页属性页”对话框如图对话框如图7-227-22所示。在所示。在“通用通用”选项卡的选项卡的“图像列表图像列表”下拉列表中选择下拉列表中选择ImageList1ImageList1，即可使工具栏控件与图像列表控件相关联。即可使工具栏控件与图像列表控件相关联。“通用通用”选项卡选项卡的其他选项可以默认不填，或者根据用户的需要自行更改，的其他选项可以默认不填，或者根据用户的需要自行更改，在此不再赘述。在此不再赘述。V

25、isual Basic Visual Basic程序设计教程程序设计教程7.3 工具栏和状态栏（5 5）为工具栏添加按钮。单击）为工具栏添加按钮。单击“属性页属性页”对话框的对话框的“按钮按钮”选项卡，如图选项卡，如图7-237-23所示。单击所示。单击“插入按钮插入按钮”命令后，系统命令后，系统为工具栏新建一个按钮，并且索引值自动加为工具栏新建一个按钮，并且索引值自动加1 1。在。在“工具提工具提示文本示文本”中添加提示文本，该文本是在运行时当鼠标移至该中添加提示文本，该文本是在运行时当鼠标移至该按钮上方时显示的文本。在图像框中填上图像相应的索引值按钮上方时显示的文本。在图像框中填上图像相应

26、的索引值就可以为该按钮添加图像。图就可以为该按钮添加图像。图7-247-24和图和图7-257-25显示的分别是设显示的分别是设计状态时的工具栏和运行状态时的工具栏。计状态时的工具栏和运行状态时的工具栏。Visual Basic Visual Basic程序设计教程程序设计教程7.3 工具栏和状态栏（6 6）编写按钮的程序代码。在运行状态时，用户单击工具）编写按钮的程序代码。在运行状态时，用户单击工具栏的按钮时，都会触发工具栏的栏的按钮时，都会触发工具栏的ButtonClickButtonClick事件，因此必事件，因此必须为工具栏的须为工具栏的ButtonClickButtonClick事件

27、添加代码，并在代码中判断事件添加代码，并在代码中判断用户单击了哪一个按钮，并根据不同的按钮来做出不同的响用户单击了哪一个按钮，并根据不同的按钮来做出不同的响应操作。应操作。Private Sub Toolbar1_ButtonClick(ByVal Button As Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)MSComctlLib.Button)Select Case Button.KeySelect Case Button.KeyCase NewCase New Text1.Visible=Tru

28、e Text1.Visible=TrueCase OpenCase Open CommonDialog1.ShowOpen CommonDialog1.ShowOpenCase SaveCase Save CommonDialog1.ShowSave CommonDialog1.ShowSaveEnd SelectEnd SelectEnd Sub End Sub Visual Basic Visual Basic程序设计教程程序设计教程7.3.2 状态栏 状态栏一般位于应用程序的最底部，用于显示系统的各种状状态栏一般位于应用程序的最底部，用于显示系统的各种状态信息，如日期、时间和光标位置等。

29、态信息，如日期、时间和光标位置等。创建一个状态栏的步骤如下。创建一个状态栏的步骤如下。（1 1）把）把StatusBarStatusBar控件添加至工具箱中，添加方法与添加工具控件添加至工具箱中，添加方法与添加工具栏方法一致。栏方法一致。（2 2）在工具箱中双击）在工具箱中双击StatusBarStatusBar控件便可以在窗体中创建一个控件便可以在窗体中创建一个状态栏。状态栏。（3 3）右键单击状态栏控件的）右键单击状态栏控件的“属性属性”命令，在弹出的命令，在弹出的“属性属性页页”对话框中选择对话框中选择“窗格窗格”选项卡，如图选项卡，如图7-267-26所示。在所示。在“窗窗格格”选项卡

30、就可以插入窗格。在此选项卡中，选项卡就可以插入窗格。在此选项卡中，“文本文本”、“工具提示文本工具提示文本”、“关键字关键字”等属性的用法与工具栏的相同等属性的用法与工具栏的相同属性的用法一致，还可以通过属性的用法一致，还可以通过“浏览浏览”按钮为窗格添加图片。按钮为窗格添加图片。窗格的窗格的“样式样式”属性是一个非常重要的属性，它决定了状态属性是一个非常重要的属性，它决定了状态栏的窗格显示什么内容，此属性的取值范围及其含义如表栏的窗格显示什么内容，此属性的取值范围及其含义如表7-7-6 6所示。所示。Visual Basic Visual Basic程序设计教程程序设计教程7.3.2 状态栏

31、常数常数数数值值含含义义sbrTextsbrText0 0默默认值认值，显显示文本（由示文本（由TextText属性属性设设置）或置）或图图片（由片（由PicturePicture属性属性设设置）置）sbrCapssbrCaps1 1显显示示Caps LockCaps Lock键键的状的状态态sbrNumsbrNum2 2显显示示Num LockNum Lock键键的状的状态态sbrInssbrIns3 3显显示示InsertInsert键键的状的状态态sbrScrlsbrScrl4 4显显示示Scroll LockScroll Lock键键的状的状态态sbrTimesbrTime5 5显显示

32、系示系统统的当前的当前时间时间sbrDatesbrDate6 6显显示系示系统统的当前日期的当前日期窗格样式属性的取值范围及其含义窗格样式属性的取值范围及其含义 Visual Basic Visual Basic程序设计教程程序设计教程7.3.2 状态栏（4 4）为状态栏添加代码。本例为状态栏添加第三个窗格，）为状态栏添加代码。本例为状态栏添加第三个窗格，“样式样式”属性设置为属性设置为“0-sbrText”0-sbrText”，在窗体运行时，第三个，在窗体运行时，第三个窗格则根据需要不同的文本。如在窗体中添加一个窗格则根据需要不同的文本。如在窗体中添加一个LabelLabel控控件，当鼠标移

33、动件，当鼠标移动LabelLabel控件时第三个窗格显示控件时第三个窗格显示“This is a This is a Label”Label”，当鼠标移到，当鼠标移到LabelLabel外窗体的任何位置时，第三个窗外窗体的任何位置时，第三个窗格显示格显示“Form”Form”，代码如下：，代码如下：Private Sub Form_MouseMove(Button As Integer,Shift As Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)Integer,X

34、As Single,Y As Single)StatusBar1.Panels(3).Text=FormStatusBar1.Panels(3).Text=FormEnd SubEnd SubPrivate Sub Label1_MouseMove(Button As Integer,Shift Private Sub Label1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)As Integer,X As Single,Y As Single)StatusBar1.Panels(3).Text=Th

35、is is a LabelStatusBar1.Panels(3).Text=This is a LabelEnd Sub End Sub Visual Basic Visual Basic程序设计教程程序设计教程7.4 多文档界面设计 WindowsWindows应用程序的用户界面主要分为单文档界面（应用程序的用户界面主要分为单文档界面（Single Single Document InterfaceDocument Interface，SDISDI）和多文档界面（）和多文档界面（Multiple Multiple Document InterfaceDocument Interface，M

36、DIMDI）。单文档界面是指应用程序的）。单文档界面是指应用程序的各个窗体是相互独立的，打开一个新的文档时，必须先关闭各个窗体是相互独立的，打开一个新的文档时，必须先关闭已经打开的文档，比如已经打开的文档，比如WindowsWindows系统自带的记事本。系统自带的记事本。Visual Basic Visual Basic程序设计教程程序设计教程7.4 多文档界面设计用户要创建一个用户要创建一个MDIMDI窗体时，需要单击窗体时，需要单击“工程工程”菜单的菜单的“添加添加MDIMDI窗体窗体”命令，在弹出的命令，在弹出的“添加添加MDIMDI窗体窗体”对话框中选中对话框中选中“MDIMDI窗体

37、窗体”，点击，点击“打开打开”按钮即可在工程中添加一个按钮即可在工程中添加一个MDIMDI窗体。一个应用程窗体。一个应用程序有且仅有一个序有且仅有一个MDIMDI窗体，而且该窗体的背景色比窗体，而且该窗体的背景色比普通窗体的背景色要更深一些。从工程的资源管理普通窗体的背景色要更深一些。从工程的资源管理器各窗体的图标也可以看出，器各窗体的图标也可以看出，MDIMDI窗体与其他窗体窗体与其他窗体的区别：的区别：MDIMDI窗体及其子窗体的图标都是由一个大窗体及其子窗体的图标都是由一个大的窗体和一个小的窗体组成，的窗体和一个小的窗体组成，MDIMDI窗体的图标是大窗体的图标是大窗体高亮显示，小窗体灰

38、色显示；而子窗体的图标窗体高亮显示，小窗体灰色显示；而子窗体的图标刚好相反，其小窗体高亮显示，大窗体灰色显示；刚好相反，其小窗体高亮显示，大窗体灰色显示；普通窗体的图标只有一个窗体，且是高亮显示。普通窗体的图标只有一个窗体，且是高亮显示。Visual Basic Visual Basic程序设计教程程序设计教程7.4.2 创建MDI子窗体 要创建一个要创建一个MDIMDI子窗体非常简单，只需要普通窗体子窗体非常简单，只需要普通窗体的基础上将的基础上将“MDIChlid”MDIChlid”属性设置为属性设置为TrueTrue即可，但即可，但在设置此属性之前必须先设置一个在设置此属性之前必须先设置

39、一个MDIMDI窗体。窗体。在在Visual BasicVisual Basic中，还可以通过代码来创建子窗体，中，还可以通过代码来创建子窗体，格式如下：格式如下：Dim Dim 变量名变量名 As new As new 窗体名窗体名其中，窗体名是一个已经存在的子窗体的名称，在其中，窗体名是一个已经存在的子窗体的名称，在声明了对象变量后，就可以通过以下语句来把子窗声明了对象变量后，就可以通过以下语句来把子窗体显示出来：体显示出来：变量名变量名Show Show 如在如在MDIMDI窗体中创建一个窗体中创建一个“文件文件”菜单，内含菜单，内含“新建新建”和和“退出退出”两个命令，代码如下：两个命

40、令，代码如下：Private Sub New_Click()Private Sub New_Click()Dim form2 As New Form1Dim form2 As New Form1Static i As IntegerStatic i As Integerform2.Caption=Form&i+2form2.Caption=Form&i+2form2.Showform2.Showi=i+1i=i+1End SubEnd SubPrivate Sub Quit_Click()Private Sub Quit_Click()EndEndEnd Sub End Sub Visual

41、Basic Visual Basic程序设计教程程序设计教程7.4.3 创建“窗口”菜单 在在MDIMDI应用程序中，一般都具有应用程序中，一般都具有“窗口窗口”菜单。菜单。访问该菜单可以查看已经创建了哪些窗体并可以对访问该菜单可以查看已经创建了哪些窗体并可以对这些窗体进行排列。这些窗体进行排列。若在若在MDIMDI窗体中显示已经创建的子窗体，则在创窗体中显示已经创建的子窗体，则在创建菜单时选中建菜单时选中“显示窗体列表显示窗体列表”复选框即可。如图复选框即可。如图7-337-33所示，总共创建四个子窗体，其中第四个窗体所示，总共创建四个子窗体，其中第四个窗体名前打勾表示该窗体为当前窗体。要使

42、窗体按一定名前打勾表示该窗体为当前窗体。要使窗体按一定的顺序排列，则要访问的顺序排列，则要访问MDIMDI窗体的窗体的ArrangeArrange方法，该方法，该方法的格式如下：方法的格式如下：MDIMDI窗体名窗体名Arrange Arrange 参数参数 Visual Basic Visual Basic程序设计教程程序设计教程7.4.3 创建“窗口”菜单ArrangeArrange方法的参数取方法的参数取值及含及含义常数常数数数值值含含义义VbCasVbCascadecade0 0子窗子窗体体层层叠排叠排列列VbTilVbTileHorieHorizontazontal l1 1子窗子窗

43、体水体水平排平排列列VbTilVbTileVerteVerticalical2 2子窗子窗体垂体垂直排直排列列VbArrVbArrangeIangeIconscons3 3子窗子窗体最体最小化小化后，后，使使图图标标重重新排新排列列 Visual Basic Visual Basic程序设计教程程序设计教程7.4.3 创建“窗口”菜单Private Sub Cascade_Click()Private Sub Cascade_Click()MDIForm1.Arrange 0MDIForm1.Arrange 0End SubEnd SubPrivate Sub Horizontal_Click

44、Private Sub Horizontal_Click()()MDIForm1.Arrange 1MDIForm1.Arrange 1End SubEnd SubPrivate Sub Vertical_Click()Private Sub Vertical_Click()MDIForm1.Arrange 2MDIForm1.Arrange 2End SubEnd SubPrivate Sub ReArrange_ClickPrivate Sub ReArrange_Click()()MDIForm1.Arrange 3MDIForm1.Arrange 3End Sub End Sub Visual Basic Visual Basic程序设计教程程序设计教程Thank you