第14章菜单和工具栏.ppt

《第14章菜单和工具栏.ppt》由会员分享，可在线阅读，更多相关《第14章菜单和工具栏.ppt（34页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第第14章章 菜单和工具栏菜单和工具栏菜菜单单Menu：可可以以提提供供一一种种方方便便的的给给命命令令分分组组的的方方法法，同同时时也也让让用用户户更更容容易易地执行这些命令。地执行这些命令。工工具具栏栏控控件件ToolBar：而而对对于于最最常常用用的的菜菜单单命命令令采采用用工工具具栏栏图图形形按按钮钮的的方方式式来访问，显然更为快捷易用来访问，显然更为快捷易用菜单菜单菜单栏位于窗口标题下方菜单栏位于窗口标题下方一个菜单栏中可以显示多个菜单标题一个菜单栏中可以显示多个菜单标题一一个个菜菜单单标标题题可可以以对对应应一一个个菜菜单单命命令令，或或者者可可以以展展开开显显示示含含多多个个菜菜

2、单单项项的的菜菜单单每每个个菜菜单单项项可可以以是是一一个个菜菜单单命命令令，或或包含下一级的子菜单包含下一级的子菜单每个菜单最多可以包含五级子菜单。每个菜单最多可以包含五级子菜单。菜单控件（菜单控件（Menu）菜单控件（菜单控件（Menu控件）可以显示应用控件）可以显示应用程序的自定义菜单。程序的自定义菜单。Menu控件与其它标准控件有所不同：控件与其它标准控件有所不同：首先在工具箱中找不到首先在工具箱中找不到Menu控件控件其次菜单具有其它控件所不具有的特性，其次菜单具有其它控件所不具有的特性，菜单是有固定的位置、外观和层次结构，菜单是有固定的位置、外观和层次结构，使用手工在窗体上不易绘制

3、。使用手工在窗体上不易绘制。VB专门提供了菜单编辑器工具，利用该专门提供了菜单编辑器工具，利用该工具就可以轻松地创建菜单工具就可以轻松地创建菜单使用菜单编辑器设计菜单栏使用菜单编辑器设计菜单栏在在VB中执行菜单命令中执行菜单命令“工具工具|菜单编辑器菜单编辑器”显示的文字显示的文字控件名称控件名称控件数组的控件数组的索引值索引值使用菜单编辑器设计菜单栏使用菜单编辑器设计菜单栏选择要添加菜单栏的窗体选择要添加菜单栏的窗体进入进入“菜单编辑器菜单编辑器”“标题标题”中输入显示文本，即中输入显示文本，即Caption属性属性“名称名称”中输入菜单项的名称，中输入菜单项的名称，即即Name属性属性左右

4、箭头左右箭头决定菜单项的缩进级，从而表示菜单决定菜单项的缩进级，从而表示菜单项是菜单标题还是子菜单项项是菜单标题还是子菜单项点点【下一个】【下一个】按钮按钮重复，直到结束按下重复，直到结束按下【确定【确定】按钮按钮，关闭，关闭“菜单编辑器菜单编辑器”分级子菜单分级子菜单创建菜单分隔条创建菜单分隔条点点“插入插入”按钮按钮，在选定的菜单项前插入，在选定的菜单项前插入一个菜单控件一个菜单控件“标题标题”中输入字符中输入字符“-”设置设置“名称名称”属性属性点点“确定确定”按钮按钮分隔条本分隔条本身也是一身也是一个菜单项个菜单项定义菜单项的访问键和快捷键定义菜单项的访问键和快捷键访问键：在访问键：在

5、“标题标题”中加入中加入&字母字母快捷键：在快捷键：在“快捷键快捷键”组合框中选择组合框中选择 区别：区别：访问键只能迅速将光标定位访问键只能迅速将光标定位 快捷键能直接触发事件快捷键能直接触发事件菜单控件的属性和事件菜单控件的属性和事件Caption属性属性 菜单标题文本菜单标题文本Enabled属性属性 可响应标记可响应标记Visible属性属性可见标记可见标记Checked属性属性 选中标记选中标记ShortCut属性属性快捷键快捷键Click事件事件选中菜单项选中菜单项响应菜单事件响应菜单事件菜单控件只包含一个事件，即菜单控件只包含一个事件，即Click事件，当用鼠标或键盘选中事件，当

