第六讲对话框和菜单程序设计

1、第六讲第六讲 对话框和菜单对话框和菜单浙江理工大学信息学院浙江理工大学信息学院姜旭升姜旭升2012-5-8第第7章章 对话框和菜单程序设计对话框和菜单程序设计 n7.1 用户自定义对话框用户自定义对话框 n7.2 通用对话框控件通用对话框控件CommonDialog n7.3 菜单设计菜单设计 n7.4 小小 结结 对话框对话框 n对话框是一类窗体；对话框是一类窗体；n对话框与窗体的区别：对话框与窗体的区别：对话框一般只完成特定的用户交互任务。如登对话框一般只完成特定的用户交互任务。如登录、选择文件、颜色、显示应用程序版本版权录、选择文件、颜色、显示应用程序版本版权信息等；信息等；对话框一般以

2、焦点独占对话框一般以焦点独占(Modal)的方式运行，在的方式运行，在完成对话任务前，不允许转移到其它窗体；完成对话任务前，不允许转移到其它窗体；对话框一般不包含菜单、工具栏等应用程序命对话框一般不包含菜单、工具栏等应用程序命令；令；对话框一般没有最大、最小化按钮，有时也没对话框一般没有最大、最小化按钮，有时也没有控制菜单。有控制菜单。使用对话框模板窗体创建对话框使用对话框模板窗体创建对话框 n通过通过“工程工程”菜单中的菜单中的“添加窗体添加窗体”命令，即命令，即可打开可打开“添加窗体添加窗体”对话框。对话框。图7-1 “添加窗体”对话框 图7-2 “登录”对话框 显示与关闭显示与关闭“自定

3、义自定义”对话框对话框 显示显示“自定义自定义”对话框对话框n窗体名窗体名.Show vbModal（其中其中vbModal是系统常数，值为是系统常数，值为1）关闭关闭“自定义自定义”对话框对话框Me.Hide 或或 .HideUnLoad 。这里的这里的“Me”是一个关键字，是一个关键字，Me代表正在执行的地代表正在执行的地方提供引用具体实例，一般指当前窗体。方提供引用具体实例，一般指当前窗体。通用对话框控件通用对话框控件CommonDialog nWindowsWindows系统为常用的任务设计了系统为常用的任务设计了“通用对话框通用对话框”控件。该控件并非为控件。该控件并非为VBVB所独

4、有。而是任何应用程所独有。而是任何应用程序均可使用的序均可使用的ActiveXActiveX类型控件。类型控件。n通用对话框任务：通用对话框任务：“打开打开”（Open）、）、“另存为另存为”（Save As）、）、“颜色颜色”（Color）、）、“字体字体”（Font）、）、“打印打印”（Printer）“帮助帮助”（Help）对话框。对话框。通用对话框控件通用对话框控件CommonDialog的使用的使用q将通用对话框控件添加到控件箱（在控件箱上右击选择部件）将通用对话框控件添加到控件箱（在控件箱上右击选择部件） 打开通用对话框打开通用对话框 n在运行阶段，通过调用通用对话框的方法或将在运

5、行阶段，通过调用通用对话框的方法或将Action属性设置为属性设置为相关值，具体设置如表相关值，具体设置如表7-1所示。所示。表表7-1 打开通用对话框的方法与打开通用对话框的方法与Action属性设置属性设置 类 型Action属性方法无对话框0“打开”对话框1ShowOpen“另存为”对话框2ShowSave“颜色”对话框3ShowColor“字体”对话框4ShowFont“打印”对话框5ShowPrinter“帮助”对话框6ShowHelp注意：注意： 通用对话框仅提供了一个用户和应用程序的信息交互界面，具体功能的实现还需编写相应的程序。 7.2.2 通用对话框的属性页通用对话框的属性页

6、 图7-5 “属性页”对话框 7.2.3 “打开打开”/“另存为另存为”对话框对话框 n打开方法：打开方法：ShowOpen，或将，或将Action属性赋值为属性赋值为1。ShowSave，或将，或将Action属性赋值为属性赋值为2。 1对话框标题（对话框标题（Dialog Title）2Filter属性（文件类型过滤）属性（文件类型过滤）Filter属性设置的格式为：属性设置的格式为：文件说明字符文件说明字符|类型描述类型描述|文件说明字符文件说明字符|类型描述类型描述 例如：例如：Jpeg图像图像(*.jpeg)|*.jpg|位图文件位图文件(*.bmp)|*.bmp|所有文件所有文件(

7、*.*)|*.*7.2.3 “打开打开”/“另存为另存为”对话框对话框3FilterIndex属性属性nFilterIndex属性为整型，用于确定选择了何种文件类型，属性为整型，用于确定选择了何种文件类型，缺省设置为缺省设置为0，系统取，系统取Filter属性设置中的第一项。属性设置中的第一项。4InitDir属性属性nInitDir属性为字符型，用于确定初始化打开或保存的路径。属性为字符型，用于确定初始化打开或保存的路径。例如：例如：nCommonDialog1.InitDir =D:LCSFilen如果不设置初始化路径或指定的路径不存在，系统则默认如果不设置初始化路径或指定的路径不存在，系

