[经济学]第8章-菜单与对话框课件.ppt

《[经济学]第8章-菜单与对话框课件.ppt》由会员分享，可在线阅读，更多相关《[经济学]第8章-菜单与对话框课件.ppt（50页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第第8 8章章 菜单与对话框菜单与对话框本章的学习要点本章的学习要点用菜用菜单编辑单编辑器建立菜器建立菜单单 菜菜单项单项的控制的控制 (1)有效性控制有效性控制 (2)菜菜单项标记单项标记 (3)键盘选择键盘选择菜菜单项单项的增减的增减 文件文件对话对话框框 其它其它对话对话框（框（“颜颜色色”、“字体字体”、“打印打印”对话对话框）框）18.1 菜单概述菜单概述 Windows环境下几乎所有的应用软件都通过环境下几乎所有的应用软件都通过菜单实现各种操作，而对菜单实现各种操作，而对visual basic应用程序应用程序来说，当操作比较简单的时候，一般通过控件来来说，当操作比较简单的时候，一

2、般通过控件来执行，当要完成比较复杂的操作时，使用菜单具执行，当要完成比较复杂的操作时，使用菜单具有十分明显的优势。有十分明显的优势。菜单的类型：菜单的类型：控制菜单；下拉式菜单；快捷菜单（弹出式菜单）控制菜单；下拉式菜单；快捷菜单（弹出式菜单）菜单的作用：菜单的作用：1.提供人机对话的界面，以便让使用者选择应用提供人机对话的界面，以便让使用者选择应用系统的各种功能，系统的各种功能，2.管理应用系统，控制各种功能模块的运行。管理应用系统，控制各种功能模块的运行。238.2 下拉式菜单下拉式菜单下拉式菜单的主菜单显示在菜单条里，下拉式菜单的主菜单显示在菜单条里，VB中包含了中包含了13个主个主菜单

3、，如图菜单，如图 所示。所示。当程序执行时用鼠标或键盘选择某个菜单项会弹出下拉子菜当程序执行时用鼠标或键盘选择某个菜单项会弹出下拉子菜单。例如单。例如VB中单击中单击“文件文件”主菜单或利用主菜单或利用“Alt”“F”键的组合可以弹出文件的下拉子菜单。键的组合可以弹出文件的下拉子菜单。在某些菜单项中还包含有分隔条，利用分隔条可将不同功能在某些菜单项中还包含有分隔条，利用分隔条可将不同功能菜单项进行分隔。菜单项还可包含快捷键和热键，利用快捷菜单项进行分隔。菜单项还可包含快捷键和热键，利用快捷键和热键的正确使用可以直接利用键盘调用对应的功能，提键和热键的正确使用可以直接利用键盘调用对应的功能，提高

4、操作速度。高操作速度。4下拉式菜单下拉式菜单菜单显示在窗体中，因此菜单的设置也和其他控件一样在窗菜单显示在窗体中，因此菜单的设置也和其他控件一样在窗体内进行。体内进行。VB为用户提供了菜单编辑器。打开菜单编辑器为用户提供了菜单编辑器。打开菜单编辑器的方法有如下几种：的方法有如下几种：1在在VB中单击中单击“工具工具”菜单中的菜单中的“菜单编辑器菜单编辑器”子菜单；子菜单；2利用利用“Ctrl”“E”键的组合；键的组合；3在需要建立菜单的窗体上右击，在弹出的菜单中选择在需要建立菜单的窗体上右击，在弹出的菜单中选择“菜单编辑器菜单编辑器”命令；命令；4单击工具栏中的单击工具栏中的“菜单编辑器菜单编

5、辑器”快捷按钮。快捷按钮。用上述任一方法打开的用上述任一方法打开的“菜单编辑器菜单编辑器”的对话框，如图所示。的对话框，如图所示。5下拉式菜单下拉式菜单利用菜单编辑器，可以对窗体中所需的菜单各项属性进行设利用菜单编辑器，可以对窗体中所需的菜单各项属性进行设置。菜单编辑器具体可分为置。菜单编辑器具体可分为3个部分，上部为属性设置区，个部分，上部为属性设置区，用来对菜单项进行标题、名称等的属性设置；中部为编辑区，用来对菜单项进行标题、名称等的属性设置；中部为编辑区，包含包含7个按钮，用来对输入的菜单项进行简单的编辑；下部个按钮，用来对输入的菜单项进行简单的编辑；下部为菜单项显示区，前面所编辑的菜单

