VB程序设计第九章菜单课件

VisualBasic程序设计教程9.1菜单

菜单的种类：下拉式菜单、弹出式菜单

9.1下拉式菜单

1、下拉式菜单结构

结构：

主菜单栏、子菜单栏；子菜单又分为：菜单命令或选项、子菜单标题和分隔条；菜单命令或选项：可以直接执行；子菜单标题：可以再拉出一级菜单；分隔条：用于对于子菜单项进行分组；

2、设计下拉式菜单

进入菜单编辑器：⑴执行”工具“菜单的”菜单编辑器“按钮；⑵直接执行热键（快捷键）Ctrl+E；⑶单击”工具栏“上的”菜单编辑器”；⑷在要建立菜单的窗体上单击鼠标右键，打开快捷菜单，执行“菜单编辑器”；9.1菜单

9.1下拉式菜单

“菜单编辑器”属性区：

属性名属性值说明标题(Caption)字符型数据指定菜单项或菜单命令显示的字符串名称(Name)字符型数据指定菜单控件的名称索引整型数据指定一个数字来确定菜单项或菜单命令在菜单控件数组中的序号，该序号与各菜单控件的位置无关快捷键字符型数据指定菜单命令的快捷键复选逻辑型数据指定是否允许在菜单项的左边设置复选标记有效逻辑型数据指定该菜单项是否可操作可见逻辑型数据设置是否将该菜单项显示在菜单上显示窗口列表逻辑型数据在多重文档（MDI)程序中指定该控件是否包含一个打开MDI子窗体列表9.1菜单

9.1下拉式菜单

“菜单编辑器”编辑区：

“→”：每单击一次该按钮，产生”….”,称为内缩号，用来确定菜单项的层次，每单击一次，菜单项下移一个等级；“←”：把选定的菜单上移一个等级；“↑“：把选定的菜单在同级菜单内向上（前）移动一个位置；“↓”：把选定的菜单在同级菜单内向下（后）移动一个位置；“下一个”：开始一个新的菜单项（命令）；“插入”：在当前的菜单项前插入一个新的菜单项；“删除”：删除当前的菜单项‘“菜单编辑器显示区”：该区域显示了所创建的菜单，并通过“….”指明了它们的层次。9.1菜单

9.1下拉式菜单

例[9-1]利用菜单命令，控制标签的显示和隐藏PrivateSubm_11_Click()Label1.Visible=TrueEndSubPrivateSubm_menu1_Click()Label1.Visible=FalseEndSub9.1菜单

9.1下拉式菜单

例[9-2]设计一个应用程序，通过菜单完成两个整数的加减运算。PrivateSubadd_Click()Label1.Caption="+"Label3.Caption=Val(Text1.Text)+Val(Text2.Text)EndSubPrivateSubsub_Click()Label1.Caption="-"Label3.Caption=Val(Text1.Text)+Val(Text2.Text)EndSub9.1菜单

9.1.1下拉式菜单

动态菜单的设计

例[9-3]才菜单中动态添加“乘法”和“除法”操作。

解题思路：当单击窗体时，调用load方法，利用控件数组appendcal为菜单增加两个子菜单；当双击窗体时，调用unload方法将新增的两个子菜单删除。

Appendcal_click事件是新增的两个菜单的共用事件，当作乘法操作时，参数index的值为1，作除法时为2。

9.1菜单

9.1.2弹出式菜单

弹出式菜单独立于菜单栏，直接显示在窗体上；弹出式菜单通常是单击鼠标右键打开，又称为”右键菜单“或”快捷菜单“；

创建方法：

在”菜单编辑器“中，对最高一级菜单的”可见“属性设置为”False“，然后调用PopupMenu方法将其作为快捷菜单显示出来，格式：

[对象名].PopMenu菜单名，[flags]，[X]，[Y]，[DefaultMenu]

其中：

对象名：可选项，默认为当前窗体；菜单名：必选项，要显示的弹出式菜单名，是在菜单编辑器中定义的主菜单标题，该主菜单标题至少含有一个子菜单；