8、统则默认为本程序文件所在的文件夹。为本程序文件所在的文件夹。 5DefaultExt属性属性nDefaultExt属性为字符型，用于确定保存文件的缺省扩展属性为字符型，用于确定保存文件的缺省扩展名。名。7.2.3 “打开打开”/“另存为另存为”对话框对话框6CancelError属性属性n CancelError属性为逻辑型值，表示用户在与对话框进行信息交换属性为逻辑型值，表示用户在与对话框进行信息交换时，按下时，按下“取消取消”按钮时是否产生出错信息。按钮时是否产生出错信息。 n 当该属性设置为当该属性设置为True时，无论何时单击时，无论何时单击“取消取消”按钮，将出现错误按钮，将出现错误

9、警告；警告；Err对象的对象的Number属性值置为属性值置为32755（cdlCancel）。）。n 当该属性设置为当该属性设置为False（缺省）时，单击缺省）时，单击“取消取消”按钮，不会出现按钮，不会出现错误警告。错误警告。注意：注意：上述属性若在程序中设置，都必须放在使用上述属性若在程序中设置，都必须放在使用Action属性或用属性或用ShowOpen和和ShowSave方法调用方法调用“打开打开”或或“另存为另存为”对话框的语句之前；否对话框的语句之前；否则该属性不效。则该属性不效。7.2.3 “打开打开”/“另存为另存为”对话框对话框7FileName属性属性n FileName

10、属性为字符型，用于返回或设置用户要打开或保存的文属性为字符型，用于返回或设置用户要打开或保存的文件全名（含路径），运行时用户在通用对话框中选择的文件或输入的件全名（含路径），运行时用户在通用对话框中选择的文件或输入的文件就保存在该属性中，关闭对话框后，可用文件就保存在该属性中，关闭对话框后，可用FileName属性得到文属性得到文件全名。件全名。8FileTitle属性属性n FileTitle属性为字符型，用于返回或设置用户要打开或保存的文件属性为字符型，用于返回或设置用户要打开或保存的文件名（不含路径）。运行时，用户选定的文件名或在名（不含路径）。运行时，用户选定的文件名或在“文件名文件名

11、”文本框文本框中输入文件名后，中输入文件名后，FileTitle属性为该文件名（而属性为该文件名（而FileName属性则由文属性则由文件名及其路径共同组成）。件名及其路径共同组成）。 7.2.4 “颜色颜色”对话框对话框 n 使用通用对话框控使用通用对话框控件的件的ShowColor方法，方法，或将或将Action属性赋值属性赋值为为3，可显示，可显示“颜色颜色”对话框，它为用户提对话框，它为用户提供了一个标准的调色供了一个标准的调色板界面，如图板界面，如图7-12所所示，用户可以使用其示，用户可以使用其中的基本颜色，也可中的基本颜色，也可以自己调色。当用户以自己调色。当用户选中某一种颜色后

12、，选中某一种颜色后，该颜色值（长整型）该颜色值（长整型）赋给赋给Color属性。属性。 图7-14 画板程序的运行结果 7.2.5 “字体字体”对话框对话框 n 运行时，使用通用对话框控件的运行时，使用通用对话框控件的ShowFont方法，或将方法，或将Action属性赋值为属性赋值为4，可以显示，可以显示“字体字体”对话框。在对话框。在“字体字体”对话框中对话框中选定设置并关闭对话框，读者可以通过使用以下属性得到所需要选定设置并关闭对话框，读者可以通过使用以下属性得到所需要的设置对象的字体属性。的设置对象的字体属性。1字体格式属性字体格式属性 Font Name：选定字体的名称选定字体的名称

13、 FontBold：是否选定了粗体是否选定了粗体 FontItalic：是否选定了斜体是否选定了斜体 FontStrikethru：是否选定了水平删除线是否选定了水平删除线 FontUnderline：是否选定了下划线是否选定了下划线 FontSize：选定字体的大小选定字体的大小 Color：选定的颜色选定的颜色n “字体字体”对话框为用户提供了一个标准的进行字体设置的界面，对话框为用户提供了一个标准的进行字体设置的界面，通过该对话框用户可以选择字体、字体样式、字体大小、字体效通过该对话框用户可以选择字体、字体样式、字体大小、字体效果以及字体颜色。果以及字体颜色。 7.2.5 “字体字体”对