6、项在此处显示。为菜单项显示区，前面所编辑的菜单项在此处显示。编辑区编辑区属属性性设设置置区区菜菜单单项项显显示示区区6下拉式菜单下拉式菜单1属性设置区：属性设置区：(1)“标题标题caption”:(2)“名称名称name”：唯一标识该菜单：唯一标识该菜单(3)“索引索引index”：菜单控件数组的索引号：菜单控件数组的索引号(4)“快捷键快捷键shortcut”：缺省是：缺省是none(5)“复选复选checked”：菜单项前显示复选标志：菜单项前显示复选标志(6)“有效有效enabled”：缺省为：缺省为true(7)“可见可见visible”:缺省为缺省为true(8)“帮助上下文帮助上

7、下文”:帮助文件中查找相应的帮助主帮助文件中查找相应的帮助主题题(9)“协调位置协调位置”:标题位置标题位置7下拉式菜单下拉式菜单2编辑区编辑区(1)用于调整菜单项的级别，单击一次用于调整菜单项的级别，单击一次 按钮，则产生一个内缩符按钮，则产生一个内缩符号号“”，表示为上一级的子菜单；单击一次，表示为上一级的子菜单；单击一次 ，删除一个，删除一个内缩符号，则该菜单项被提高一个级别。菜单项的级别最多可以设内缩符号，则该菜单项被提高一个级别。菜单项的级别最多可以设置置6级。级。(2)通过单击通过单击 或或 按钮可将当前被选择的菜单项在同级里向按钮可将当前被选择的菜单项在同级里向上或向下移动一个位

8、置。上或向下移动一个位置。(3)“下一个下一个”介绍当前菜单项的编辑进入下一菜单项的编辑。介绍当前菜单项的编辑进入下一菜单项的编辑。(4)“插入插入”在当前菜单项的前面插入一个空白菜单项。在当前菜单项的前面插入一个空白菜单项。(5)“删除删除”删除当前菜单项。删除当前菜单项。8下拉式菜单下拉式菜单3菜单项显示区菜单项显示区该区域用于显示输入的菜单项，编辑好的菜单项可通过内缩该区域用于显示输入的菜单项，编辑好的菜单项可通过内缩符号表明其层次，如图所示：编辑为主菜单，其下有符号表明其层次，如图所示：编辑为主菜单，其下有4个子菜个子菜单，而字体子菜单下还有单，而字体子菜单下还有3个二级菜单。个二级菜

9、单。9下拉式菜单下拉式菜单例例:设计一个包含菜单的窗体，其中主菜单为文件和编辑菜设计一个包含菜单的窗体，其中主菜单为文件和编辑菜单，文件菜单包含新建、打开、保存、退出四个下拉菜单，单，文件菜单包含新建、打开、保存、退出四个下拉菜单，编辑菜单包含剪切、复制、粘贴和字体四个下拉菜单，字体编辑菜单包含剪切、复制、粘贴和字体四个下拉菜单，字体菜单又包含黑体、宋体、楷书三个下拉菜单。具体设计完毕菜单又包含黑体、宋体、楷书三个下拉菜单。具体设计完毕后效果如图后效果如图12-4所示。所示。10下拉式菜单下拉式菜单1建立菜单建立菜单标题标题名称名称上上级级菜菜单单热键热键快捷快捷键键文件文件(&F)mnuFi

10、le无无F无无新建新建mnuFileNew文件文件无无CtrlN打开打开mnuFileOpen文件文件无无CtrlO保存保存mnuFileSave文件文件无无CtrlSmnuFileBar文件文件无无无无退出退出mnuFileQuit文件文件无无CtrlQ编辑编辑(&E)mnuEdit无无E无无剪切剪切mnuEditCut编辑编辑无无CtrlX复制复制mnuEditCopy编辑编辑无无CtrlC粘粘贴贴mnuEditPaste编辑编辑无无CtrlV字体字体mnuEditFont编辑编辑无无CtrlF黑体黑体Font1字体字体无无无无宋体宋体Font2字体字体无无无无楷体楷体Font3字体字体无