6、用鼠标或键盘选中该菜单控件时，将触发该事件。该菜单控件时，将触发该事件。编写编写Click事件过程。比如：事件过程。比如：SubmnuFileExit_Click()UnloadMeEndSub使用复选标记使用复选标记设计时加上复选标志设计时加上复选标志Checked属性为属性为TRUE，则加则加“”标记标记Checked属性为属性为FALSE，则无标记则无标记菜单示例菜单示例【例】【例】设计设计文本框，利用菜文本框，利用菜单单命令改命令改变变文本框文本框字体效果（粗体、斜体和下划字体效果（粗体、斜体和下划线线），并），并实现实现文本的剪切、复制和粘文本的剪切、复制和粘贴贴，要求控制剪切、，要

7、求控制剪切、复制和粘复制和粘贴贴菜菜单单的可用性，以保的可用性，以保证证符合操作符合操作逻辑逻辑，如【粘，如【粘贴贴】菜】菜单项单项在剪切板在剪切板为为空空时应时应无效。无效。菜单示例菜单示例使用复选标记使用复选标记文本框字体效果可以通过设置文本框的文本框字体效果可以通过设置文本框的FontBold、FontItalic和和FontUnderline属性来实现，属性来实现，每次按下后这些属性应该与原值相反每次按下后这些属性应该与原值相反，同时也要将，同时也要将菜单控件的菜单控件的Checked属性变反属性变反，使菜单选择标志与，使菜单选择标志与字体相吻合。字体相吻合。粗体菜单被按下粗体菜单被按

8、下PrivateSubmnuFontBold_Click()mnuFontBold.Checked=NotmnuFontBold.CheckedText1.FontBold=NotText1.FontBoldEndSub斜体菜单被按下斜体菜单被按下PrivateSubmnuFontItalic_Click()mnuFontItalic.Checked=NotmnuFontItalic.CheckedText1.FontItalic=NotText1.FontItalicEndSub菜单示例菜单示例设置菜单项的有效性设置菜单项的有效性对对于于剪剪切切和和复复制制菜菜单单来来说说，应应该该根根据据

9、文文本本框框中中是是否否有有文文本本被被选选择择来来决决定定菜菜单单是是否否生生效效，该该功功能能由由子子程程序序SetEnabledValue来来负负责责。在在按按下下编编辑辑菜菜单单时时决决定定子子菜单的有效性。菜单的有效性。按下编辑菜单按下编辑菜单PrivateSubmnuEdit_Click()设置剪切和复制菜单的有效性设置剪切和复制菜单的有效性IfText1.SelLength0Then判断是否有选择文本判断是否有选择文本mnuEditCut.Enabled=TruemnuEditCopy.Enabled=TrueElsemnuEditCut.Enabled=FalsemnuEdit

10、Copy.Enabled=FalseEndIfEndSub菜单示例菜单示例剪切菜单被按下剪切菜单被按下PrivateSubmnuEditCut_Click()Clipboard.SetTextText1.SelText文本框选中的文字送入剪切板文本框选中的文字送入剪切板Text1.SelText=删除文本框选中的文字删除文本框选中的文字mnuEditPaste.Enabled=True使粘贴菜单生效使粘贴菜单生效EndSub复制菜单被按下复制菜单被按下PrivateSubmnuEditCopy_Click()Clipboard.SetTextText1.SelText文本框选中的文字送入剪切板

11、文本框选中的文字送入剪切板mnuEditPaste.Enabled=True使粘贴菜单生效使粘贴菜单生效EndSub粘贴菜单被按下粘贴菜单被按下PrivateSubmnuEditPaste_Click()Text1.SelText=Clipboard.GetText剪切板拷贝到文本框当前插入点剪切板拷贝到文本框当前插入点EndSub提提示示：VB内内部部有有一一个个剪剪切切板板对对象象Clipboard，该该对对象象不不需需要要创创建建就就可可以以使使用用。该该对对象象没没有有属属性性，只只提提供供几几个个方方法法。比比如如SetText用用于于设设置置剪剪切切板板中中的的文本，而文本，而Ge

