VB 6：菜单编辑器的用法
VB资源编辑器用法实例
VB的资源编辑器可以放入5种资源：文本、光标、图标、图片、自定义资源，以自定义资源为例，点一下问号旁边最近的一个按钮，把一个EXE文件添加进去，资源编辑器就会出现一个“CUSTOM”目录树，添加进去的文件序号从101开始VB的资源编辑器可以用资源给自己的程序添加图标、光标等，可以文件捆绑(原理是把两个EXE通过适当的代码连接在一起，最终产生的集合体为两个EXE之和)，可以ActiveX in Execute实例：用VB资源编辑器打包一个StringClelaner.exe，并生成另一个可执行文件Resource Editor.exe当点击其中的按钮Call StringCleaner的时候，就运行这个StringCleaner.exe ,而不管StringClelaner.exe 是否存在Step 1用vb6.0编写一个字苻清除器，并生成可执行文件StringClelaner.exe,源码如下Private Sub Command1_Click()Text3 = StringCleaner(Text1, Text2)End SubFunction StringCleaner(ByVal s As String, ByVal Search As String) As StringDim i As Integer, j As Integer, strNew As String, strTemp As Stringj = Len(Search)strTemp = sstrNew = ""Do While InStr(strTemp, Search)i = InStr(strTemp, Search)strNew = strNew & Left(strTemp, i - 1)strTemp = Mid(strTemp, i + j)LoopstrNew = strNew & strTempStringCleaner = strNewEnd FunctionStep 2在窗体Form1 中放置一个按钮，编写如下代码Private Sub Command1_Click()Dim FileName As StringDim FileNum As IntegerDim ArrBin() As ByteRandomize (Second(Now))FileNum = FreeFileFileName = "E:\VB Practice\StringCleaner\StringCleaner.exe"ArrBin = LoadResData(101, "CUSTOM")'101 资源号'"CUSTOM" 类型Open FileName For Binary As #FileNumPut #FileNum, , ArrBinClose #FileNumShell FileName, vbNormalFocusEnd Sub在资源编辑器中添加StringClelaner.exe,假设我们将其生成路径为"E:\VB Practice\StringCleaner\StringCleaner.exe"点击该图标选择要添加的Step 3 在VB6.0中将本工程生成Resource Editor.exe 文件Step 4 运行Resource Editor.exe,点击按钮，将跳出StringCleaner.exe 运行界面Step 5 将E:\VB Practice\StringCleaner\StringCleaner.exe 删除后，发现Resource Editor.exe 依然能正常如上图运行，并自动在E:\VB Practice\StringCleaner 中生成StringCleaner.exe ，由此可知并不是简单的调用，文件捆绑成功 添加进去的文件序号从101开始。
在VB中添加菜单
此时还没有添加任何内容，下面我们为这个应用程序添加菜单内容，假设这个应用程序的菜单结构如下:
文件
……新建
……打开
……保存
……退出
编辑
……剪切
……复制
……粘贴
帮助
……关于前面有“……”标记的表示这是子菜单。现在我们就把这个结构用菜单编辑器来实现吧。
我们只要选中准备设置为子菜单的那一项（“新建”菜单项），点击上面的右箭头就行，点一次添加一级，如果点两次则是子子菜单，相应的菜单项前会用“…………”表示。用同样的方法把上面的菜单项添加到菜单编辑器中，效果如图：
在Windows应用程序中，有些菜单项被分隔条隔开，这样的效果怎么实现呢？我们在“文件”菜单中的“退出”菜单项上方添加一分隔条吧，选中“退出”菜单项，然后点击“插入”按钮，生成一空白项，然后在上方的下面的名称处输入任意名称。如图：
在VB中添加菜单
在Windows应用程序中，我们可以方便地通过菜单进行操作。就像我们常用的办公软件WORD：
程序的功能菜单在VB中可以借助菜单编辑器方便地生成菜单，下面随着我一步一步地操作，为自己的应用程序添加一个菜单。
首先新建一个工程，然后将窗体标题修改为“菜单程序示例”，如图：
当然这不是必须的！
在这个菜单的单击事件过程中加入如下代码：
Private Sub menu_About_Click()
MsgBox "这是菜单程序示例"
End Sub
摘自[紫藤花语]
在打开的菜单编辑器的标题中输入“文件”，名称是供以后在程序中调用的，所以最好取个好记的与本菜单项相关的有意义的名称，我将它命名为“menu_File”，效果如图：
VB菜单器教案
VB菜单编辑器教案教案章节：一、VB菜单编辑器概述二、创建菜单三、编辑菜单项四、添加菜单图像五、菜单事件处理一、VB菜单编辑器概述教学目标：1. 了解VB菜单编辑器的作用和功能。
2. 熟悉菜单编辑器的基本操作。
教学内容：1. 菜单编辑器的概念和作用。
2. 菜单编辑器的界面和功能。
3. 菜单编辑器的使用方法。
教学步骤：1. 介绍菜单编辑器的概念和作用。
2. 演示菜单编辑器的界面和功能。
3. 引导学生使用菜单编辑器进行菜单设计。
二、创建菜单教学目标：1. 学会使用菜单编辑器创建菜单。
2. 掌握菜单项的添加和删除方法。
教学内容：1. 创建菜单的基本步骤。
2. 添加和删除菜单项的方法。
教学步骤：1. 引导学生使用菜单编辑器创建新菜单。
2. 演示添加和删除菜单项的方法。
3. 让学生实践创建简单的菜单。
三、编辑菜单项教学目标：1. 学会编辑菜单项的属性。
2. 掌握编辑菜单项的方法。
教学内容：1. 菜单项属性的概念和作用。
2. 编辑菜单项的方法。
教学步骤：1. 介绍菜单项属性的概念和作用。
2. 演示编辑菜单项的方法。
3. 让学生实践编辑菜单项。
四、添加菜单图像教学目标：1. 学会为菜单项添加图像。
2. 掌握添加菜单图像的方法。
教学内容：1. 菜单项图像的概念和作用。
2. 添加菜单图像的方法。
教学步骤：1. 介绍菜单项图像的概念和作用。
2. 演示添加菜单图像的方法。
3. 让学生实践添加菜单图像。
五、菜单事件处理教学目标：1. 学会处理菜单事件。
2. 掌握菜单事件处理的方法。
教学内容：1. 菜单事件的概念和作用。
2. 菜单事件处理的方法。
教学步骤：1. 介绍菜单事件的concept and function.2. 演示menu event handling methods.3. 让学生practice handling menu events.六、VB菜单编辑器高级应用教学目标：1. 学会使用菜单编辑器创建复杂菜单。
VB菜单界面设计
任何一个应用程序，都需要通过各种命令来达成某项功能，而这些命令，大多数是通过程序的菜单来实现的，如我们常常用到的记事本的菜单图一VB 提供了一个菜单编辑器，专门用来制作各式各样的菜单，它在标准工具栏中的图标如图二：图二双击该图标，弹出如图三的窗口，通过这个窗口，我们就可以制作菜单了。
图三当然，程序光是有菜单还不行，它只是为用户提供了便捷的操作接口，程序功能的最终实行，还必须通过给这些菜单输入复杂的程序才能得以实现。
下面，我们以 Windows 自带的笔记本为例，介绍如何用 VB 制作菜单。
一、菜单制作：1、双击如图二的菜单编辑器图标，然后弹出如图三的编辑窗口。
2、标题：显示在菜单中的文本，这里，我们输入“文件(&amF)”字样。
(&amF) 是什么东西？这是为了方便用户使用键盘操作菜单，当程序运行时，(&am) 字样不会出现，而是在字母 F 下加上一条横线，这表示，只要用户在按住 Alt 键的同时再按下 F 键，就相当于用鼠标点击“文件”这个菜单命令了。
也就是说，文件菜单的快捷键是 Alt F 。
关键字：表单填充器桥接模式外观模式适配器模式观察者模式VB教程第四章第一节——菜单界面设计。
名称：本菜单在程序中的名称，主要用作程序调用，因此记得用英文名，另外，名字最好一目了然，这里，我们将“文件”菜单命名为 MenuFile 。
“文件”菜单制作完毕，如图四：图四3、点击菜单编辑器上的“下一个”按钮，制作下一个菜单，这时，我们看到，编辑区域自动提到了下一行，如图五：图五点击向右按钮，本行前面出现了四个小点，表示本菜单降了一级，是二级菜单（依此类推，如果要制作三级菜单，只需要再点一下向右按钮进行降级就行了）。
然后用第二步的方法，制作“新建”(MenuNew)、“打开”(MenuOpen)、“保存”(MenuSave)、“另存为”(MenuSaveOther)菜单，结果如图六：图六上面讲到了用 &am 符号制作快捷键的方法，这里我们再使用 VB 菜单编辑器中的“快捷键”定制方法制作快捷键。
使用VBA创建自定义菜单和工具栏
使用VBA创建自定义菜单和工具栏在Microsoft Office软件中，自定义菜单和工具栏是提高工作效率的重要工具。
通过使用VBA（Visual Basic for Applications）编程语言，可以轻松创建自定义菜单和工具栏，以满足个人或团队的需求。
在本文中，我将介绍如何使用VBA创建自定义菜单和工具栏，同时提供一些实用的示例来帮助读者了解如何在不同的Office应用程序中应用这些技巧。
首先，在应用程序打开的情况下，打开VBA编辑器。
可以通过按下`Alt + F11`快捷键，或在“开发者”选项卡中点击“Visual Basic”按钮来打开VBA编辑器。
接下来，我们将创建一个自定义菜单。
在VBA编辑器中，点击“插入”菜单，然后选择“模块”，这将创建一个新的代码模块。
在代码模块中，输入以下代码：```Sub CreateCustomMenu()Dim cMenuBar As CommandBarDim cMenu As CommandBarPopup'删除已存在的自定义菜单On Error Resume NextmandBars("Custom Menu").DeleteOn Error GoTo 0'创建新的自定义菜单Set cMenuBar = mandBars.Add(Name:="Custom Menu", _Position:=msoBarTop, MenuBar:=False, Temporary:=True)Set cMenu = cMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)With cMenu.Caption = "Custom Menu"'添加菜单项.Controls.Add(Type:=msoControlButton, Temporary:=True).Caption = "菜单项1".Controls.Add(Type:=msoControlButton, Temporary:=True).Caption = "菜单项2".Controls.Add(Type:=msoControlButton, Temporary:=True).Caption = "菜单项3"End WithEnd Sub```在上面的代码中，我们首先删除已经存在的名为“Custom Menu”的自定义菜单，以确保我们创建的菜单是最新的。
VB技巧6
VB6.0编程"杂耍"--------------------------------------------------------------------------------杂耍一、防止自身被多次运行如果你不希望你的VB应用程序被用户通过多次双击图标而重复运行，导致内存不足或其它意外，你可以在程序中增加以下几行,检查发现如果程序已经被运行过，则给出提示后结束：Private Sub Form_Load()If App.PrevInstance thenMsgBox "嘟....,程序正在运行，请检查窗口是否被最小化。
:-)"End IfEnd Sub◆说明:App是VB内置的应用对象,通过访问他的属性可以得到应用程序的标题、版本信息、可执行文件和帮助文件的路径及名称等信息，尤其是App.Path很经常用到的。
◆可能的用途:各种不希望被多次运行的程序，例如数据库应用程序等。
杂耍二、右键菜单Windows的桌面和许多流行软件都提供右键菜单功能，就是在相应控件上单击鼠标右键时弹出菜单实现某些功能，方便快捷，许多编程爱好者也很想实现类似功能吧，方法如下：1、利用VB的菜单编辑器（Menu Editor）编辑你希望弹出的菜单(子选单)，并将此菜单的Visible 属性设置为False。
2、在相应控件的MouseDown事件中编写程序，来调用编辑好的菜单，假设菜单名为demoMenu，并且相应控件名称是ListView1,程序源码如下：Private Sub ListView1_MouseDown (Button As Integer, ShIft As Integer,X As Single, Y As Single)If Button = vbRightButton ThenPopupMenu demoMenuEnd IfEnd Sub◆说明:可以用在包括窗口的任何控件中,关键是弹出菜单技术。
vb6.0 对话框和菜单
阶段5 “字体”对话框
“字体”对话框用来设置并返回所用字体
的名称、样式、大小、效果及颜色等。
一.设计时建立“字体”对话框
设计时，在通用对话框控件的属性页窗 口“字体”选项卡中设置属性，包括字 体名称、字体大小、最小、最大、标志 、样式等。
二.运行时显示“字体”对话框
运行时，使用通用对话框控件的 ShowFont方法，或将Action属性赋值为4 ，可以显示“字体”对话框。在“字体 ”对话框中选定设置并关闭对话框。
一.控件名称 自定义，默认名称CommonDialog1、 CommonDialog2、……
二.设计时设置控件属性
用鼠标右键单击窗体上的CommonDialog控件图标，在 弹出的快捷菜单中选择“属性”选项，或在属性窗口 中选择“自定义”，再单击右侧的“„”按钮，就可 以打开”属性页“对话框。
三.打开通用对话框的Action 属性
⑴ 显示打开文件对话框 ⑵ 显示保存文件对话框 ⑶ 显示颜色对话框 ⑷ 显示字体对话框 ⑸ 显示打印机设置对话框 ⑹ 显示Windows帮助对话框
四.打开通用对话框的“方法”
⑴ ⑵ ⑶ ⑷ ⑸ ⑹ 显示打开文件对话框 显示保存文件对话框 显示颜色对话框 显示字体对话框 显示打印机设置对话框 显示Windows帮助对话框
菜单的类型 菜单编辑器 下拉式菜单 弹出式菜单
阶段1 菜单的类型
菜单是界面设计的重要组成部分，一般有两种基本类型：
下拉式菜单和弹出式菜单。 下拉式菜单通过打击菜单栏中的菜单标题来打开。
弹出式菜单则通过用鼠标左键或右键单击某个 区域的方式打开。
阶段2 菜单编辑器
VB
6.0没有菜单控件，但提供了建立菜单的菜单编辑器。 在VB 6.0集成开发环境中，选择“工具”菜单中的“菜 单编辑器”选项，可以进入菜单编辑器，为窗体编辑菜 单。
VBA菜单和工具栏定制技巧
VBA菜单和工具栏定制技巧VBA（Visual Basic for Applications）是一种强大的编程语言，可以集成到Microsoft Office套件中，帮助用户自定义功能和加强应用程序的自动化。
在Microsoft Office中，菜单和工具栏是我们经常使用的功能，通过VBA的定制技巧，我们可以根据自己的需求自定义菜单和工具栏，提高工作效率和用户体验。
本文将介绍一些VBA菜单和工具栏定制的技巧，帮助用户快速掌握这一强大的功能。
一、自定义菜单1. 添加自定义菜单项在VBA编辑器中，我们可以使用“CustomMenus”对象添加自定义菜单项。
首先，打开VBA编辑器（Alt + F11），然后在左侧的项目浏览器中选择对应的工作簿。
接下来，右键点击工作簿名称，在弹出的菜单中选择“插入”→“模块”。
在新建的模块中，输入以下代码：```vbaSub AddCustomMenuItem()CommandBars("Worksheet menu bar").Controls("自定义菜单").Controls.Add Type:=msoControlButton, before:=2CommandBars("Worksheet menu bar").Controls("自定义菜单").Controls(1).Caption = "自定义菜单项"End Sub```该代码将在工作表的菜单栏中添加一个名称为“自定义菜单”的菜单，并在菜单中添加一个名称为“自定义菜单项”的菜单项。
2. 添加快捷键要给自定义菜单项添加快捷键，可以使用以下代码：```vbaSub AddShortcutKey()CommandBars("Worksheet menu bar").Controls("自定义菜单").Controls(1).OnAction = "CustomMenuItem_Click"CommandBars("Worksheet menubar").FindControl(ID:=30010).ShortcutText = "Ctrl+Shift+C"End SubSub CustomMenuItem_Click()' 自定义菜单项的功能代码End Sub```在上述代码中，“CustomMenuItem_Click”是自定义菜单项的点击事件处理程序，用户可以通过修改这一事件处理程序的代码来实现所需的功能。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB 6.0 ：菜单编辑器的用法
做VB 项目时经常需要用菜单编辑器来创建自己需要的菜单，因此需要对其具体用法非常娴熟。
下面把从网上下载过来的资料结合自己使用的体会整理出一份文档以供日后参考。
附加以下图片以帮助说明与理解。
图片：菜单编辑器的使用
在出现VB6.0窗体的情况下,在菜单中选“工具”,再在其下拉菜单下选“菜单编辑器”。
然后按如下说明操作:
一．“菜单编辑器”对话框。
使用菜单编辑器可以为应用程序创建自定义菜单并定义其属性。
二．对话框选项。
1．“标题” ：使用该选项可以输入菜单名或命令名，这些名字出现在菜单条或菜单之中。
如果想在菜单中建立分隔符条，则应在Caption 框中键入一个连字符(-)。
为了能够通过键盘访问菜单项，可在一个字母前插入& 符号。
在运行时，该字母带有下划线（& 符号是不可见的），按ALT 键和该字母就可访问菜单或命令。
如果要在菜单中显示& 符号，则应在标题中连续输入两个& 符号。
2．“名称” ：用来为菜单项输入控件名。
控件名是标识符，仅用于访问代码中的菜单项；它不会出现在菜单中。
3．“索引” ：可指定一个数字值来确定控件在控件数组中的位置。
该位置与控件的屏
幕位置无关。
4．“快捷键” ：可在列表框中为每个命令选择快捷键。
5．“帮助上下文ID” 。
允许为context ID 指定唯一数值。
在HelpFile 属性指定的帮助文件中用该数值查找适当的帮助主题。
6．“协调位置” ：该列表框中共有四个可选项，他们决定是否及如何在容器窗体中显示菜单。
7．“复选” ：允许在菜单项的左边设置复选标记。
通常用它来指出切换选项的开关状态。
8．“有效” ：由此选项可决定是否让菜单项对事件做出响应，而如果希望该项失效并以浅灰色显示出来，则也可取消对该复选框的选用。
9．“可见”：决定是否将菜单项显示在菜单上。
10．“显示窗口列表” ：在MDI 应用程序中，确定菜单控件是否包含一个打开的MDI 子窗体列表。
11．“右箭头” ：每次单击都把选定的菜单向右移一个等级。
一共可以创建四个子菜单等级。
12．“左箭头” ：每次单击都把选定的菜单向上移一个等级。
一共可以创建四个子菜单等级。
13．“上箭头” ：每次单击都把选定的菜单项在同级菜单内向上移动一个位置。
14．“下箭头” ：“下箭头” 。
每次单击都把选定的菜单项在同级菜单内向下移动一个位置。
15．“菜单列表” ：该列表框显示菜单项的分级列表。
将子菜单项缩进以指出它们的分级位置或等级。
16．“下一个” ：将选定项移动到下一行，往往是为建立下一个菜单项准备。
17．“插入” ：在列表框的当前选定行上方插入一行。
18．“删除” ：删除当前选定行。
19．“确定” ：关闭菜单编辑器，并对选定的最后一个窗体进行修改。
菜单可以在设计时使用，但在设计时可以通过选定一个菜单，来打开菜单单击事件的“代码”窗口，而不是执行事件代码。
20．“取消” ：关闭菜单编辑器，取消所有修改。
2010-4-24 从网上下载并整理。