《菜单和工具栏》由会员分享，可在线阅读，更多相关《菜单和工具栏（5页珍藏版）》请在金锄头文库上搜索。
1、菜单和工具栏菜单和工具栏菜单：菜单编辑器：在工具条上单击“菜单编辑器“图标，或在“工具“菜单选“菜单编辑器“，出现对话框。其中，“标题“-用于屏幕显示；“名称“-用于代码；必须加前缀 mnu（用于标识是“菜单对象“） ；还可加后缀 item,（用于标识是“菜单项“而非“菜单标题（象“文件“编辑“样的）“） 添加菜单访问键：将&符号放置在菜单项标题中作为访问键使用的字母前面。就可以用 Alt+访问键来运行该菜单项事件了。 如果一个菜单项用于复选式菜单（即菜单项为“开“状态时前加个“） ，初始赋值方法是：在菜单编辑器中单击“复选“复选框，或在代码中把菜单项的 checked 属性设置为 true.
2、 给一个窗体添加或修改菜单时，必须首先单击该窗体以选择这个窗体。 设置菜单项无效：在菜单编辑器中，清除该菜单项的“有效“复选 框中的选中标志。或者在代码中设置它的 Enabled 属性为 false. 菜单数组：菜单数组的作用主要运用来运行程序时动态添加菜单项。我们前面介绍的设计菜单都是在编写程序时进行，能否在程序运行中自动添加菜单呢？可以，但先要做一个“菜单项样本“，在运行时新添的菜单都照搬这个样本的属性，事件过程等。这个样本连同新添的菜单都包含在一个菜单数组内。1，在菜单编辑器中设一个菜单，如果要建立菜单数组，只要在它的“索引“内先写上个“0“即可，表示该菜单数组以这个菜单为样本，其他元素
3、在创建时，除“索引“与之不同外，什么都与之相同（可以在此基础上改变） ，目前数组内只含一个菜单元素。2，在代码中某处用“load 菜单数组名（新下标）“语句，运行后便可新添加一个菜单数组元素了（可在代码中接着对其相关属性或事件等进行改变） 。这个“新下标“就是索引值（此前还不存在的值，说明这是个新添的菜单） ， 如下例：Dim aamnu As Integer 记录运行时添加菜单的个数Private Sub Form_Load()aamnu = 0End SubPrivate Sub mnuopen_Click()aamnu = aamnu + 1Load mnufile1234(aamnu)
4、 运行中动态地增加菜单mnufile1234(aamnu).Visible = Truemnufile1234(aamnu).Caption = “文件“ & aamnuCommonDialog1.ShowOpenOpen CommonDialog1.FileName For Input As #1Do While Not EOF(1)Line Input #1, lxnldd = ldd & lxn & Chr(13) + Chr(10)LoopText1.Text = lddClose #1End Sub 复选式菜单：任一菜单项都可作为复选式菜单，一般我们见到的菜单，其标题前不会有一个钩选
5、中符号；如果在代码中将菜单项checked 属性设为 true,就会出现钩了。一般我们在复选式菜单的click 事件中根据它的 checked 是否为真或假来分别处理相应过程。而且还有一点，在它的 click 事件开头加上“菜单名.checked=NOT 菜单名.checked“，能够随时切换“选中/未选中“状态，就象复选框一样。另外，如果在菜单项初始化时就具有选中标志，可在菜单编辑器中选中“复选“复选框。举一个例子：Private Sub mnuplay_Click()mnuplay.Checked = Not mnuplay.CheckedIf mnuplay.Checked = True
6、 ThenMCIWnd1.FileName = “e:dmtback.wav“MCIWnd1.Command = “open“MCIWnd1.Command = “play“ElseMCIWnd1.Command = “close“End IfEnd Sub 怎样编写鼠标右键的弹出式菜单？简单，编写需要弹出菜单对象的 mouseup 事件；如下：private sub label1_mouseup(button as integer,shift as integer,x as singer,y as singer)if button=vbrightbutton then 也可以写成：if bu
7、tton=2 thenform1.popupmenu mnufontend ifend submouseup 事件在我们按下鼠标键，然后抬起时发生。参数：button：表示抬起鼠标右键还是鼠标左键：vbleftbutton (值 1） 为鼠标左键 vbrightbutton （值 2） 为鼠标右键shift:表示在按下鼠标键的同时，是否同时按下扩展键；x,y:鼠标键抬起时所在的坐标。窗体的 popupmenu 方法：显示弹出式菜单。格式：窗体名.popupmenu 弹出式菜单名 注：弹出式菜单名所指菜单必须含有至少一个子菜单。最后在菜单编辑器中可将用于弹出式的那组菜单 visible 属性设为
8、false（这样只有用弹出显示） 。 创建工具栏：要用到 toolbar 控件和 imagelist 控件，它们都在“通用 6.0“中。imagelist 控件功能是集中存放程序中用到的多个图片，多个图片组成它的 listimages 集合，然后用其 Key(关健字)值或 index(索引)值来分别引用单个图片。1，在窗体上建立一个 imagelist1 对象，然后在该对象上单击鼠标右键，选“属性“打开属性页。2，在属性页中有三个选项卡，如果还未插入图片，在“通用“卡中先可进行图片大小的设置（为工具栏提供图片，一般设置在 20*20 以内） 。要插入图片，选“图像“选项卡，单击“插入图片“按纽
9、，选中图片文件后，在“关健字“文本框中输入一个有意义的 Key 值，并记住它，还有旁边“索引“框中的值，它就是 index 值。也要记住。这两个值代表这个图片，如此重复插入多个图片。3，在窗体上建立一个 toolbar 对象，单击鼠标右键，选“属性“打开属性页。在“通用“卡中找到“图象列表“框，选择 imagelist1，这样，工具栏 toolbar1 就可从 imagelist1 存放的图片组中提取图片了。然后，在“按纽“卡中单击“插入按纽“按纽，有几个输入项如下：索引：自动增加。代码中有用，当我们单击工具栏 toolbar1 对象上的某个按纽时，就会触发工具栏的 Buttonclick 事
10、件，该事件用一个参数 Button 来指明单击了哪个按纽，我们可在toolbar1_Buttonclick 事件中用 button.index 索引值（或Button.Key 关健字）来标识或引用各个按纽。索引值最小从 1 开始。标题：在按纽上随图片一起显示给用户的文字（可不写） 。关健字：指定一个有意义的名字在代码中标识这个插入的按纽，代码中用 Button.Key 来引用对应关健字的按纽，它比索引值更直观更有意义。 值：初始化按纽是弹起（0）还是按下（1）状态。样式：可选：0 为普通按纽样式，1 为开关（复选）样式，2 为只能有一个按纽处于按下状态的按纽组（要有多个按纽都设为 2） ，3
11、为分隔条；4 为占位按纽，5 为带下拉箭头菜单。工具提示文本：鼠标在该按纽上时显示的小文本框。相当于tooltiptext 属性。图象：输入一个 imagelist 对象的图片索引值或关健字值，来引用按纽图片。此外，还有可见，有效，混合三个复选框，不用说了吧。单击应用或确定按纽并重复添加完全部工具栏按纽。最后编写toolbar1_buttonclick 事件，常用 select case 联合 button.key或 button.index 参数来进行。如果在按纽样式中选了 5：带下拉箭头菜单，那么还要在代码中再编写 ButtonMenuClick 事件，用 Select Case ButtonMenu.Key 或ButtonMenu.Index 来进行。 如果在程序中用 picture 或 image 等控件来引用 imagelist 对象中的图片，要用如下格式: 对象名.picture=imagelist 对象.listimages(索引值或“关健字“).picture如： Picture1.Picture = ImageList1.ListImages(2).Picture