11、无无无11下拉式菜单下拉式菜单2编写代码编写代码菜单设置好后，需要给每个需要完成某些功能的菜单项编写菜单设置好后，需要给每个需要完成某些功能的菜单项编写对应的代码。给例的窗体内添加一个文本框对应的代码。给例的窗体内添加一个文本框Text1，Text1的的属性如表所示。属性如表所示。对对象名象名属性属性属性属性值值TextNameText1Text清空清空MultiLineTrueScrollBar3-both12下拉式菜单下拉式菜单单击单击“编辑编辑”菜单下的菜单下的“字体字体”子菜单，选择子菜单，选择“黑体黑体”，弹出对应的，弹出对应的“单击单击”事件代码编辑窗口，下面为事件代码编辑窗口，下

12、面为“黑体黑体”子菜单编写代码如下：子菜单编写代码如下：Private Sub Font1_Click()Text1.Font=黑体黑体End Sub此处黑体菜单的名称即为在设计时输入的名称此处黑体菜单的名称即为在设计时输入的名称“Font1”。按照上述步骤依次选择按照上述步骤依次选择“宋体宋体”、“楷体楷体”子菜单，完成相应的代码编子菜单，完成相应的代码编写。具体代码如下：写。具体代码如下：Private Sub Font2_Click()Text1.Font=宋体宋体End SubPrivate Sub Font3_Click()Text1.Font=楷体楷体_Gb2312End Sub1

13、3下拉式菜单下拉式菜单运行时可通过字体菜单修改文本中输入文字的字体。运行的运行时可通过字体菜单修改文本中输入文字的字体。运行的各种结果如图所示。各种结果如图所示。14下拉式菜单下拉式菜单例例:设计一个具有加、减、乘、除、清除和退出功能的程序。设计一个具有加、减、乘、除、清除和退出功能的程序。思路：在前章中曾利用单选按钮完成过该例部分功能，此处思路：在前章中曾利用单选按钮完成过该例部分功能，此处利用菜单来完成全部功能。该例的设计界面如图所示：利用菜单来完成全部功能。该例的设计界面如图所示：15下拉式菜单下拉式菜单属性设置属性设置标题标题名称名称上上级级菜菜单单快捷快捷键键计计算算1js1无无无无

14、加加add计计算算1CtrlA减减Sub计计算算1CtrlB计计算算2Js2无无无无乘乘Mul计计算算2CtrlC除除Div计计算算2CtrlD其他其他Other无无无无清除清除Clear其他其他CtrlE退出退出Exit其他其他CtrlF16下拉式菜单下拉式菜单17下拉式菜单下拉式菜单在用户界面设计状态单击某一菜单项，编辑窗口出现该菜单在用户界面设计状态单击某一菜单项，编辑窗口出现该菜单Click事件过程的代码，可在其中输入要执行的代码。各菜事件过程的代码，可在其中输入要执行的代码。各菜单项对应的代码如下：单项对应的代码如下：Private Sub add_Click()加法。加法。x=Va

15、l(Text1.Text)+Val(Text2.Text)Text3.Text=Str(x)End SubPrivate Sub sub_Click()减法。减法。x=Val(Text1.Text)-Val(Text2.Text)Text3.Text=Str(x)18下拉式菜单下拉式菜单Private Sub mul_Click()乘法。乘法。x=Val(Text1.Text)*Val(Text2.Text)Text3.Text=Str(x)End SubPrivate Sub div_Click()除法。除法。If Val(Text2.Text)0 Then 除数是否为除数是否为0的判断。的

16、判断。x=Val(Text1.Text)/Val(Text2.Text)Text3.Text=Str(x)Else MsgBox 除数不能为除数不能为0！请重新输入！请重新输入！Text2.Text=Text2.SetFocusEnd IfEnd Sub19下拉式菜单下拉式菜单Private Sub clear_Click()清除。清除。Text1=:Text2=:Text3=Text1.SetFocusEnd Sub Private Sub exit_Click()退出。退出。EndEnd Sub20下拉式菜单下拉式菜单标题标题名称名称索引索引值值 上上级级菜菜单单快捷快捷键键清除清除MOt

17、her 0 其他其他 CtrlE退出退出 MOther 1 其他其他 CtrlFPrivate Sub MOther_Click(Index As Integer)Select Case Index Case 0 清除。清除。Text1=:Text2=:Text3=Text1.SetFocus Case 1 退出。退出。End End SelectEnd Sub218.3 弹出式菜单设计弹出式菜单设计右击窗体时弹出的菜单为弹出式菜单，一般集合了很多常用右击窗体时弹出的菜单为弹出式菜单，一般集合了很多常用的操作。弹出式菜单没有主菜单名，只有在使用时才会在窗的操作。弹出式菜单没有主菜单名，只有在使