12、tText方法取出剪切板的。方法取出剪切板的。弹出式菜单弹出式菜单弹出式菜单是显示在窗体上的浮动菜单弹出式菜单是显示在窗体上的浮动菜单不不同同的的子子窗窗口口或或同同一一窗窗口口的的不不同同区区域域可可以以定定义义不不同同的弹出菜单，因此弹出式菜单也被称为上下文菜单。的弹出菜单，因此弹出式菜单也被称为上下文菜单。在在WindowsWindows中，可以单击鼠标右键来打开弹出菜单中，可以单击鼠标右键来打开弹出菜单1)创建弹出式菜单的第一步与创建普通菜单一样，在创建弹出式菜单的第一步与创建普通菜单一样，在“菜单编辑器菜单编辑器”中增加一个菜单标题，以及该菜单标题中增加一个菜单标题，以及该菜单标题的

13、所有下级菜单项的所有下级菜单项2)如果该菜单标题不希望显示在菜单栏里，可在设计时如果该菜单标题不希望显示在菜单栏里，可在设计时使该标题的菜单控件为不可见（使使该标题的菜单控件为不可见（使“菜单编辑器菜单编辑器”里里的的“可见可见”复选框没有被选上）复选框没有被选上）3)3)在程序中使用在程序中使用PopupMenu方法打开指定的菜单方法打开指定的菜单显示弹出式菜单显示弹出式菜单PopupMenu方法方法 PopupMenu menuname flags ,x,y,boldcommandflags参数参数用来描述弹出式菜单位置的用来描述弹出式菜单位置的flags取值取值vbPopupMenuLe

14、ftAlign,vbPopupMenuCenterAlign.用来描述弹出式菜单行为的用来描述弹出式菜单行为的flags取值取值vbPopupMenuLeftButton 识别左键识别左键vbPopupMenuRightButton识别左键和右键识别左键和右键Boldcommand指定弹出式菜单项中粗体显示的菜单名指定弹出式菜单项中粗体显示的菜单名弹出式菜单示例弹出式菜单示例【例例】为为上上例例增增加加弹弹出出式式菜菜单单，当当用用户户用用鼠鼠标标右右键键单击窗体时，显示字体效果菜单。单击窗体时，显示字体效果菜单。编编程程思思路路：可可在在MouseUp或或者者MouseDown事事件件中中来

15、来 检检 测测 何何 时时 单单 击击 了了 鼠鼠 标标 右右 键键，然然 后后 使使 用用PopupMenu弹出菜单，代码如下：弹出菜单，代码如下：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2Then检查是否单击了鼠标右键检查是否单击了鼠标右键PopupMenumnuFont把字体菜单显示为一个弹出式菜单把字体菜单显示为一个弹出式菜单EndIfEndSub 动态菜单动态菜单在程序运行时可以动态增减菜单项，方法有在程序运行时可以动态增减菜单项，方法有以下两种：以下两种

16、：1.将所有会出现的菜单项都先设计好，通过将所有会出现的菜单项都先设计好，通过改变改变Visible属性制造动态效果属性制造动态效果2.使用菜单控件数组，动态添加或删除数组使用菜单控件数组，动态添加或删除数组元素元素动态菜单示例动态菜单示例【例】实现下图的界面效果。每次打开一个文【例】实现下图的界面效果。每次打开一个文件，将该文件名列入菜单中。件，将该文件名列入菜单中。基本方法：使用基本方法：使用菜单控件数组菜单控件数组，动态改变菜，动态改变菜单项的个数和标题单项的个数和标题1、创建菜单控件数组、创建菜单控件数组进入菜单编辑器进入菜单编辑器在在“名称名称”中，输入菜单控件数组的名称，中，输入菜

17、单控件数组的名称，“索引索引”（Index属性属性）设置为）设置为0，“标题标题”可以空缺可以空缺定长数组：定长数组：同一缩进级上创建第二个菜单项，同一缩进级上创建第二个菜单项，“名称名称”不变，不变，“索引索引”设置为设置为1，依次往下，依次往下不定长数组：不定长数组：程序中增加数组元素程序中增加数组元素注意：如果有分隔线，则分隔线也可以是菜注意：如果有分隔线，则分隔线也可以是菜单数组中的元素单数组中的元素2、定长菜单数组（较简单）、定长菜单数组（较简单）定义一个有定义一个有5个元素的菜单数组个元素的菜单数组所有元素的初始所有元素的初始Visible属性为属性为FALSE使用一个变量使用一个

