1、12.1.1下拉式菜单下拉式菜单v下拉式菜单的主菜单显示在菜单条里，下拉式菜单的主菜单显示在菜单条里，VBVB中包含了中包含了1313个主菜单，如图个主菜单，如图12-1 12-1 所示。所示。v当程序执行时用鼠标或键盘选择某个菜单项会弹出下当程序执行时用鼠标或键盘选择某个菜单项会弹出下拉子菜单。例如拉子菜单。例如VBVB中单击中单击“文件文件”主菜单或利用主菜单或利用“Alt”Alt”“F”F”键的组合可以弹出文件的下拉子菜单。键的组合可以弹出文件的下拉子菜单。v在某些菜单项中还包含有分隔条，利用分隔条可将不在某些菜单项中还包含有分隔条，利用分隔条可将不同功能菜单项进行分隔。菜单项还可包含快
2、捷键和热同功能菜单项进行分隔。菜单项还可包含快捷键和热键，利用快捷键和热键的正确使用可以直接利用键盘键，利用快捷键和热键的正确使用可以直接利用键盘调用对应的功能，提高操作速度。调用对应的功能，提高操作速度。下拉式菜单下拉式菜单v菜单显示在窗体中，因此菜单的设置也和其他控件一菜单显示在窗体中，因此菜单的设置也和其他控件一样在窗体内进行。样在窗体内进行。VBVB为用户提供了菜单编辑器。打开为用户提供了菜单编辑器。打开菜单编辑器的方法有如下几种：菜单编辑器的方法有如下几种：v1 1在在VBVB中单击中单击“工具工具”菜单中的菜单中的“菜单编辑器菜单编辑器”子菜子菜单；单；v2 2利用利用“Ctrl”
3、Ctrl”“E”E”键的组合；键的组合；v3 3在需要建立菜单的窗体上右击，在弹出的菜单中选在需要建立菜单的窗体上右击，在弹出的菜单中选择择“菜单编辑器菜单编辑器”命令；命令；v4 4单击工具栏中的单击工具栏中的“菜单编辑器菜单编辑器”快捷按钮。快捷按钮。v用上述任一方法打开的用上述任一方法打开的“菜单编辑器菜单编辑器”的对话框，如的对话框，如图图12-212-2所示。所示。下拉式菜单下拉式菜单下拉式菜单下拉式菜单v 利用菜单编辑器，可以对窗体中所需的菜单各项属性进行利用菜单编辑器，可以对窗体中所需的菜单各项属性进行设置。菜单编辑器具体可分为设置。菜单编辑器具体可分为3 3个部分，上部为属性设
4、置个部分，上部为属性设置区，用来对菜单项进行标题、名称等的属性设置；中部为区，用来对菜单项进行标题、名称等的属性设置；中部为编辑区，包含编辑区，包含7 7个按钮，用来对输入的菜单项进行简单的个按钮，用来对输入的菜单项进行简单的编辑；下部为菜单项显示区，前面所编辑的菜单项在此处编辑；下部为菜单项显示区，前面所编辑的菜单项在此处显示。显示。下拉式菜单下拉式菜单v1 1属性设置区：属性设置区：(1)“(1)“标题标题”(2)“(2)“名称名称”(3)“(3)“索引索引”(4)“(4)“快捷键快捷键”(5)“(5)“复选复选”(6)“(6)“有效有效”(7)“(7)“可见可见”(8)“(8)“帮助上下
5、文帮助上下文”(9)“(9)“协调位置协调位置”下拉式菜单下拉式菜单v2 2编辑区编辑区(1)(1)用于调整菜单项的级别，单击一次用于调整菜单项的级别，单击一次 按钮，按钮，则产生一个内缩符号则产生一个内缩符号“”，表示为上一级的子，表示为上一级的子菜单；单击一次菜单；单击一次 ，删除一个内缩符号，则，删除一个内缩符号，则该菜单项被提高一个级别。菜单项的级别最多可该菜单项被提高一个级别。菜单项的级别最多可以设置以设置6 6级。级。(2)(2)通过单击通过单击 或或 按钮可将当前被选择按钮可将当前被选择的菜单项在同级里向上或向下移动一个位置。的菜单项在同级里向上或向下移动一个位置。下拉式菜单下拉
6、式菜单v2 2编辑区编辑区(3)“(3)“下一个下一个”介绍当前菜单项的编辑进入下一菜单项的编辑。介绍当前菜单项的编辑进入下一菜单项的编辑。(4)“(4)“插入插入”在当前菜单项的前面插入一个空白菜单项。在当前菜单项的前面插入一个空白菜单项。(5)“(5)“删除删除”删除当前菜单项。删除当前菜单项。下拉式菜单下拉式菜单v 3 3菜单项显示区菜单项显示区 该区域用于显示输入的菜单项，编辑好的菜单项可通该区域用于显示输入的菜单项，编辑好的菜单项可通过内缩符号表明其层次，如图过内缩符号表明其层次，如图12-312-3所示：编辑为主菜所示：编辑为主菜单，其下有单，其下有4 4个子菜单，而字体子菜单下还
7、有个子菜单，而字体子菜单下还有3 3个二级个二级菜单。菜单。下拉式菜单下拉式菜单v 例例12.112.1设计一个包含菜单的窗体，其中主菜单为文件和编设计一个包含菜单的窗体，其中主菜单为文件和编辑菜单，文件菜单包含新建、打开、保存、退出四个下拉辑菜单，文件菜单包含新建、打开、保存、退出四个下拉菜单，编辑菜单包含剪切、复制、粘贴和字体四个下拉菜菜单，编辑菜单包含剪切、复制、粘贴和字体四个下拉菜单，字体菜单又包含黑体、宋体、楷书三个下拉菜单。具单，字体菜单又包含黑体、宋体、楷书三个下拉菜单。具体设计完毕后效果如图体设计完毕后效果如图12-412-4所示。所示。下拉式菜单v1 1建立菜单建立菜单标题标
8、题名称名称上级菜单上级菜单热键热键快捷键快捷键文件文件mnuFilemnuFile无无F F无无新建新建mnuFileNewmnuFileNew文件文件N NCtrlCtrlN N打开打开mnuFileOpenmnuFileOpen文件文件O OCtrlCtrlO O保存保存mnuFileSavemnuFileSave文件文件S SCtrlCtrlS SmnuFileBarmnuFileBar文件文件无无无无退出退出mnuFileQuitmnuFileQuit文件文件Q QCtrlCtrlQ Q编辑编辑mnuEditmnuEdit无无E E无无剪切剪切mnuEditCutmnuEditCut编
9、辑编辑无无CtrlCtrlX X复制复制mnuEditCopymnuEditCopy编辑编辑无无CtrlCtrlC C粘贴粘贴mnuEditPastemnuEditPaste编辑编辑无无CtrlCtrlV V字体字体mnuEditFontmnuEditFont编辑编辑无无CtrlCtrlF F黑体黑体Font1Font1字体字体无无无无宋体宋体Font2Font2字体字体无无无无楷体楷体Font3Font3字体字体无无无无下拉式菜单下拉式菜单v2 2编写代码编写代码 菜单设置好后，需要给每个需要完成某些功能的菜菜单设置好后，需要给每个需要完成某些功能的菜单项编写对应的代码。给例单项编写对应的代
10、码。给例12-112-1的窗体内添加一个文的窗体内添加一个文本框本框Text1Text1，Text1Text1的属性如表的属性如表12-212-2所示。所示。对象名对象名属性属性属性值属性值TextTextNameNameText1Text1TextText清空清空MultiLineMultiLineTrueTrueScrollBarScrollBar3-both3-both下拉式菜单下拉式菜单v 单击单击“编辑编辑”菜单下的菜单下的“字体字体”子菜单，选择子菜单，选择“黑体黑体”，弹出对应的，弹出对应的“单击单击”事件代码编辑窗口，下面为事件代码编辑窗口，下面为“黑体黑体”子菜单编写代码如下
11、：子菜单编写代码如下：Private Sub Font1_Click()Private Sub Font1_Click()Text1.Font=Text1.Font=黑体黑体 End SubEnd Subv 此处黑体菜单的名称即为在设计时输入的名称此处黑体菜单的名称即为在设计时输入的名称“Font1”Font1”。v 按照上述步骤依次选择按照上述步骤依次选择“宋体宋体”、“楷体楷体”子菜单，完成相应的代码子菜单，完成相应的代码编写。具体代码如下：编写。具体代码如下：Private Sub Font2_Click()Private Sub Font2_Click()Text1.Font=Text
12、1.Font=宋体宋体 End SubEnd SubPrivate Sub Font3_Click()Private Sub Font3_Click()Text1.Font=Text1.Font=楷体楷体_Gb2312_Gb2312End SubEnd Sub下拉式菜单v运行时可通过字体菜单修改文本中输入文字的字体。运行时可通过字体菜单修改文本中输入文字的字体。运行的各种结果如图运行的各种结果如图12-512-5所示。所示。下拉式菜单下拉式菜单v例例12.212.2设计一个具有加、减、乘、除、清除和退出功设计一个具有加、减、乘、除、清除和退出功能的程序。能的程序。思路：在第思路：在第4 4章中
13、曾利用单选按钮完成过该例部分章中曾利用单选按钮完成过该例部分功能，此处利用菜单来完成全部功能。该例的设计界功能，此处利用菜单来完成全部功能。该例的设计界面如图面如图12-6 12-6 所示：所示：下拉式菜单下拉式菜单v属性设置属性设置标题标题名称名称上级菜单上级菜单快捷键快捷键计算计算1 1js1js1无无无无加加addadd计算计算1 1CtrlCtrlA A减减SubSub计算计算1 1CtrlCtrlB B计算计算2 2Js2Js2无无无无乘乘MulMul计算计算2 2CtrlCtrlC C除除DivDiv计算计算2 2CtrlCtrlD D其他其他OtherOther无无无无清除清除C
14、learClear其他其他CtrlCtrlE E退出退出ExitExit其他其他CtrlCtrlF F下拉式菜单下拉式菜单下拉式菜单下拉式菜单v 在用户界面设计状态单击某一菜单项，编辑窗口出现该菜在用户界面设计状态单击某一菜单项，编辑窗口出现该菜单单ClickClick事件过程的代码，可在其中输入要执行的代码。事件过程的代码，可在其中输入要执行的代码。各菜单项对应的代码如下：各菜单项对应的代码如下：Private Sub add_Click()Private Sub add_Click()加法加法x=Val(Text1.Text)+Val(Text2.Text)x=Val(Text1.Text
15、)+Val(Text2.Text)Text3.Text=Str(x)Text3.Text=Str(x)End SubEnd SubPrivate Sub clear_Click()Private Sub clear_Click()清除清除Text1=:Text2=:Text3=Text1=:Text2=:Text3=Text1.SetFocusText1.SetFocusEnd SubEnd Sub下拉式菜单下拉式菜单Private Sub div_Click()Private Sub div_Click()除法除法If Val(Text2.Text)0 Then If Val(Text2.T
16、ext)0 Then 除数是否为除数是否为0 0的判断的判断x=Val(Text1.Text)/Val(Text2.Text)x=Val(Text1.Text)/Val(Text2.Text)Text3.Text=Str(x)Text3.Text=Str(x)ElseElse MsgBox MsgBox 除数不能为除数不能为0 0！请重新输入！请重新输入！Text2.Text=Text2.Text=Text2.SetFocusText2.SetFocusEnd IfEnd IfEnd SubEnd Sub下拉式菜单下拉式菜单Private Sub exit_Click()Private Sub
17、 exit_Click()退出退出EndEndEnd SubEnd SubPrivate Sub mul_Click()Private Sub mul_Click()乘法乘法x=Val(Text1.Text)x=Val(Text1.Text)*Val(Text2.Text)Val(Text2.Text)Text3.Text=Str(x)Text3.Text=Str(x)End SubEnd SubPrivate Sub sub_Click()Private Sub sub_Click()减法减法x=Val(Text1.Text)-Val(Text2.Text)x=Val(Text1.Text)
18、-Val(Text2.Text)Text3.Text=Str(x)Text3.Text=Str(x)弹出式菜单设计v右击窗体时弹出的菜单为弹出式菜单，一般集合了很右击窗体时弹出的菜单为弹出式菜单，一般集合了很多常用的操作。弹出式菜单没有主菜单名，只有在使多常用的操作。弹出式菜单没有主菜单名，只有在使用时才会在窗体上浮动显示。例如在用时才会在窗体上浮动显示。例如在VBVB的设计窗体中的设计窗体中单击右键，弹出的菜单如图单击右键，弹出的菜单如图12-812-8所示。所示。v弹出式菜单设计依然要使用菜单编辑器，只需在设计弹出式菜单设计依然要使用菜单编辑器，只需在设计时将菜单的可见属性设置为时将菜单的
19、可见属性设置为FalseFalse即可。即可。弹出式菜单设计弹出式菜单设计v例例12.312.3在例在例12-112-1的基础上增加一个快捷编辑菜单，包的基础上增加一个快捷编辑菜单，包含含“剪切剪切”、“复制复制”和和“粘贴粘贴”功能，右击窗体时功能，右击窗体时弹出该快捷菜单。弹出该快捷菜单。v操作步骤：操作步骤：1 1在菜单编辑器里新增一个菜单，保证该菜单为在菜单编辑器里新增一个菜单，保证该菜单为顶层菜单项，即无缩进符号。标题设定为顶层菜单项，即无缩进符号。标题设定为“Edit”Edit”，该标题和名称可任意设定，因为它在，该标题和名称可任意设定，因为它在快捷菜单弹出时不显示。快捷菜单弹出时
20、不显示。2 2将将“Edit”Edit”菜单的可见属性设置为菜单的可见属性设置为FalseFalse。3 3单击单击“下一个下一个”命令按钮，标题文本框中输入命令按钮，标题文本框中输入“剪切剪切”，编辑对应的名称，单击按钮，将，编辑对应的名称，单击按钮，将“剪剪切切”菜单设置为菜单设置为“Edit”Edit”菜单的下一级菜单。菜单的下一级菜单。弹出式菜单设计弹出式菜单设计 4 4参照步骤参照步骤3 3完成完成“复制复制”和和“粘贴粘贴”菜单的设菜单的设置。置。5 5在在VBVB中，需要使用中，需要使用PopupMenuPopupMenu方法来显示弹出方法来显示弹出式菜单。其语法格式如下：式菜单
21、。其语法格式如下：对象对象.PopupMenu .PopupMenu 菜单名菜单名,标志标志,X,Y,X,Y 其中对象为可选项，默认为其中对象为可选项，默认为FormForm对象；菜单名是对象；菜单名是必须的，被指定的菜单必须至少包含一个子菜单；必须的，被指定的菜单必须至少包含一个子菜单；标志参数及标志参数及X X、Y Y的值的作用是详细定义弹出式菜的值的作用是详细定义弹出式菜单的弹出位置，当标志等于单的弹出位置，当标志等于0 0时，为系统的默认状时，为系统的默认状态，态，X X放映的是弹出菜单的左边界，当标志等于放映的是弹出菜单的左边界，当标志等于4 4时，时，X X放映的是弹出菜单的中心位
22、置，当标志等于放映的是弹出菜单的中心位置，当标志等于8 8时，时，X X放映的是弹出菜单的右边界。放映的是弹出菜单的右边界。弹出式菜单设计弹出式菜单设计v因此需要在窗体的因此需要在窗体的MouseUpMouseUp事件里编写对应的代码。事件里编写对应的代码。注意只有在窗体上单击鼠标右键时才会弹出快捷菜单。注意只有在窗体上单击鼠标右键时才会弹出快捷菜单。具体代码如下：具体代码如下：Private Sub Form_MouseUp(Button As Integer,Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As S
23、ingle,Y As Single)Shift As Integer,X As Single,Y As Single)If Button=2 Then If Button=2 Then 若单击鼠标右键若单击鼠标右键 PopupMenu Edit PopupMenu Edit 弹出弹出editedit快捷菜单快捷菜单End IfEnd IfEnd SubEnd Sub通用对话框通用对话框vVB6.0VB6.0为用户提供了一组基于为用户提供了一组基于WindowsWindows标准的对话框，标准的对话框，称为通用对话框，即称为通用对话框，即CommonDialogCommonDialog。包括。包
24、括“打开打开”对对话框、话框、“另存为另存为”对话框、对话框、“颜色颜色”对话框、对话框、“字体字体”对话框、对话框、“打印打印”对话框以及对话框以及“帮助帮助”对话框。对话框。v通用对话框不是标准控件，使用时必须先将该控件添通用对话框不是标准控件，使用时必须先将该控件添加到工具箱里。将加到工具箱里。将CommonDialogCommonDialog添加到工具箱里的步添加到工具箱里的步骤如下：骤如下：1 1选择选择“工程工程”下拉菜单中的下拉菜单中的“部件部件”子菜单，子菜单，弹出弹出“部件部件”对话框。对话框。2 2在在“部件部件”对话框列表中选择对话框列表中选择“Microsoft Mic
25、rosoft Common Dialog Control6.0”Common Dialog Control6.0”项目，确保其前方项目，确保其前方的复选框内出现的复选框内出现“”“”。3 3单击确定按钮。添加完成后工具箱里出现单击确定按钮。添加完成后工具箱里出现CommonDialogCommonDialog的图标。具体操作如图的图标。具体操作如图12-10 12-10 所示。所示。通用对话框通用对话框v通用对话框常用的属性有名称属性和通用对话框常用的属性有名称属性和ActionAction属性等。属性等。系统默认的通用对话框名称为系统默认的通用对话框名称为CommonDialog1Commo
26、nDialog1、CommonDialog2CommonDialog2。ActionAction属性决定程序打开什么属性决定程序打开什么类型的对话框。具体类型的对话框。具体ActionAction属性、含义及对应的方法。属性、含义及对应的方法。Action属性含义对应方法0无对话框显示1“打开”对话框ShowOpen2“另存为”对话框ShowSave3“颜色”对话框ShowColor4“字体”对话框ShowFont通用对话框通用对话框v把把CommonDialogCommonDialog控件添加到窗体后，就意味着上述各控件添加到窗体后，就意味着上述各种标准对话框可以被使用了。当某一时刻需要用到
27、某种标准对话框可以被使用了。当某一时刻需要用到某个对话框时，必须通过设置个对话框时，必须通过设置ActionAction属性或属性或VB6.0VB6.0的方的方法才能使之显示在屏幕上。法才能使之显示在屏幕上。v例如要显示例如要显示“打开打开”对话框，在程序中利用设置对话框，在程序中利用设置ActionAction属性则对应语句如下：属性则对应语句如下：vCommonDialog1.Action=1CommonDialog1.Action=1v也可在程序中用控件的方法完成对话框的显示。也可在程序中用控件的方法完成对话框的显示。vCommonDialog1.ShowSaveCommonDialog
28、1.ShowSave通用对话框v 1 1文件对话框文件对话框 文件对话框包括文件对话框包括“打开打开”和和“另存为另存为”对话框。使用对话框。使用“打打开开”、“另存为另存为”对话框可以设置文件对话框的属性。文件对话框可以设置文件对话框的属性。文件对话框属性页中的属性和含义如表对话框属性页中的属性和含义如表12-512-5所示。所示。属性标题属性标题属性名称属性名称含义含义对话框标题对话框标题DialogTitleDialogTitle设置对话框的标题，默认值为设置对话框的标题，默认值为“打开打开”或或“另存为另存为”文件名称文件名称FileNameFileName设置对话框中设置对话框中“文
29、件名称文件名称”的默认值，并返回用户所选中的默认值，并返回用户所选中的文件名（包括完整的路径名）的文件名（包括完整的路径名）初始化路径初始化路径InitDirInitDir设置初始化的文件目录，并返回用户所选择的目录，默认设置初始化的文件目录，并返回用户所选择的目录，默认为当前目录为当前目录过滤器过滤器FilterFilter设置显示文件的类型。格式为：描述设置显示文件的类型。格式为：描述|通配符通配符|过滤器索引过滤器索引FilterIndexFilterIndex设置文件对话框中默认过滤器的索引设置文件对话框中默认过滤器的索引标志标志FlagsFlags设置对话框的一些选项，可以是多个值的
30、组合。如设置对话框的一些选项，可以是多个值的组合。如1 1，显，显示只读复选框示只读复选框默认扩展名默认扩展名DefaultExtDefaultExt为对话框返回或设置默认的文件扩展名为对话框返回或设置默认的文件扩展名文件最大长度文件最大长度MaxFileSizeMaxFileSize设置被打开文件的最大长度，取值范围设置被打开文件的最大长度，取值范围1 12k2k，默认为，默认为260260例如：例如：CommonDialog1.Fileter=”All Files(CommonDialog1.Fileter=”All Files(*.*)|)|*.*|位图位图(*.bmp)|.bmp)|*
31、.bmp|”.bmp|”设置对话框的过滤器设置对话框的过滤器CommonDialog2.DialogTitle=”CommonDialog2.DialogTitle=”选择文件选择文件”设置对话框的标题设置对话框的标题通用对话框通用对话框v例例12.4 12.4 将例将例12-1 12-1 里里“新建新建”和和“打开打开”菜单功能补菜单功能补充完整。充完整。注意：注意：先将通用对话框添加到工具箱里，再将先将通用对话框添加到工具箱里，再将CommonDialogCommonDialog控件添加到窗体上。在窗体上单击各菜控件添加到窗体上。在窗体上单击各菜单项，完成下述代码单项，完成下述代码 ：Pr
32、ivate Sub mnuFileNew_Click()Private Sub mnuFileNew_Click()新建菜单新建菜单CommonDialog1.ShowSaveCommonDialog1.ShowSaveText1.Text=Text1.Text=Form1.Caption=Form1.Caption=新建文件新建文件 End SubEnd Sub通用对话框通用对话框Private Sub mnuFileOpen_Click()Private Sub mnuFileOpen_Click()打开菜单打开菜单Dim Filename As String,m As StringDim
33、 Filename As String,m As StringFilename=Filename=CommonDialog1.ShowOpenCommonDialog1.ShowOpenCommonDialog1.Filter=Text(CommonDialog1.Filter=Text(*.txt)|.txt)|*.txt .txt Filename=CommonDialog1.FilenameFilename=CommonDialog1.FilenameIf Filename=ThenIf Filename=Then MsgBox no file open,vbExclamation+vb
34、OKOnly,SystemMsgBox no file open,vbExclamation+vbOKOnly,SystemElseElse MsgBox you open+Filename+!,vbInformation,SystemMsgBox you open+Filename+!,vbInformation,SystemEnd IfEnd IfOpen CommonDialog1.Filename For Input As#1 Open CommonDialog1.Filename For Input As#1 将文件打开将文件打开Input#1,m Input#1,m 将文件内容读入
35、到文本框里将文件内容读入到文本框里Text1.Text=mText1.Text=mClose#1Close#1End SubEnd Sub通用对话框通用对话框Private Sub mnuFileSave_Click()Private Sub mnuFileSave_Click()保存菜单保存菜单CommonDialog1.Action=2CommonDialog1.Action=2Open CommonDialog1.Filename For Output As#1 Open CommonDialog1.Filename For Output As#1 Print#1,Text1.Text
36、Print#1,Text1.Text Close#1Close#1End SubEnd Sub通用对话框通用对话框v 某次单击某次单击“新建新建”菜单时弹出的对话框和菜单时弹出的对话框和WindowsWindows默认风默认风格一致。格一致。其他对话框其他对话框 v 1 1颜色对话框颜色对话框 使用使用“颜色颜色”对话框可设置颜色属性，对应的对话框可设置颜色属性，对应的WindowsWindows颜色对话框如图颜色对话框如图12-12 12-12 所示。其属性和含义如表所示。其属性和含义如表12-6 12-6 所所示。示。属性属性标题标题属性属性名称名称含义含义颜色颜色ColorColor设置
37、初始颜色，并返回用户设置初始颜色，并返回用户选择的颜色选择的颜色标志标志FlagsFlags设置对话框的一些选项，可设置对话框的一些选项，可以是多个值的组合。例如以是多个值的组合。例如1 1表示首次打开颜色对话框。表示首次打开颜色对话框。其他对话框其他对话框v例如：例如：Commondialog1.ShowcolorCommondialog1.ShowcolorForm1.BackColor=CommonDialog1.ColorForm1.BackColor=CommonDialog1.Color 表示将用户在表示将用户在“颜色颜色”对话框中设置的颜色作为窗对话框中设置的颜色作为窗体背景色。
38、体背景色。其他对话框v2 2字体对话框字体对话框 使用使用“字体字体”对话框可设置字体属性。其属性和含对话框可设置字体属性。其属性和含义如表义如表12-7 12-7 所示。所示。属性标题属性标题属性名称属性名称含义含义字体名称字体名称FontNameFontName设置字体名称中的初始字体，并返回用户所选择的设置字体名称中的初始字体，并返回用户所选择的字体名称字体名称字体大小字体大小FontSizeFontSize设置初始字体大小，并返回用户选择的字体大小，设置初始字体大小，并返回用户选择的字体大小，默认为默认为8 8样式样式FontBoldFontBold设置字体风格，并可返回用户选中的字体
39、风格。设置字体风格，并可返回用户选中的字体风格。FontBoldFontBold返回在字体对话框中是否选中了粗体字返回在字体对话框中是否选中了粗体字样式样式FontItalicFontItalic返回在字体对话框中是否选中了斜体字返回在字体对话框中是否选中了斜体字样式样式FontUnderlinFontUnderline e返回在字体对话框中是否选中了下划线返回在字体对话框中是否选中了下划线样式样式FontStrikethFontStrikethruru返回在字体对话框中是否选中了删除线返回在字体对话框中是否选中了删除线其他对话框其他对话框v例如：例如：CommonDialog1.ShowFo
40、ntCommonDialog1.ShowFontText1.FontName=CommonDialog1.FilenameText1.FontName=CommonDialog1.Filename 表示将用户在表示将用户在“字体字体”对话框中设置的字体作为文对话框中设置的字体作为文本框的字体。本框的字体。其他对话框其他对话框v例例12.5 12.5 利用颜色对话框和字体对话框设置文本框中利用颜色对话框和字体对话框设置文本框中文字的颜色和字体。文字的颜色和字体。在窗体上放置一个文本框，两个命令按钮和一个在窗体上放置一个文本框，两个命令按钮和一个通用对话框，控件属性如表。通用对话框，控件属性如表。
41、其他对话框其他对话框对象名对象名属性属性属性值属性值CommandCommandButtonButtonNameNameCommand1Command1CaptionCaption文字颜色文字颜色CommandCommandButtonButtonNameNameCommand2Command2CaptionCaption字体设置字体设置TextTextNameNameText1Text1MultilineMultilineTrueTrueTextText但愿人长久但愿人长久(Ctrl+(Ctrl+回车回车)千里共婵娟千里共婵娟FontFont宋体粗体三号宋体粗体三号CommonDialogC
42、ommonDialogNameNameCommonDialog1CommonDialog1其他对话框其他对话框Private Sub Command1_Click()Private Sub Command1_Click()CommonDialog1.ShowColor CommonDialog1.ShowColor 显示颜色对话框显示颜色对话框Text1.ForeColor=CommonDialog1.Color Text1.ForeColor=CommonDialog1.Color 颜色设置颜色设置End SubEnd SubPrivate Sub Command2_Click()Priva
43、te Sub Command2_Click()CommonDialog1.ShowFont CommonDialog1.ShowFont 显示字体对话框。显示字体对话框。Text1.FontName=CommonDialog1.FileName Text1.FontName=CommonDialog1.FileName 设置字体设置字体Text1.FontSize=CommonDialog1.FontSize Text1.FontSize=CommonDialog1.FontSize 设置字体大小设置字体大小Text1.FontBold=CommonDialog1.FontBold Text1
44、.FontBold=CommonDialog1.FontBold 设置是否粗体设置是否粗体Text1.FontItalic=CommonDialog1.FontItalic Text1.FontItalic=CommonDialog1.FontItalic 是否斜体是否斜体Text1.FontUnderline=CommonDialog1.FontUnderline Text1.FontUnderline=CommonDialog1.FontUnderline 是否有下划是否有下划线线End SubEnd Sub其他对话框v3 3打印对话框打印对话框 使用使用“打印打印”对话框可设置打印属性。对话框可设置打印属性。属性标题属性标题属性名称属性名称含义含义复制复制CopiesCopies设置打印的份数设置打印的份数最小最小MinMin设置打印的最小页数设置打印的最小页数最大最大MaxMax设置打印的最大页数设置打印的最大页数起始页起始页/终止页终止页FromPage/ToPageFromPage/ToPage设置要打印的起始设置要打印的起始/终止页终止页
