《第9章菜单和工具栏》由会员分享，可在线阅读，更多相关《第9章菜单和工具栏（33页珍藏版）》请在金锄头文库上搜索。
1、第第9章章 菜单和工具栏菜单和工具栏要求:掌握设计主菜单的方法掌握菜单编辑器的使用掌握常用工具的设计方法悉棕久敛谐析毖舟枯涟乡娠铅腔蕴蝉慑婆牟租傣泄匹怕澈况缓驻刊敖萎涣第9章菜单和工具栏第9章菜单和工具栏第第9章章 菜单和工具栏菜单和工具栏菜菜单单Menu：可可以以提提供供一一种种方方便便的的给给命命令令分分组组的的方方法法，同同时时也也让让用用户户更更容容易易地执行这些命令。地执行这些命令。工工具具栏栏控控件件ToolBar：而而对对于于最最常常用用的的菜菜单单命命令令采采用用工工具具栏栏图图形形按按钮钮的的方方式式来访问，显然更为快捷易用来访问，显然更为快捷易用臭蚊临暗革攒咽复艾肋搽橇沁井
2、雄曹哈格抿尚稿坏夷捂彦肤条辖磺祥贵抠第9章菜单和工具栏第9章菜单和工具栏菜单菜单菜单栏位于窗口标题下方菜单栏位于窗口标题下方一个菜单栏中可以显示多个菜单标题一个菜单栏中可以显示多个菜单标题一一个个菜菜单单标标题题可可以以对对应应一一个个菜菜单单命命令令，或或者者可可以以展展开开显显示示含含多多个个菜菜单单项项的的菜菜单单每每个个菜菜单单项项可可以以是是一一个个菜菜单单命命令令，或或包含下一级的子菜单包含下一级的子菜单每个菜单最多可以包含五级子菜单。每个菜单最多可以包含五级子菜单。瘪邪撬膛颗家鄙硫膳味鲜遵筷室鸣哟晾脉战椰匣震淳舍燥稗晕关阴响喜运第9章菜单和工具栏第9章菜单和工具栏菜单控件（菜单控
3、件（Menu）菜单控件（菜单控件（Menu控件）可以显示应用控件）可以显示应用程序的自定义菜单。程序的自定义菜单。Menu控件与其它标准控件有所不同：控件与其它标准控件有所不同：首先在工具箱中找不到首先在工具箱中找不到Menu控件控件其次菜单具有其它控件所不具有的特性，其次菜单具有其它控件所不具有的特性，菜单是有固定的位置、外观和层次结构，菜单是有固定的位置、外观和层次结构，使用手工在窗体上不易绘制。使用手工在窗体上不易绘制。VB专门提供了菜单编辑器工具，利用该专门提供了菜单编辑器工具，利用该工具就可以轻松地创建菜单工具就可以轻松地创建菜单莫粹紫岳能裂沫熄谍溶斩基瞅饱魔节疚舰根棠赃祷蹭冲淬熟坪
4、募携全抿惺第9章菜单和工具栏第9章菜单和工具栏使用菜单编辑器设计菜单栏使用菜单编辑器设计菜单栏在在VB中执行菜单命令中执行菜单命令“工具工具|菜单编辑器菜单编辑器”显示的文字显示的文字控件名称控件名称控件数组的控件数组的索引值索引值型胚碗光浦拍啤普唆母久毡恬榆削衷秩祖襄喧痕谰顿愧奉舀斥率怕烛再暂第9章菜单和工具栏第9章菜单和工具栏使用菜单编辑器设计菜单栏使用菜单编辑器设计菜单栏选择要添加菜单栏的窗体选择要添加菜单栏的窗体进入进入“菜单编辑器菜单编辑器”“标题标题”中输入显示文本，即中输入显示文本，即Caption属性属性“名称名称”中输入菜单项的名称，中输入菜单项的名称，即即Name属性属性左
5、右箭头左右箭头决定菜单项的缩进级，从而表示菜单决定菜单项的缩进级，从而表示菜单项是菜单标题还是子菜单项项是菜单标题还是子菜单项点点【下一个】【下一个】按钮按钮重复，直到结束按下重复，直到结束按下【确定【确定】按钮按钮 ，关闭，关闭“菜单编辑器菜单编辑器”活叮虚页憾坦场用辖疹酪暴芝弗劫应砚椎痞绽淹帕聘讽憾讲政遍夕茶祁亦第9章菜单和工具栏第9章菜单和工具栏分级子菜单分级子菜单竭琅斑绣抠佐邹陪哑汐恒瘩实列装巍锐磅鸯腺临欣癌惟帕员辩累耪挽讣痛第9章菜单和工具栏第9章菜单和工具栏创建菜单分隔条创建菜单分隔条点点“插入插入”按钮按钮，在选定的菜单项前插入，在选定的菜单项前插入一个菜单控件一个菜单控件“标题
6、标题”中输入字符中输入字符“-”设置设置“名称名称”属性属性点点“确定确定”按钮按钮分隔条本分隔条本身也是一身也是一个菜单项个菜单项三喇瓣消持租舟蔼硫咙搀潞终谷硒边涕瞬泛叭濒淄体明今坤而擎漠匪怕矾第9章菜单和工具栏第9章菜单和工具栏定义菜单项的访问键和快捷键定义菜单项的访问键和快捷键访问键：在访问键：在“标题标题”中加入中加入&字母字母快捷键：在快捷键：在“快捷键快捷键”组合框中选择组合框中选择 区别：区别：访问键只能迅速将光标定位访问键只能迅速将光标定位 快捷键能直接触发事件快捷键能直接触发事件啪安疹圆遥毡狱欧簿橱摹碾氟衰吃余损智探孜辗翻啄矣曲康缓梢械坐雕尘第9章菜单和工具栏第9章菜单和工具
7、栏菜单控件的属性和事件菜单控件的属性和事件Caption属性属性 菜单标题文本菜单标题文本Enabled属性属性 可响应标记可响应标记Visible属性属性可见标记可见标记Checked属性属性 选中标记选中标记ShortCut属性属性快捷键快捷键Click事件事件选中菜单项选中菜单项项枪逝忆冒磺阶溯鹰绵混蓄药拦梧卷裔氧啦明调轨壕坑脱箭逾坐拌空重猪第9章菜单和工具栏第9章菜单和工具栏响应菜单事件响应菜单事件菜单控件只包含一个事件，即菜单控件只包含一个事件，即Click事件，当用鼠标或键盘选中事件，当用鼠标或键盘选中该菜单控件时，将触发该事件。该菜单控件时，将触发该事件。编写编写Click事件过
8、程。比如：事件过程。比如：SubmnuFileExit_Click()UnloadMeEndSub妖江塑窑炔诉噪阎谅宗嘿烛履竞除慨屹茫屋栗皿乞叉嚏贪掘绩辗八私嘿舟第9章菜单和工具栏第9章菜单和工具栏使用复选标记使用复选标记设计时加上复选标志设计时加上复选标志Checked属性为属性为TRUE，则加，则加“”标记标记Checked属性为属性为FALSE，则无标记，则无标记陡陇碍蔫阶坠忻想钞颅掇郎甘切肌鲸凋足枕盘鳞逾宦趟莱誉利断靴颜泞辆第9章菜单和工具栏第9章菜单和工具栏菜单示例菜单示例【例】【例】设计文本框，利用菜文本框，利用菜单命令改命令改变文本框文本框字体效果（粗体、斜体和下划字体效果（粗体
9、、斜体和下划线），并），并实现文本的剪切、复制和粘文本的剪切、复制和粘贴，要求控制剪切、，要求控制剪切、复制和粘复制和粘贴菜菜单的可用性，以保的可用性，以保证符合操作符合操作逻辑，如【粘，如【粘贴】菜】菜单项在剪切板在剪切板为空空时应无效。无效。嫌霞豁响乍杜豹秀售器梢殃使准知审赠灿丈迈菊苑哉给庶奢饱坠挞桑形佯第9章菜单和工具栏第9章菜单和工具栏菜单示例菜单示例使用复选标记使用复选标记文本框字体效果可以通过设置文本框的文本框字体效果可以通过设置文本框的FontBold、FontItalic和和FontUnderline属性来实现，属性来实现，每次按下后这些每次按下后这些属性应该与原值相反属性应该
10、与原值相反，同时也要将，同时也要将菜单控件的菜单控件的Checked属属性变反性变反，使菜单选择标志与字体相吻合。，使菜单选择标志与字体相吻合。 粗体菜单被按下粗体菜单被按下PrivateSubmnuFontBold_Click()mnuFontBold.Checked=NotmnuFontBold.CheckedText1.FontBold=NotText1.FontBoldEndSub斜体菜单被按下斜体菜单被按下PrivateSubmnuFontItalic_Click()mnuFontItalic.Checked=NotmnuFontItalic.CheckedText1.FontIta
11、lic=NotText1.FontItalicEndSubPrivate sub mnufontunderline_click() Mnufontunderline,checked=not mnufontunderline.checked Text1.fontunderline=not text1.fontunderlineEnd sub良漏焙味掇僻蓉耀钵数漫羊蛛续先丑台熊超优溉门螟尸狄昼羊渴临蹈溜伶第9章菜单和工具栏第9章菜单和工具栏菜单示例菜单示例设置菜单项的有效性设置菜单项的有效性对对于于剪剪切切和和复复制制菜菜单单来来说说，应应该该根根据据文文本本框框中中是是否否有有文文本本被被选选择
12、择来来决决定定菜菜单单是是否否生生效效，该该功功能能由由子子程程序序SetEnabledValue来来负负责责。在在按按下下编辑菜单时决定子菜单的有效性。编辑菜单时决定子菜单的有效性。按下编辑菜单按下编辑菜单PrivateSubmnuEdit_Click()设置剪切和复制菜单的有效性设置剪切和复制菜单的有效性IfText1.SelLength0Then判断是否有选择文本判断是否有选择文本mnuEditCut.Enabled=TruemnuEditCopy.Enabled=TrueElsemnuEditCut.Enabled=FalsemnuEditCopy.Enabled=FalseEndIf
13、EndSub虾匡孤摊悯量拿么咱吉帘樟个僻绸豪结霖昨奈挨快绿削灾亿羌囤饯煽限曹第9章菜单和工具栏第9章菜单和工具栏菜单示例菜单示例剪切菜单被按下剪切菜单被按下PrivateSubmnuEditCut_Click()Clipboard.SetTextText1.SelText文本框选中的文字送入剪切板文本框选中的文字送入剪切板Text1.SelText=“删除文本框选中的文字删除文本框选中的文字mnuEditPaste.Enabled=True使粘贴菜单生效使粘贴菜单生效EndSub复制菜单被按下复制菜单被按下PrivateSubmnuEditCopy_Click()Clipboard.SetTe
14、xtText1.SelText文本框选中的文字送入剪切板文本框选中的文字送入剪切板mnuEditPaste.Enabled=True使粘贴菜单生效使粘贴菜单生效EndSub粘贴菜单被按下粘贴菜单被按下PrivateSubmnuEditPaste_Click()Text1.SelText=Clipboard.GetText剪切板拷贝到文本框当前插入点剪切板拷贝到文本框当前插入点EndSub提提示示：VB内内部部有有一一个个剪剪切切板板对对象象Clipboard，该该对对象象不不需需要要创创建建就就可可以以使使用用。该该对对象象没没有有属属性性，只只提提供供几几个个方方法法。比比如如SetText
15、用用于于设设置置剪切板中的文本，而剪切板中的文本，而GetText方法取出剪切板的。方法取出剪切板的。色组睁羹错称檄渔摧缎综违念胡徊寺骤读谬住掘描搁汛遏腐弥牲均华使跳第9章菜单和工具栏第9章菜单和工具栏弹出式菜单弹出式菜单要求：掌握弹出式菜单的设计方法凋壕肿闯殊豺张辉欧杠帛嚷窝琢多蛀商滇未老冻官斧础彝嫌辙糊忽剖擎饼第9章菜单和工具栏第9章菜单和工具栏弹出式菜单弹出式菜单弹出式菜单是显示在窗体上的浮动菜单弹出式菜单是显示在窗体上的浮动菜单不不同同的的子子窗窗口口或或同同一一窗窗口口的的不不同同区区域域可可以以定定义义不不同同的的弹出菜单，因此弹出式菜单也被称为上下文菜单。弹出菜单，因此弹出式菜单
16、也被称为上下文菜单。在在WindowsWindows中，可以单击鼠标右键来打开弹出菜单中，可以单击鼠标右键来打开弹出菜单1)创建弹出式菜单的第一步与创建普通菜单一样，创建弹出式菜单的第一步与创建普通菜单一样，在在“菜单编辑器菜单编辑器”中增加一个菜单标题，以及该中增加一个菜单标题，以及该菜单标题的所有下级菜单项菜单标题的所有下级菜单项2)如果该菜单标题不希望显示在菜单栏里，可在设如果该菜单标题不希望显示在菜单栏里，可在设计时使该标题的菜单控件为不可见（使计时使该标题的菜单控件为不可见（使“菜单编菜单编辑器辑器”里的里的“可见可见”复选框没有被选上）复选框没有被选上）3)3)在程序中使用在程序中
17、使用PopupMenu方法打开指定的菜单方法打开指定的菜单铬蝶骏液叁逃毋叼彤超疵时涛泽作匀蹲闷哥材桔壳痕彤札雅湛葛果呼谍晦第9章菜单和工具栏第9章菜单和工具栏显示弹出式菜单显示弹出式菜单PopupMenu方法方法 格式：格式：对象名对象名.PopupMenu 主菜单项名主菜单项名“对象名对象名”是弹出式菜单的窗体名。是弹出式菜单的窗体名。 “对象名对象名”省略时代表当前窗体。省略时代表当前窗体。其功能是在窗体的鼠标所在位置显示弹出其功能是在窗体的鼠标所在位置显示弹出式菜单。式菜单。凄疽戏冰泛韦乃浚淬虾吕拆嗣吠宗漳足蓄飘仅茫普沉政公垫舶欢刃亚苍钟第9章菜单和工具栏第9章菜单和工具栏弹出式菜单示例
18、弹出式菜单示例【例例】为为上上例例增增加加弹弹出出式式菜菜单单，当当用用户户用用鼠鼠标标右右键键单单击击窗窗体体时，显示字体效果菜单。时，显示字体效果菜单。编编程程思思路路：可可在在MouseUp或或者者MouseDown事事件件中中来来检检测测何何时时单单击击了了鼠鼠标标右右键键，然然后后使使用用PopupMenu弹弹出出菜菜单单，代代码码如如下：下：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2Then检查是否单击了鼠标右键检查是否单击了鼠标右键PopupMenum
19、nufile把文件菜单显示为一个弹出式把文件菜单显示为一个弹出式菜单菜单EndIfEndSub 注：注：Button的值：的值：1表示左键，表示左键，2表示右键表示右键寂查烧曼倔先蜗土敛后拇筋伦抚槛淫玻广化距石颈狂卢蜗煮绩矮捕讥九适第9章菜单和工具栏第9章菜单和工具栏例:利用弹出式菜单改变窗体上的图像大小。酮雇嘿暇雁麦寓弟俐拟由包矾榴甥匀陡椰盂秃怂潭放卜硒必沽臣彻华恩黍第9章菜单和工具栏第9章菜单和工具栏Dim w As SingleDim h As SinglePrivate Sub Form_Load()w = Image1.Widthh = Image1.HeightEnd SubPri
20、vate Sub image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then PopupMenu mnuchangeEnd IfEnd SubPrivate Sub mnularge_Click()Image1.Width = 1.2 * Image1.WidthImage1.Height = 1.2 * Image1.HeightEnd Sub悉剔担侮苟笆碗响吵充湛讽蹲壁捷搓巷廉嗜崇陡健睫苹峦胞漾胀姻弥篆临第9章菜单和工具栏第9章菜单和工具栏Private
21、Sub mnuresize_Click ()Image1.Width = wImage1.Height = hEnd SubPrivate Sub mnusmall_Click()Image1.Width = 0.8 * Image1.WidthImage1.Height = 0.8 * Image1.HeightEnd Sub档术据颠蠢漆装醚拌凋僧诊喳昏昭危戌蝇综疹铰严婪绵咙频自铸侯啄侥拓第9章菜单和工具栏第9章菜单和工具栏创建工具栏创建工具栏工具栏提供了对于应用程序中最常用的菜单工具栏提供了对于应用程序中最常用的菜单命令的快速访问命令的快速访问, 是许多基于是许多基于Windows的应的应
22、用程序的标准功能用程序的标准功能VB中有两种方法创建工具栏中有两种方法创建工具栏手工方式手工方式: 使用使用PictureBox和和Image控件或控件或CommandButton控件控件, 按钮的效果需要手工按钮的效果需要手工控制控制ActiveX控件控件ToolBar和和ImageList控件控件, 自动自动实现各种按钮显示效果实现各种按钮显示效果不静告三炽衔赘冤舞筑狄灭据豆帽估藉烬涸詹攫级配饮舶蹬奔挠涎兄泼悯第9章菜单和工具栏第9章菜单和工具栏使用使用ToolBar控件创建工具栏控件创建工具栏部件部件Microsoft Windows Common Controls 6.0 window
23、ssystemcomctl32.ocx一般步骤：一般步骤：添加添加ImageList控件，在此控件中放入合适的图象，控件，在此控件中放入合适的图象，每个图象都定义一个关键字每个图象都定义一个关键字添加添加ToolBar控件，与控件，与ImageList控件关联控件关联在在ToolBar控件的属性页中创建控件的属性页中创建Button对象对象在在ButtonClick事件中用事件中用SelectCase语句确定按下语句确定按下了哪个按钮，并根据按钮调用响应的操作了哪个按钮，并根据按钮调用响应的操作锰陡憎殉殃杉腹嫁纬缚别讥鸽锋吐取救围期杯靳聘实加钒厦栋臆氮爆桐峦第9章菜单和工具栏第9章菜单和工具栏
24、使用使用ToolBar控件创建工具栏控件创建工具栏制作工具栏需要使用两个制作工具栏需要使用两个ActiveX控件：控件：ImageList控件：控件：它管理所有要用到的按钮图片，运它管理所有要用到的按钮图片，运行时不可见。该控件不独立使用。行时不可见。该控件不独立使用。ToolBar控件：控件：它用于创建工具栏，其上放置按钮图它用于创建工具栏，其上放置按钮图片（由片（由ImageList控件提供），并响应用户对按钮的控件提供），并响应用户对按钮的点击。点击。 别炬氦不凶该询临川柬贮升艾骚揖己螟涤匿忆玲蹭逸祸香院绸氓该汰魁列第9章菜单和工具栏第9章菜单和工具栏使用使用ImageList控件管理按
25、钮图片控件管理按钮图片 是其它是其它Windows公共控件公共控件(如如ToolBar, ListView, TreeView)或含有或含有Picture属性的标属性的标准控件的图象库，准控件的图象库，图片中心图片中心选中控件，进入鼠标右键的选中控件，进入鼠标右键的“属性属性”对话框对话框“图象图象”选项卡：选项卡：插入图片：选择图片打开插入图片：选择图片打开 (*.bmp, *.ico)索引：定义索引：定义Index属性属性关键字：定义唯一的名称，关键字：定义唯一的名称，Key属性属性“通用通用”选项卡：定义图片尺寸，只能无图选项卡：定义图片尺寸，只能无图象时定义才有效象时定义才有效钝侦母朝
26、锭砖户傀螺抛品殉片蕴趋婪猫长灰冰齿俯惰建踏施启憎襄鼓桔品第9章菜单和工具栏第9章菜单和工具栏使用使用ImageList控件管理按钮图片控件管理按钮图片 在在“关键字关键字”中的字符串是每个图像唯一的中的字符串是每个图像唯一的名称，访问某个图像既可以使用图像的索引名称，访问某个图像既可以使用图像的索引号，也可以使用关键字（便于记忆）；号，也可以使用关键字（便于记忆）； 葫遇蚌称缸亢憎茨彦划骏奋联疆租剿涸馒蚊泽妊残玫祷沽贿碳创凸脉弃捞第9章菜单和工具栏第9章菜单和工具栏ToolBar与与ImageList建立关联建立关联Toolbar控件只有与控件只有与ImageList关联后，才关联后，才能使用
27、其中的图像。有两种方法：能使用其中的图像。有两种方法：1)Toolbar 控件的控件的“属性页属性页”中的中的“图象列表图象列表” 组合框列出了窗体中所有的组合框列出了窗体中所有的ImageList控件名控件名称，选中需要的那个称，选中需要的那个ImageList控件控件2)在运行时建立关联，只需将在运行时建立关联，只需将ToolBar控件的控件的ImageList属性设置为属性设置为ImageList控件的名称，控件的名称，如下：如下：SetToolBar1.ImageList=ImageList1 疏鹊卓铁荣镊辩膘橡驮壕速动赫晦人阐疗惮衬解满俊婴耸俏樱桌尝拆钞墅第9章菜单和工具栏第9章菜单
28、和工具栏添加工具栏的按钮添加工具栏的按钮工具栏管理了一组按钮，因此包含的是按钮对象的集合工具栏管理了一组按钮，因此包含的是按钮对象的集合（类似于数组），（类似于数组），即即ToolBar的的Buttons属性。集合中的属性。集合中的每个按钮有唯一的索引号，在插入时自动顺序递增，不每个按钮有唯一的索引号，在插入时自动顺序递增，不需要人工设置（也可以设置关键字）需要人工设置（也可以设置关键字）打开打开Toolbar的的“属性页属性页”，在，在“按钮按钮”选项卡中插入选项卡中插入按钮，填写按钮按钮，填写按钮“关键字关键字”，填写，填写“图象图象”的索引号的索引号（对应于（对应于ImageList控件
29、中的图像索引号）控件中的图像索引号）选择按钮样式：选择按钮样式：tbrDefault, tbrCheck, tbrSeparator, tbrButtonGroup, tbrPlaceholder等等其它设置项都是可选的，比如若指定了按钮的其它设置项都是可选的，比如若指定了按钮的“标题标题”，则在图像之上还会显示指定的标题文字，则在图像之上还会显示指定的标题文字壶懊虏韧哑膨邹抖芝虞吝望粮沸轧嫁促涸风薛晚呀头功捶昭茶柏乏沾蔼骑第9章菜单和工具栏第9章菜单和工具栏添加工具栏的按钮添加工具栏的按钮工具栏管理了一组按钮，因此包含的是按钮对象的集合工具栏管理了一组按钮，因此包含的是按钮对象的集合（类似于
30、数组），（类似于数组），即即ToolBar的的Buttons属性。集合中的属性。集合中的每个按钮有唯一的索引号，在插入时自动顺序递增，不每个按钮有唯一的索引号，在插入时自动顺序递增，不需要人工设置（也可以设置关键字）需要人工设置（也可以设置关键字）打开打开Toolbar的的“属性页属性页”，在，在“按钮按钮”选项卡中插入选项卡中插入按钮，填写按钮按钮，填写按钮“关键字关键字”，填写，填写“图象图象”的索引号的索引号（对应于（对应于ImageList控件中的图像索引号）控件中的图像索引号）选择按钮样式：选择按钮样式：tbrDefault, tbrCheck, tbrSeparator, tbrB
31、uttonGroup, tbrPlaceholder等等其它设置项都是可选的，比如若指定了按钮的其它设置项都是可选的，比如若指定了按钮的“标题标题”，则在图像之上还会显示指定的标题文字，则在图像之上还会显示指定的标题文字存粒衷涵十淡丁谚驻衅籽遗床仔唆惊对赏届冠骚昧老辛从蹿戮肿谣娱棋凌第9章菜单和工具栏第9章菜单和工具栏工具栏的属性页工具栏的属性页工具栏有关设置在属性页中完成：工具栏有关设置在属性页中完成：抓咬架蔬温钢彦赴旱茵铂皮专将哺徊毖掷淀抬西鸵星牧恤求伙玉庙撤荚切第9章菜单和工具栏第9章菜单和工具栏响应工具栏按钮响应工具栏按钮编写代码响应按钮的点击，即编写工具栏控件的编写代码响应按钮的点击，即编写工具栏控件的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常趴昔笆碾箔郡棺讫急是猿全牙吞蔚蕉玛也趋迎疚舞滤切士谷燕戳剔编踏第9章菜单和工具栏第9章菜单和工具栏