18、变量Num作为计数器作为计数器当用户第一次打开一个文件后出现分隔条当用户第一次打开一个文件后出现分隔条当用户每打开一个文件后，可以如下：当用户每打开一个文件后，可以如下：mnuFileList(Num).Caption=strFilenamemnuFileList(Num).Visible=TrueNum=Num+1如果计数器超过列表名额，则采用先进先淘如果计数器超过列表名额，则采用先进先淘汰汰3、变长菜单数组（较复杂）、变长菜单数组（较复杂）只定义一个数组元素，设置只定义一个数组元素，设置“索引索引”值为值为0程序中要增加菜单项时，为菜单数组动态创程序中要增加菜单项时，为菜单数组动态创建一个

19、新的菜单元素，如下：建一个新的菜单元素，如下：Num=Num+1 Load mnuFileList(Num)mnuFileList(Num).Caption=strFileName程序中要删除某个菜单元素时，如下：程序中要删除某个菜单元素时，如下：UnLoad mnuFileList(Index)4、使用注册表保存文件列表、使用注册表保存文件列表*注册表：注册表：保留所有安装程序的有关设置，运行保留所有安装程序的有关设置，运行regedit可以进入查看或编辑可以进入查看或编辑VB中与注册表有关的函数和语句中与注册表有关的函数和语句应用程序结束后，下次启动时能利用上次的结果应用程序结束后，下次启

20、动时能利用上次的结果函数或语句函数或语句SaveSetting返回一个包含多项注册表设置值的数组返回一个包含多项注册表设置值的数组保存或创建注册表设置值函数或语句保存或创建注册表设置值函数或语句返回注册表设置值返回注册表设置值函数或语句函数或语句GetSettingGetAllSettingsDeleteSetting删除注册表设置值函数或语句删除注册表设置值函数或语句创建工具栏创建工具栏工具栏提供了对于应用程序中最常用的菜单工具栏提供了对于应用程序中最常用的菜单命令的快速访问命令的快速访问,是许多基于是许多基于Windows的应的应用程序的标准功能用程序的标准功能VB中有两种方法创建工具栏中

21、有两种方法创建工具栏手工方式手工方式:使用使用PictureBox和和Image控件或控件或CommandButton控件控件,按钮的效果需要手工按钮的效果需要手工控制控制ActiveX控件控件ToolBar和和ImageList控件控件,自动自动实现各种按钮显示效果实现各种按钮显示效果使用使用ToolBar控件创建工具栏控件创建工具栏部件部件Microsoft Windows Common Controls 6.0 windowssystemcomctl32.ocx一般步骤：一般步骤：添加添加ImageList控件，在此控件中放入合适的图象，控件，在此控件中放入合适的图象，每个图象都定义一个

22、关键字每个图象都定义一个关键字添加添加ToolBar控件，与控件，与ImageList控件关联控件关联在在ToolBar控件的属性页中创建控件的属性页中创建Button对象对象在在ButtonClick事件中用事件中用SelectCase语句确定按下语句确定按下了哪个按钮，并根据按钮调用响应的操作了哪个按钮，并根据按钮调用响应的操作使用使用ToolBar控件创建工具栏控件创建工具栏制作工具栏需要使用两个制作工具栏需要使用两个ActiveX控件：控件：ImageList控件：控件：它管理所有要用到的按钮图片，运它管理所有要用到的按钮图片，运行时不可见。该控件不独立使用。行时不可见。该控件不独立使