18、用时才会在窗体上浮动显示。例如在体上浮动显示。例如在VB的设计窗体中单击右键，弹出的的设计窗体中单击右键，弹出的菜单如图菜单如图 所示。所示。22弹出式菜单设计弹出式菜单设计例：在前例的基础上增加一个快捷编辑菜单，包含例：在前例的基础上增加一个快捷编辑菜单，包含“剪切剪切”、“复制复制”和和“粘贴粘贴”功能，右击窗体时功能，右击窗体时弹出该快捷菜单。弹出该快捷菜单。操作步骤：操作步骤：1在菜单编辑器里新增一个菜单，保证该菜单为顶在菜单编辑器里新增一个菜单，保证该菜单为顶层菜单项，即无缩进符号。标题设定为层菜单项，即无缩进符号。标题设定为“Edit”，该标题和名称可任意设定，因为它在快捷菜单弹出

19、该标题和名称可任意设定，因为它在快捷菜单弹出时不显示。时不显示。2将将“Edit”菜单的可见属性设置为菜单的可见属性设置为False。3单击单击“下一个下一个”命令按钮，标题文本框中输入命令按钮，标题文本框中输入“剪切剪切”，编辑对应的名称，单击按钮，将，编辑对应的名称，单击按钮，将“剪切剪切”菜单设置为菜单设置为“Edit”菜单的下一级菜单。菜单的下一级菜单。23弹出式菜单设计弹出式菜单设计4参照步骤参照步骤3完成完成“复制复制”和和“粘贴粘贴”菜单的设置。菜单的设置。5在在VB中，需要使用中，需要使用PopupMenu方法来显示弹出方法来显示弹出式菜单。其语法格式如下：式菜单。其语法格式如

20、下：对象对象.PopupMenu 菜单名菜单名,标志标志,X,Y其中对象为可选项，默认为其中对象为可选项，默认为Form对象；菜单名是必对象；菜单名是必须的，被指定的菜单必须至少包含一个子菜单；标须的，被指定的菜单必须至少包含一个子菜单；标志参数及志参数及X、Y的值的作用是详细定义弹出式菜单的的值的作用是详细定义弹出式菜单的弹出位置，当标志等于弹出位置，当标志等于0时，为系统的默认状态，时，为系统的默认状态，X放映的是弹出菜单的左边界，当标志等于放映的是弹出菜单的左边界，当标志等于4时，时，X放放映的是弹出菜单的中心位置，当标志等于映的是弹出菜单的中心位置，当标志等于8时，时，X放放映的是弹出

21、菜单的右边界。映的是弹出菜单的右边界。24弹出式菜单设计弹出式菜单设计因此需要在窗体的因此需要在窗体的MouseUp事件里编写对应的代码。注意事件里编写对应的代码。注意只有在窗体上单击鼠标右键时才会弹出快捷菜单。具体代码只有在窗体上单击鼠标右键时才会弹出快捷菜单。具体代码如下：如下：Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)If Button=2 Then 若单击鼠标右键。若单击鼠标右键。PopupMenu Edit 弹出弹出edit快捷菜单。快捷菜单。End IfEn

22、d Sub25弹出式菜单设计弹出式菜单设计在窗体或控件的在窗体或控件的mouseup或或mousedown事件中调用事件中调用popupmenu方法显示该菜单。方法显示该菜单。格式：格式：popupmenu,flag,x,y,boldcommand 其中：其中：1.popupmenu不可前置其他控件名称不可前置其他控件名称 2.是我们设计好的菜单名称是我们设计好的菜单名称 3.flag参数为常数，用来设置显示位置与行为参数为常数，用来设置显示位置与行为 4.x,y：设置菜单弹出的坐标位置：设置菜单弹出的坐标位置 5.boldcommand：指定需要加粗显示的菜单项：指定需要加粗显示的菜单项26