14、话框对话框2Flags属性属性n Flags属性确定对话框中显示字体的类型，在显示字体对话框前属性确定对话框中显示字体的类型，在显示字体对话框前必须设置该属性，否则会产生不存在字体的错误。常用设置如表必须设置该属性，否则会产生不存在字体的错误。常用设置如表7-2所示。所示。使用使用Or运算符可以为一个对话框设置多个标志，如运算符可以为一个对话框设置多个标志，如cdlCFScreenFonts Or cdlCFEffects。其中，要使用其中，要使用FontStrikethru、FontUnderline和和Color这这3个属性，必须先将通个属性，必须先将通用对话框的用对话框的Flags属性设

15、置为属性设置为cdlCFEffects或或256。 表表7-2 “字体字体”对话框的对话框的Flags属性属性 系统常数值说明CdlCFScreenFonts&H1使对话框只列出系统支持的屏幕字体CdlCFPrinterFonts&H2使对话框只列出打印机支持的字体CdlCFBoth&H3使对话框列出可用的打印机和屏幕字体CdlCFEffects&H100指定对话框允许删除线、下划线以及颜色效果字体对话框字体对话框nPrivate Sub Command2_Click()n CmDLG.Flags = cdlCFBoth Or cdlCFEffectsn CmD

16、LG.FontName = Text1.FontName n CmDLG.ShowFontn Text1.FontBold = CmDLG.FontBoldn Text1.FontItalic = CmDLG.FontItalicn Text1.FontName = CmDLG.FontNamen Text1.FontSize = CmDLG.FontSizen Text1.ForeColor = CmDLG.Colorn Text1.FontStrikethru = CmDLG.FontStrikethrunEnd Sub7.2.6 其他对话框其他对话框 n Visual Basic 6.0

17、中除以上介绍的中除以上介绍的4种通用对话种通用对话框外，还提供了框外，还提供了“打印打印”和和“帮助帮助”对话框。对话框。n “打印打印”对话框可以设置打印输出的方法，如打对话框可以设置打印输出的方法，如打印范围、打印份数以及当前安装的打印机信息等。印范围、打印份数以及当前安装的打印机信息等。“帮助帮助”对话框则通过使用对话框则通过使用ShowHelp方法调用方法调用Windows系统的帮助引擎。这两种对话框的使用方系统的帮助引擎。这两种对话框的使用方法与前面介绍的类似，读者可以参考法与前面介绍的类似，读者可以参考Visual Basic有关资料，得到进一步的说明。有关资料，得到进一步的说明。

18、 7.3.1 菜单的类型菜单的类型 n窗体控制菜单窗体控制菜单;n下拉菜单下拉菜单;n快捷菜单。快捷菜单。n每一个菜单项就是一个控件。菜单控件只能识别一个每一个菜单项就是一个控件。菜单控件只能识别一个Click事件，当用鼠标或键盘选中某个菜单控件时，将引事件，当用鼠标或键盘选中某个菜单控件时，将引发该事件。发该事件。 菜单编辑器菜单编辑器n设计时右击窗体设计时右击窗体可启动可启动“菜单编菜单编辑器辑器”n最多可设置最多可设置6级级子菜单。子菜单。7.3.2 菜单编辑器菜单编辑器 n Visual Basic 6.0没有菜单控件，但提供了建立菜单的菜单编辑器。没有菜单控件，但提供了建立菜单的菜单

19、编辑器。在在Visual Basic 6.0集成开发环境中，选择集成开发环境中，选择“工具工具”菜单中的菜单中的“菜单编菜单编辑器辑器”选项，可以进入菜单编辑器，为窗体编辑菜单选项，可以进入菜单编辑器，为窗体编辑菜单 。n 在图在图7-18中，各选项的含义如下：中，各选项的含义如下：q(1) 标题：运行时各项菜单的字面解释，即在菜单中显示的自定义文标题：运行时各项菜单的字面解释，即在菜单中显示的自定义文本。本。q(2) 名称：菜单名称，用来惟一识别该菜单，也是运行时单击该菜单名称：菜单名称，用来惟一识别该菜单，也是运行时单击该菜单项所执行的事件过程的名称。项所执行的事件过程的名称。q例如：标题