23、用。ToolBar控件：控件：它用于创建工具栏，其上放置按钮图它用于创建工具栏，其上放置按钮图片（由片（由ImageList控件提供），并响应用户对按钮的控件提供），并响应用户对按钮的点击。点击。使用使用ImageList控件管理按钮图片控件管理按钮图片 是其它是其它Windows公共控件公共控件(如如ToolBar,ListView,TreeView)或含有或含有Picture属性的标属性的标准控件的图象库，准控件的图象库，图片中心图片中心选中控件，进入鼠标右键的选中控件，进入鼠标右键的“属性属性”对话框对话框“图象图象”选项卡：选项卡：插入图片：选择图片打开插入图片：选择图片打开(*.bm

24、p,*.ico)索引：定义索引：定义Index属性属性关键字：定义唯一的名称，关键字：定义唯一的名称，Key属性属性“通用通用”选项卡：定义图片尺寸，只能无图选项卡：定义图片尺寸，只能无图象时定义才有效象时定义才有效使用使用ImageList控件管理按钮图片控件管理按钮图片 在在“关键字关键字”中的字符串是每个图像唯一的中的字符串是每个图像唯一的名称，访问某个图像既可以使用图像的索引名称，访问某个图像既可以使用图像的索引号，也可以使用关键字（便于记忆）；号，也可以使用关键字（便于记忆）；ToolBar与与ImageList建立关联建立关联Toolbar控件只有与控件只有与ImageList关联

25、后，才关联后，才能使用其中的图像。有两种方法：能使用其中的图像。有两种方法：1)Toolbar 控件的控件的“属性页属性页”中的中的“图象列表图象列表”组合框列出了窗体中所有的组合框列出了窗体中所有的ImageList控件名控件名称，选中需要的那个称，选中需要的那个ImageList控件控件2)在运行时建立关联，只需将在运行时建立关联，只需将ToolBar控件的控件的ImageList属性设置为属性设置为ImageList控件的名称，控件的名称，如下：如下：SetToolBar1.ImageList=ImageList1 添加工具栏的按钮添加工具栏的按钮工具栏管理了一组按钮，因此包含的是按钮对

26、象的集合工具栏管理了一组按钮，因此包含的是按钮对象的集合（类似于数组），（类似于数组），即即ToolBar的的Buttons属性。集合中的属性。集合中的每个按钮有唯一的索引号，在插入时自动顺序递增，不每个按钮有唯一的索引号，在插入时自动顺序递增，不需要人工设置（也可以设置关键字）需要人工设置（也可以设置关键字）打开打开Toolbar的的“属性页属性页”，在，在“按钮按钮”选项卡中插入选项卡中插入按钮，填写按钮按钮，填写按钮“关键字关键字”，填写，填写“图象图象”的索引号的索引号（对应于（对应于ImageList控件中的图像索引号）控件中的图像索引号）选择按钮样式：选择按钮样式：tbrDefau

27、lt,tbrCheck,tbrSeparator,tbrButtonGroup,tbrPlaceholder等等其它设置项都是可选的，比如若指定了按钮的其它设置项都是可选的，比如若指定了按钮的“标题标题”，则在图像之上还会显示指定的标题文字，则在图像之上还会显示指定的标题文字添加工具栏的按钮添加工具栏的按钮工具栏管理了一组按钮，因此包含的是按钮对象的集合工具栏管理了一组按钮，因此包含的是按钮对象的集合（类似于数组），（类似于数组），即即ToolBar的的Buttons属性。集合中的属性。集合中的每个按钮有唯一的索引号，在插入时自动顺序递增，不每个按钮有唯一的索引号，在插入时自动顺序递增，不需要

28、人工设置（也可以设置关键字）需要人工设置（也可以设置关键字）打开打开Toolbar的的“属性页属性页”，在，在“按钮按钮”选项卡中插入选项卡中插入按钮，填写按钮按钮，填写按钮“关键字关键字”，填写，填写“图象图象”的索引号的索引号（对应于（对应于ImageList控件中的图像索引号）控件中的图像索引号）选择按钮样式：选择按钮样式：tbrDefault,tbrCheck,tbrSeparator,tbrButtonGroup,tbrPlaceholder等等其它设置项都是可选的，比如若指定了按钮的其它设置项都是可选的，比如若指定了按钮的“标题标题”，则在图像之上还会显示指定的标题文字，则在图像之上还会显示指定的标题文字工具栏的属性页工具栏的属性页工具栏有关设置在属性页中完成：工具栏有关设置在属性页中完成：响应工具栏按钮响应工具栏按钮编写代码响应按钮的点击，即编写工具栏控件的编写代码响应按钮的点击，即编写工具栏控件的ButtonClick事件过程：事件过程：Private Sub tb1_ButtonClick(ByVal Button As ComctlLib.Button)Select Case Button.Key Case “New”.Case “Open”Call mnuOpen_Click Case “Save”.End SelectEnd Sub