23、FlagFlag参数的取值及含义参数的取值及含义参数的取值及含义参数的取值及含义系统常量系统常量值值说明说明vbpopupmenuleftalign0缺省值，指定缺省值，指定x的位置作为弹出式菜单的的位置作为弹出式菜单的左上角左上角vbpopupmenucenteralign4指定指定x的位置作为弹出式菜单的中心点的位置作为弹出式菜单的中心点Vbpopupmenurightalign8指定指定x的位置作为弹出式菜单的右上角的位置作为弹出式菜单的右上角Vbpopupmenuleftbutton0菜单命令只接受鼠标左键单击菜单命令只接受鼠标左键单击Vbpopupmenurightbutton2菜单

24、命令可接受鼠标左、右键单击菜单命令可接受鼠标左、右键单击27对话框对话框窗体窗体 对话框对话框创建对话框的方法：创建对话框的方法：1.msgbox,inputbox函数：函数：2.自定义对话框：自定义对话框：3.通用对话框：一种控件（通用对话框：一种控件（open对话框对话框,save as对话对话框）框）288.4 自定义对话框自定义对话框1.由普通窗体创建自定义对话框由普通窗体创建自定义对话框界面设计界面设计属性设置属性设置 Borderstyle:窗体的边框样式窗体的边框样式设置为设置为3 controlbox：显示控制菜单框：显示控制菜单框 29自定义对话框自定义对话框代码设计代码设计

25、 Private Sub Command1_Click()Form2.Show Form1.Hide End Sub Private Sub Command1_Click()If Text1.Text=password Then Else MsgBox 密码错误，重新输入密码错误，重新输入 End If End Sub30自定义对话框自定义对话框2.使用对话框模板创建对话框使用对话框模板创建对话框31自定义对话框自定义对话框3.显示与关闭显示与关闭“自定义自定义”对话框对话框 显示显示 .show 关闭关闭 me.hide或或.hide unload me代表正在执行的地方提供引用具体实例，一

26、般指当前代表正在执行的地方提供引用具体实例，一般指当前窗体。窗体。328.4 通用对话框通用对话框VB6.0为用户提供了一组基于为用户提供了一组基于Windows标准的对话框，称为标准的对话框，称为通用对话框，即通用对话框，即CommonDialog。包括。包括“打开打开”对话框、对话框、“另存为另存为”对话框、对话框、“颜色颜色”对话框、对话框、“字体字体”对话框、对话框、“打打印印”对话框以及对话框以及“帮助帮助”对话框。对话框。通用对话框不是标准控件，使用时必须先将该控件添加到工通用对话框不是标准控件，使用时必须先将该控件添加到工具箱里。将具箱里。将CommonDialog添加到工具箱里

27、的步骤如下：添加到工具箱里的步骤如下：1选择选择“工程工程”下拉菜单中的下拉菜单中的“部件部件”子菜单，弹子菜单，弹出出“部件部件”对话框。对话框。2在在“部件部件”对话框列表中选择对话框列表中选择“Microsoft Common Dialog Control6.0”项目，确保其前方的复项目，确保其前方的复选框内出现选框内出现“”。3单击确定按钮。添加完成后工具箱里出现单击确定按钮。添加完成后工具箱里出现CommonDialog的图标。具体操作如图的图标。具体操作如图 所示。所示。33通用对话框通用对话框通用对话框常用的属性有名称属性和通用对话框常用的属性有名称属性和Action属性等。系统

28、默属性等。系统默认的通用对话框名称为认的通用对话框名称为CommonDialog1、CommonDialog2。Action属性决定程序打开什么类型属性决定程序打开什么类型的对话框。具体的对话框。具体Action属性、含义及对应的方法。属性、含义及对应的方法。Action属性属性含含义义对应对应方法方法0无无对话对话框框显显示示1“打开打开”对话对话框框ShowOpen2“另存另存为为”对话对话框框ShowSave3“颜颜色色”对话对话框框ShowColor4“字体字体”对话对话框框ShowFont5“打印打印”对话对话框框ShowPrinter6“帮助帮助”对话对话框框ShowHelp34通

29、用对话框通用对话框把把CommonDialog控件添加到窗体后，就意味着上述各种标控件添加到窗体后，就意味着上述各种标准对话框可以被使用了。当某一时刻需要用到某个对话框时，准对话框可以被使用了。当某一时刻需要用到某个对话框时，必须通过设置必须通过设置Action属性或属性或VB6.0的方法才能使之显示在屏的方法才能使之显示在屏幕上。幕上。例如要显示例如要显示“打开打开”对话框，在程序中利用设置对话框，在程序中利用设置Action属性属性则对应语句如下：则对应语句如下：CommonDialog1.Action=1也可在程序中用控件的方法完成对话框的显示。也可在程序中用控件的方法完成对话框的显示。