20、为例如：标题为“打开文件打开文件”、名称为、名称为“Fopen”，程序运行时单击菜单程序运行时单击菜单项项“打开文件打开文件”所执行的事件过程为所执行的事件过程为Fopen_Click。q(3) 索引：如果建立菜单数组，必须使用该属性。索引：如果建立菜单数组，必须使用该属性。q(4) 快捷键：在该下拉列表框中可以为调用事件过程确定快捷键，缺快捷键：在该下拉列表框中可以为调用事件过程确定快捷键，缺省的表项是省的表项是None。快捷键将显示在菜单项后，如快捷键将显示在菜单项后，如“打开文件打开文件 Ctrl+O”。 q(5) 复选：设置下拉菜单项的复选：设置下拉菜单项的Checked属性。当该属性

21、值为属性。当该属性值为True时，在时，在下拉菜单项前面显示一个复选标志。若某菜单项有复选标志，再选时下拉菜单项前面显示一个复选标志。若某菜单项有复选标志，再选时希望无复选标志，除在设计时设置该菜单项具有复选功能外，还必须希望无复选标志，除在设计时设置该菜单项具有复选功能外，还必须在相应事件过程中写入如下代码：菜单名在相应事件过程中写入如下代码：菜单名.Checked= Not 菜单菜单名名.Checked7.3.2 菜单编辑器菜单编辑器q(6) 有效：设置下拉菜单项的有效：设置下拉菜单项的Enabled属性，缺省值为属性，缺省值为True。若要若要在程序运行时使某个菜单项不可选，可设置为在程

22、序运行时使某个菜单项不可选，可设置为False。q(7) 可见，设置下拉菜单项的可见，设置下拉菜单项的Visible属性，缺省值为属性，缺省值为True。若要若要在程序运行时使某个菜单项不可见，可设置为在程序运行时使某个菜单项不可见，可设置为False。q(8) 选项移动按钮：选项移动按钮：“左移左移”、“右移右移”按钮可以使编辑器窗口按钮可以使编辑器窗口选定的菜单项左边减少或增加选定的菜单项左边减少或增加4个点，若某菜单项比它上个点，若某菜单项比它上1行的菜行的菜单项多单项多4个点，则该选项作为上个点，则该选项作为上1菜单项的子菜单（菜单项的子菜单（Visual Basic允允许最多许最多6

23、级菜单）。级菜单）。q“上移上移”按钮可以使编辑器窗口选定的菜单项移动到上按钮可以使编辑器窗口选定的菜单项移动到上1行菜单行菜单项的上边，项的上边，“下移下移”按钮可以使编辑器窗口选定的菜单项移动到按钮可以使编辑器窗口选定的菜单项移动到下下1行菜单项的下边。行菜单项的下边。q(9) “下一个下一个”按钮：单击该按钮，光标从当前菜单项移到下一按钮：单击该按钮，光标从当前菜单项移到下一项。如果当前菜单项是最后一项，则加入一个新的菜单项。项。如果当前菜单项是最后一项，则加入一个新的菜单项。q(10) “插入插入”按钮：在当前选择的菜单项前插入一个新的菜单项。按钮：在当前选择的菜单项前插入一个新的菜单

24、项。q(11) “删除删除”按钮：删除当前选择的菜单项。在菜单设计过程中，按钮：删除当前选择的菜单项。在菜单设计过程中，已经设计的菜单项及其上下级关系都会显示在菜单编辑器下端的已经设计的菜单项及其上下级关系都会显示在菜单编辑器下端的列表框中，读者可以非常直观地修改、调整有关的菜单项。列表框中，读者可以非常直观地修改、调整有关的菜单项。 7.3.3 下拉式菜单下拉式菜单 n 在下拉式菜单中，一般有一个主菜单，称为菜单栏。每个菜单在下拉式菜单中，一般有一个主菜单，称为菜单栏。每个菜单栏包括一个或多个选择项，称为菜单标题，如栏包括一个或多个选择项，称为菜单标题，如Visual Basic 6.0集集

25、成开发环境中的文件、编辑、视图、工程等。成开发环境中的文件、编辑、视图、工程等。n 当单击一个菜单标题时，包含菜单项的列表（即菜单）被打开，当单击一个菜单标题时，包含菜单项的列表（即菜单）被打开，在列表项目中，可以包含分隔条和子菜单标题（其右边含有三角在列表项目中，可以包含分隔条和子菜单标题（其右边含有三角的菜单项）等。当选择子菜单标题时又会的菜单项）等。当选择子菜单标题时又会“下拉下拉”出下一级菜单出下一级菜单项列表，称为子菜单。项列表，称为子菜单。n Visual Basic的菜单系统最多可达的菜单系统最多可达6级，但在实际应用中一般不级，但在实际应用中一般不超过超过3层，因为菜单层次过多，会影响操作的方便