flags：可选项，是一个数值或符号常量，用于指定弹出式菜单的位置和行为；9.1菜单值位置常量说明0vbPopMenuLeftAlign缺省值，弹出式菜单的左上角位于坐标(x,y)处4vbPopMenuCenterAlign弹出式菜单的上边框的中央位于坐标(x,y)处8vbPopMenuCenterRight弹出式菜单的右上角位于坐标(x,y)处

9.1.2弹出式菜单

Flags取值表：值位置常量说明0vbPopMenuLeftButton缺省值，弹出式菜单中的命令只接受鼠标左键单击2vbPopMenuRightButton缺省值，弹出式菜单中的命令只接受鼠标右键单击指定菜单行为：若要同时指定菜单位置和行为，则将两个参数值用or连接：0or29.2对话框

VB系统提供的对话框：

预定义对话框：即由InputBox或MsgBox函数创建的对话框；通用对话框：用CommonDialog控件创建，如“打开对话框”、“字体”对话框等；

用户自定义对话框：用户根据自己的需要在窗体上添加各种控件来构成自己需要的对话框；

9.2.1通用对话框

VB系统提供的基于Windows的通用对话框：●“打开”对话框（Open）●“另存为”对话框（Save）●“颜色”对话框（Color）●“字体”对话框（Font）●“打印机”对话框（Printer）●“帮助”对话框（Help）9.2对话框9.2.1通用对话框

1、添加通用对话框控件

方法：系统菜单“工程”－>“部件”，选择“MicrosoftCommonDialog

Control6.0”

通用对话框控件注：通用对话框在程序运行后不可见，故在设计时可将其放置在窗体的任何地方9.2对话框9.2.1通用对话框

2、通用对话框的属性

在窗体上添加通用对话框后，可在属性窗口中单击“自定义”的按钮或者用鼠标右键单击对话框控件，打开“属性”选项。

3、通用对话框的使用

通过设置不同的Action属性值（只能在程序中设置）或调用不同的方法来决定对话框的类型显示的对话框方法Action属性值“打开”对话框ShowOpen1“另存为”对话框ShowSave2“颜色”对话框ShowColor3“字体”对话框ShowFont4“打印机”对话框ShowPrinter5“帮助”对话框ShowHelp69.2对话框9.2.1通用对话框

“打开”对话框属性值：①“对话框标题”－DialogTitle用途：用于设置对话框的标题；

②

“文件名称”－

用途：用于设置打开对话框显示的初始文件名。若在对话框中选择了一个文件并单击“打开”或“保存”按钮，则选择的文件（包含路径）即为属性的值；③“初始化路径”－InitDir

用途：用于指定打开对话框的初始路径，若没有指定该属性，则使用当前路径；

9.2对话框9.2.1通用对话框

“打开”对话框属性值：

④“过滤器”－Filter

用途：用于指定在对话框的文件类型列表框中所要显示的文件类型。如：选择过滤器为*.txt，，表示显示所有的文本文件。通常给每个过滤器一个描述，使用管道符号”|”将过滤器描述和过滤器隔开；如：下列代码用于设置一个过滤器，其允许打开“文本文件

(*.txt)、或含有位图和JPG图形的文件(*.bmp;*.jpg):

文本文件(*.txt)|

*.txt|图形文件(*.bmp;*.jpg)|*.bmp;*.jpg

描述过滤器描述过滤器⑤“过滤器索引”－FilterIndex

用途：当为对话框指定了一个以上的过滤器时，用于确定哪个过滤器作为缺省过滤器。第一个过滤器索引值为1，第二个为2，依此类推。9.2对话框9.2.1通用对话框

“打开”对话框属性值：⑥“标志”－Flags

用途：用于确定对话框的一些特性，如是否允许同时选择多个文件等。

⑦”缺省扩展名“－DefaultExt

用途：当对话框用于保存文件时，如果文件没有指定扩展名，则使用该属性指定的缺省扩展名，如：*.txt，*.doc等⑧“文件最大长度”－Max

用途：用于指定文件的最大长度，单位为字节；⑨”取消引发错误“－CancelError

用途：用于确定运行时在对话框中按”取消“时是否出错。选择该项，相当于CancelError设为true，按”取消“出错，否则，不出错。9.2对话框9.2.1通用对话框