30、CommonDialog1.ShowOpen35通用对话框通用对话框1文件对话框文件对话框文件对话框包括文件对话框包括“打开打开”和和“另存为另存为”对话框。使用对话框。使用“打开打开”、“另存为另存为”对话框可以设置文件对话框的属性。文件对对话框可以设置文件对话框的属性。文件对话框属性页中的属性和含义如表所示。话框属性页中的属性和含义如表所示。36通用对话框通用对话框属性属性标题标题属性名称属性名称含含义义对话对话框框标题标题DialogTitle设设置置对话对话框的框的标题标题，默，默认值为认值为“打开打开”或或“另存另存为为”文件名称文件名称FileName设设置置对话对话框中框中“文件

31、名称文件名称”的默的默认值认值，并返回用，并返回用户户所所选选中的中的文件名（包括完整的路径名）文件名（包括完整的路径名）初始化路径初始化路径InitDir设设置初始化的文件目置初始化的文件目录录，并返回用，并返回用户户所所选择选择的目的目录录，默，默认认为为当前目当前目录录过滤过滤器器Filter设设置置显显示文件的示文件的类类型。格式型。格式为为：描述：描述|通配符通配符|过滤过滤器索引器索引FilterIndex设设置文件置文件对话对话框中默框中默认过滤认过滤器的索引器的索引标标志志Flags设设置置对话对话框的一些框的一些选项选项，可以是多个，可以是多个值值的的组组合。如合。如1，显显

32、示只示只读读复复选选框框默默认扩认扩展名展名DefaultExt为对话为对话框返回或框返回或设设置默置默认认的文件的文件扩扩展名展名文件最大文件最大长长度度MaxFileSize设设置被打开文件的最大置被打开文件的最大长长度，取度，取值值范范围围12k，默，默认为认为260例如：例如：CommonDialog1.Fileter=”All Files(*.*)|*.*|位图位图(*.bmp)|*.bmp|”设置对话框的过滤器设置对话框的过滤器CommonDialog2.DialogTitle=”选择文件选择文件”设置对话框的标设置对话框的标题题37通用对话框通用对话框例：将例里例：将例里“新建新

33、建”和和“打开打开”菜单功能补充完整。菜单功能补充完整。注意：注意：先将通用对话框添加到工具箱里，再将先将通用对话框添加到工具箱里，再将CommonDialog控件添加到窗体上。在窗体上单击各菜单项，控件添加到窗体上。在窗体上单击各菜单项，完成下述代码完成下述代码：Private Sub mnuFileNew_Click()新建菜单新建菜单CommonDialog1.ShowSaveText1.Text=Form1.Caption=新建文件新建文件End Sub38通用对话框通用对话框Private Sub mnuFileOpen_Click()打开菜单打开菜单Dim Filename As

34、String,m As StringFilename=CommonDialog1.ShowOpenCommonDialog1.Filter=Text(*.txt)|*.txt Filename=CommonDialog1.FilenameIf Filename=Then MsgBox no file open,vbExclamation+vbOKOnly,SystemElse MsgBox you open+Filename+!,vbInformation,SystemEnd IfOpen CommonDialog1.Filename For Input As#1 将文件打开将文件打开Inpu

35、t#1,m 将文件内容读入到文本框里将文件内容读入到文本框里Text1.Text=mClose#1End Sub39通用对话框通用对话框Private Sub mnuFileSave_Click()保存菜单保存菜单CommonDialog1.Action=2Open CommonDialog1.Filename For Output As#1 Print#1,Text1.Text Close#1End Sub40通用对话框通用对话框某次单击某次单击“新建新建”菜单时弹出的对话框和菜单时弹出的对话框和Windows默认风格默认风格一致。一致。418.5 其他对话框其他对话框 1颜色对话框颜色对话

36、框使用使用“颜色颜色”对话框可设置颜色属性，对应的对话框可设置颜色属性，对应的Windows颜色颜色对话框如图对话框如图 所示。其属性和含义如表所示。所示。其属性和含义如表所示。属性属性标题标题属性属性名称名称含含义义颜颜色色Color设设置初始置初始颜颜色，并返回用色，并返回用户选户选择择的的颜颜色色标标志志Flags设设置置对话对话框的一些框的一些选项选项，可以，可以是多个是多个值值的的组组合。例如合。例如1表示首表示首次打开次打开颜颜色色对话对话框。框。42其他对话框其他对话框例如：例如：Commondialog1.Action=3或或Commondialog1.ShowcolorFor

37、m1.BackColor=CommonDialog1.Color表示将用户在表示将用户在“颜色颜色”对话框中设置的颜色作为窗体背景色。对话框中设置的颜色作为窗体背景色。Text1.ForeColor=Commondialog1.Color43其他对话框其他对话框2字体对话框字体对话框使用使用“字体字体”对话框可设置字体属性。其属性和含义如表对话框可设置字体属性。其属性和含义如表 所所示。示。属性属性标题标题属性名称属性名称含含义义字体名称字体名称FontName设设置字体名称中的初始字体，并返回用置字体名称中的初始字体，并返回用户户所所选择选择的字体的字体名称名称字体大小字体大小FontSiz

38、e设设置初始字体大小，并返回用置初始字体大小，并返回用户选择户选择的字体大小，默的字体大小，默认认为为8样样式式FontBold设设置字体置字体风风格，并可返回用格，并可返回用户选户选中的字体中的字体风风格。格。FontBold返回在字体返回在字体对话对话框中是否框中是否选选中了粗体字中了粗体字样样式式FontItalic返回在字体返回在字体对话对话框中是否框中是否选选中了斜体字中了斜体字样样式式FontUnderline返回在字体返回在字体对话对话框中是否框中是否选选中了下划中了下划线线样样式式FontStrikethru返回在字体返回在字体对话对话框中是否框中是否选选中了中了删删除除线线4

39、4其他对话框其他对话框例如：例如：CommonDialog1.ShowFontText1.FontName=CommonDialog1.Filename表示将用户在表示将用户在“字体字体”对话框中设置的字体作为文本框的字对话框中设置的字体作为文本框的字体。体。45其他对话框其他对话框例：例：利用颜色对话框和字体对话框设置文本框中文字的颜利用颜色对话框和字体对话框设置文本框中文字的颜色和字体。色和字体。在窗体上放置一个文本框，两个命令按钮和一个通用对在窗体上放置一个文本框，两个命令按钮和一个通用对话框，控件属性如表。话框，控件属性如表。46其他对话框其他对话框对对象名象名属性属性属性属性值值Co

40、mmandButtonNameCommand1Caption文字文字颜颜色色CommandButtonNameCommand2Caption字体字体设设置置TextNameText1MultilineTrueText但愿人但愿人长长久久(Ctrl+回回车车)千里共千里共婵婵娟娟Font宋体粗体三号宋体粗体三号CommonDialogNameCommonDialog147其他对话框其他对话框Private Sub Command1_Click()CommonDialog1.ShowColor 显示颜色对话框。显示颜色对话框。Text1.ForeColor=CommonDialog1.Color

41、颜色设置颜色设置End SubPrivate Sub Command2_Click()CommonDialog1.ShowFont 显示字体对话框。显示字体对话框。Text1.FontName=CommonDialog1.FileName 设置字体。设置字体。Text1.FontSize=CommonDialog1.FontSize 设置字体大小。设置字体大小。Text1.FontBold=CommonDialog1.FontBold 设置是否粗体。设置是否粗体。Text1.FontItalic=CommonDialog1.FontItalic 是否斜体。是否斜体。Text1.FontUnde

42、rline=CommonDialog1.FontUnderline 是否有下划线。是否有下划线。End Sub48其他对话框其他对话框3打印对话框打印对话框使用使用“打印打印”对话框可设置打印属性。对话框可设置打印属性。Commondialog1.Action=4或或Commondialog1.ShowPrint属性属性标题标题属性名称属性名称含含义义复制复制Copies设设置打印的份数置打印的份数最小最小Min设设置打印的最小置打印的最小页页数数最大最大Max设设置打印的最大置打印的最大页页数数起始起始页页/终终止止页页设设置要打印的起始置要打印的起始/终终止止页页49其他对话框其他对话框4帮助对话框帮助对话框使用使用“帮助帮助”对话框可调用系统的帮助引擎。对话框可调用系统的帮助引擎。Commondialog1.Action=5或或Commondialog1.ShowHelp50