例【9-7】设计一个程序，用它打开一个文本进行编辑。程序运行后，单击”编辑文本文件“命令按钮，将显示打开对话框，其中列举了c:\windows目录中的所有的文本文件*.txt，双击其中一个，程序调用Windows的记事本打开这个文件。

解题思路：首先在窗体上画一个命令按钮及一个通用对话框控件，可采用action=1或showopen方法调用对话框；其次，对话框的属性可在其属性窗口中配置，也可以在程序运行后，使用命令配置对话框属性，本题采用后者方法。另，在VB系统中调用记事本，可使用shell函数，格式如下

shell(program,doc_type),其中，program为调用的windows的可执行程序名称，包括路径；

doc_type为打开文件的方式，一般值为19.2对话框9.2.1通用对话框2、”另存为“对话框

调用方法：在程序运行后，Action＝2或调用ShowSave方法；

属性：与”打开“对话框基本一致；”另存为“对话框可以指定文件要保存的路径、文件名和文件类型；

例[9-8]编写一个程序，用”另存为“对话框将一个文本框的内容写入一个文本文件里。

解题思路：首先在窗体上画一个文本框、命令按钮和通用对话框控件；其中对话框的属性可在其属性窗口中配置，也可在程序中用命令配置；

'配置对话框属性

cd1.Filter="文本文件|*.txt|所有文件|*.*"'对话框的过滤器

cd1.="*.txt"'对话框的文件名

cd1.DefaultExt="txt"'对话框的默认文件扩展名

cd1.Action=1'调用另存为对话框

'将文本框内的内容写入文本文件

Opencd1.ForOutputAs#1Print#1,Text1.TextClose#19.2对话框9.2.1通用对话框3、”颜色“对话框

调用方法：在程序运行后，Action＝3或调用ShowColor方法；

属性：除对话框的基本属性外还有”color“与“flags”两个属性值；常数值描述cdlCCFullOpen&H2显示全部对话框，包括定义和自定义颜色部分cdlCCShowHelpButton&H8使对话框显示帮助按钮cdlCCPreventFullOpen&H4使定义自定义颜色命令按钮无效并防止定义自定义颜色cdlCCRGBInit&H1为对话框设置初始颜色9.2对话框9.2.1通用对话框

4、”字体“对话框

调用方法：Action＝4

或者调用showfont方法；

属性值：

属性名属性值说明FlagscdlCFEffects(&H100)在字体对话框中显示删除线和下划线复选框以及颜色组合框该属性必须在激活字体对话框之前进行设置cdlFSscreenFonts(&H1)显示屏幕字体cdlFPrintFonts(&H2)显示打印机字体cdlCFBoth(&H3)显示打印机字体和屏幕字体FontName字符型数据用户所选的字体名称FontSize整型数据用户所选的字体大小FontBold逻辑性数据用户所选的字体是否加粗FontItalic逻辑性数据用户所选的字体是否斜体FontUnderLine逻辑性数据用户所选的字体是否加下划线FontStrikethra逻辑性数据用户所选的字体是否加删除线9.2对话框9.2.1通用对话框

4、”字体“对话框

例[9-10]编写一个程序，用“字体”对话框设置一个文本框的字体。

解题思路：在程序中，首先要设置对话框的flags属性，然后设置文本框的字体属性，如：fontname、fontsize等相应属性，如：

text1.fontname=commondialog1.fontname等；

cd1.Flags=cdlCFBothOrcdlCFEffectscd1.ShowFont'根据用户在字体对话框中的选择来设置文本框字体

Text1.FontName=cd1.FontNameText1.FontBold=cd1.FontBoldText1.FontSize=cd1.FontSizeText1.FontItalic=cd1.FontItalicText1.FontStrikethru=cd1.FontStrikethruText1.FontUnderline=cd1.FontUnderlineText1.ForeColor=cd1.Color9.2对话框9.2.2自定义对话框

所谓“自定义对话框”就是用户自己设计的一个窗口，窗口上放置一些用于交互信息的控件。

一般自定义对话框的属性设置：属