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中添加菜单

在VB的菜单栏的“工具”菜单中选择“菜单编辑器”或直接点击快捷键CTRL+E打开。打开后的菜单编辑器是这样的：
此时还没有添加任何内容，下面我们为这个应用程序添加菜单内容，假设这个应用程序的菜单结构如下:
文件
……新建
……打开
……保存
……退出
编辑
……剪切
……复制
……粘贴
帮助
……关于前面有“……”标记的表示这是子菜单。现在我们就把这个结构用菜单编辑器来实现吧。
我们只要选中准备设置为子菜单的那一项（“新建”菜单项），点击上面的右箭头就行，点一次添加一级，如果点两次则是子子菜单，相应的菜单项前会用“…………”表示。用同样的方法把上面的菜单项添加到菜单编辑器中，效果如图：
在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”是自定义菜单项的点击事件处理程序，用户可以通过修改这一事件处理程序的代码来实现所需的功能。

VB教程6

键盘、鼠标和菜单是用户和程序进行交互的主要工具。了解使用它们进行用户交互的设计要求、方法，并理解交互过程中如何进行控制。
1
Visual Basic程序设计教程
键盘是主要的输入工具。一般认为键盘对应于ASCII 码，每一个按键将产生一个对应的ASCII码，由键盘传送给计算机的操作系统，根据用户程序的需要再由操作系统产生键值。
DragDrop 识别何时将控件拖动到对象上
DragOver 识别何时在对象上拖动控件
Drag
取值0，取消拖放，1拖放开始，2结束拖放
16
Visual Basic程序设计教程
和拖放相关的两个名词是“源”和“目的”。源是被拖动的控件，目标是在其上放源控件的对象。
【例6-4】编写一个程序，在窗体上放置一个回收站图形，然后把窗体上的一个文字为“鼠标拖放测试”的标签对象拖放到回收站对象上。使用一个消息对话框决定是否把标签对象回收。
Source.Move (X - Source.Width / 2), (Y - Source.Height / 2)
End Sub
Private Sub LabDrag_MouseDown(Button As Integer, Shift As Integer, X
As Single, Y As Single)
Select Case Button
Case vbRightButton ‘右键 1
LabRight.BackColor = vbRed
LabMid.BackColor = 12632256
LabLeft.BackColor = 12632256
Case vbMiddleButton ‘中间键 4
LabRight.BackColor = 12632256

vb6对话框和菜单解析

7
例:Action为3改变Dialog控件Color属性 Private Sub Command1_Click() CommonDialog1.Action = 3
Text1.BackColor = CommonDialog1.Color
End Sub Private Sub Command2_Click() CommonDialog1.ShowColor '等价于CommonDialog1.Action = 3
第 6章
6.1 用户对话框
对话框和菜单
用户对话框是用户根据应用程序设计的需要，自行定义的对话框，通常由标签、文本框与命令按钮等控件组合而成。例 6-1 用户对话框示例。
1
2
6.2
通用对话框控件（CommonDialog1）
它属于VB的ActiveX控件，在使用前需要将它添加到工具箱中。将通用对话框图标添加到工具箱的方法如下：
6
4. 执行通用对话框所改变的控件属性及其应用例: Action为1或2，改变Dialog控件Filename属性 Private Sub Command1_Click() '运行时通过对话选择在图片框所装入的图片文件。 CommonDialog1.Action = 1 Picture1.Picture= LoadPicture(CommonDialog1.Filename) End Sub
3
6.2.1
通用对话框的基本属性和方法
⒈设计时设置控件属性 ⑴ 用鼠标右键单击窗体上的CommonDialog控件图标，在弹出的快捷菜单中选择“属性”选项，打开“属性页”对话框。在 “属性页”对话框中有5个选项卡，用于对不同类型的对话框进行属性设置。 (2) 也可以在属性窗口中设置通用对话框的属性。

VB 菜单、工具栏和状态栏

菜单、工具栏和状态栏1菜单1.1菜单编辑器VB提供的菜单编辑器来设计实现。

菜单编辑器的启动方式：（1）选择“工具/菜单编辑器”命令。

（2）利用快捷键<Ctrl+E>来调用“菜单编辑器”。

1.2创建最简菜单在菜单的属性设置区域中有诸多的属性需要设置，其中，“标题”和“名称”属性是必须要设置的，其他的属性可以采用默认值，或者不进行设置。

仅设置了“标题”和“名称”属性的菜单就是最简菜单。

注意：“标题”属性和“名称”属性必须都设置，缺一不可，否则将不被菜单编辑器接受。

1.3设置菜单的快捷键和访问键快捷键是用于执行一个命令的功能键或者组合键，例如，<Ctrl+C>为复制操作。

访问键是指用户按下<Alt>键同时又按下的键。

例如，<Alt+F>用于打开“文件”菜单，这里的<F>键即为访问键。

1.4创建级联菜单在菜单编辑器中，以缩进量显示级联菜单的形式。

在菜单编辑器的菜单列表区中由内缩进符号表明菜单项所在的层次，每4个点表示一层，最多可以有5个内缩符号，最后面的菜单项为第5层。

1.5创建复选菜单通过复选菜单可以实现在菜单中执行或取消执行某项操作。

菜单的复选标记有两个作用：一是表示打开或关闭的条件状态，选取菜单命令可以交替地添加或删除复选标记；二是指示几个模式中哪个或哪几个在起作用。

1.6 设置菜单分隔条利用菜单分隔条可使功能相近的菜单放在一组，使子菜单看起来更加清晰、明了。

1.7 设置菜单无效有些菜单对于不同权限的操作用户的使用权限是不同的，如系统设置方面的菜单，只有系统管理员才能使用，当普通用户进入系统中时，这些菜单将被设置为无效。

2弹出式菜单弹出式菜单是指在窗体上单击鼠标右键之后弹出的菜单，也称为浮动菜单。

可使用PopupMenu方法显示弹出式菜单。

2.1PopupMenu方法语法：object.PopupMenu menuname, flags, x, y, boldcommand其中，object：可选参数，对象表达式，其值为Form或MDIForm；menuname：必须的参数，指出要显示的弹出式菜单名；flags：可选的参数，为一个数值或常数，用以指定弹出式菜单的位置和行为；x：可选的参数，指定显示弹出式菜单的x坐标；y：可选的参数，指定显示弹出式菜单的y坐标；boldcommand：可选的参数，指定弹出式菜单中的菜单控件的名称，用以显示其黑体正文标题。

VB第6章《菜单和工具栏设计》总结

VB第6章《菜单和工具栏设计》总结一、菜单控件（Menu）：1、功能：用于显示应用程序的自定义菜单。

2、组成：命令、子菜单、分隔符条。

3、创建：“工具”菜单——“菜单编辑器”4、常用属性：(1)Caption：菜单项标题对应菜单编辑器中“标题”文本框。

访问键字母前加“&”符号快速选中：顶级菜单：Alt+字母键子菜单：单击字母键(2)Checked：显示复选标记。

对应菜单编辑器中“复选”复选框。

(3)Enabled：有效性。

对应菜单编辑器中“有效”复选框。

(4)Index：当菜单项组成控件数组时，用于区分数组内的各个菜单控件。

对应菜单编辑器中“索引”文本框。

(5)Name：指定菜单控件的名称。

对应菜单编辑器中“名称”文本框。

(6)Shortcut：指定菜单项的快捷键。

对应菜单编辑器中“快捷键”文本框。

(7)Visible：决定菜单项是否可见。

对应菜单编辑器中“可见”复选框。

(8)WindowList：决定菜单控件是否维护当前MDI子窗口的列表。

对应菜单编辑器中“显示窗口列表”复选框。

5、事件：只有一个单击事件，即Click事件。

二、RichTextBox控件：1、功能：创建能输入和编辑大量文本的、能设置字符格式、段落格式的文本框。

2、打开、保存的文件格式：RTF格式和ASCII文本格式两种。

3、常用属性：（1）FileName：返回或设置装入RichTextBox控件的文件名。

只能指定文本文件或有效的.rtf文件名。

（2）MaxLength：最大字符数。

（3）MultiLine：是否显示和接受多行文本。

（4）RightMargin：文本右边距。

（5）ScrollBars：自带水平或垂直滚动条。

0——无1——水平滚动条2——垂直滚动条3——两者都有（6）SelAlignment：段落对齐方式。

设计时无效。

0——左对齐1——右对齐2——居中对齐（7）选定文本的字体样式：设计时无效。

SelBold：粗体；SelItalic：斜体；SelStrikethru：删除线；SelUnderline：下划线。

第七章vb6.0菜单的设计与多文档界面

第七章vb6.0菜单的设计与多文档界面第七章菜单的设计与多文档界面7.1 菜单简介大多数Windows应用程序都有一个菜单栏，它总是处在窗体标题栏的下面，并包含一个或多个菜单标题。

单击每个菜单标题都会弹出一个下拉菜单，在下拉菜单中包含有菜单项、分隔条和子菜单标题。

有的菜单项可以直接执行，有的菜单项执行时则会弹出一个对话框。

所有的Windows应用程序都遵循以下3个约定：凡是菜单名称后有一个省略号的，均表示在单击该选项后会弹出一个相应的对话框，在用户作出相应的回答后，该项功能就以用户所给予的信息去执行。

例如，单击【打开】选项，则弹出【打开】对话框，用户可从中选择要打开的文件。

凡是菜单名称后有一个小三角的，则表示它是一个子菜单标题，子菜单标题并不能直接执行，仅仅扮演一个“容器”的角色。

当鼠标指针移动到子菜单标题上时，会自动弹出子菜单。

例如，将指针移动到【发送】选项，就会弹出子菜单。

菜单名称后不包含L述两种符号者，表明该菜单项所代表的命令可直接执行。

例如，单击【关闭】选项，则将关闭当前打开的文档。

另外，有的菜单项名称后还显示相应的键盘访问键和快捷键。

访问键允许同时按下Alt键和一个指定字符来打开一个菜单。

一旦菜单打开，通过按下访问键即可选取菜单项。

在菜单项的标题中，访问键表现为一个带下划线的字母，如【打开】命令的访问键为0.当打开【文件】菜单后，按下0键即可执行【打开】命令。

快捷键出现在相应菜单项的右边，例如，【打开】命令的快捷键是Ctrl+O，无论【文件】菜单是否打开，只要按下Ctrl+O组合键，即可执行【打开】命令。

由于所有Windows应用程序都遵循上述约定，因此，在创建菜单时，也应该遵循这些约定。

例如，如果某菜单项的执行结果是弹出一个对话框，则应该在该菜单项后加上省略符（…）.此外，要使应用程序简单好用，还应该将菜单项按其功能分组。

例如，与文件有关的命令【新建】、【打开】和【另存为】都列入了【文件】菜单。

vb6对话框和菜单

CommonDialog1.Action=3
CommonDialog1.Action=5 ⑹ 显示Windows帮助对话框
CommonDialog1.Action=6
5
3. 打开通用对话框的“方法”
⑴ 显示打开文件对话框
⑷ 显示字体对话框
CommonDialog1.ShowOpen CommonDialog1.ShowFont
12
6.2.4 “颜色”对话框
“颜色”对话框用来提供调色板并从中选择颜色，或创建自定义颜色。 ⒈ 设计时建立“颜色”对话框设计时，在通用对话框控件的属性页窗口“颜色”选项卡设置属性，如图所示。 ⒉ 运行时显示“颜色”对话框运行时，使用通用对话框控件的ShowColor方法，或将Action 属性赋值为3，可显示“颜色”对话框，如图所示。例6-3 颜色对话框示例。
第6章对话框和菜单
6.1 用户对话框
用户对话框是用户根据应用程序设计的需要，自行定义的对话框，通常由标签、文本框与命令按钮等控件组合而成。例 6-1 用户对话框示例。
1
2
6.2 通用对话框控件（CommonDialog1）
它属于VB的ActiveX控件，在使用前需要将它添加到工具箱中。将通用对话框图标添加到工具箱的方法如下： (1) 单击“工程”菜单的“部件”选项，或者用鼠标右键单击工具箱，在弹出的菜单中选择“部件”，打开“部件”对话框。 (2)在“部件”对话框中，选中“Microsoft Common Dialog Control 6.0”。 (3) 单击“确定”按钮即可将通用对话框控件添加到工具箱中。
CommonDialog1.Action = 3 Text1.BackColor = CommonDialog1.Color End Sub Private Sub Command2_Click() CommonDialog1.ShowColor '等价于CommonDialog1.Action = 3 Text1.ForeColor = CommonDialog1.Color End Sub

vb6：菜单编辑器的用法

VB 6.0 ：菜单编辑器的用法做VB 项目时经常需要用菜单编辑器来创建自己需要的菜单，因此需要对其具体用法非常娴熟。

下面把从网上下载过来的资料结合自己使用的体会整理出一份文档以供日后参考。

附加以下图片以帮助说明与理解。

图片：菜单编辑器的使用在出现VB6.0窗体的情况下,在菜单中选“工具”,再在其下拉菜单下选“菜单编辑器”。

然后按如下说明操作:一．“菜单编辑器”对话框。

使用菜单编辑器可以为应用程序创建自定义菜单并定义其属性。

二．对话框选项。

1．“标题” ：使用该选项可以输入菜单名或命令名，这些名字出现在菜单条或菜单之中。

如果想在菜单中建立分隔符条，则应在Caption 框中键入一个连字符(-)。

为了能够通过键盘访问菜单项，可在一个字母前插入& 符号。

在运行时，该字母带有下划线（& 符号是不可见的），按ALT 键和该字母就可访问菜单或命令。

如果要在菜单中显示& 符号，则应在标题中连续输入两个& 符号。

2．“名称” ：用来为菜单项输入控件名。

控件名是标识符，仅用于访问代码中的菜单项；它不会出现在菜单中。

3．“索引” ：可指定一个数字值来确定控件在控件数组中的位置。

该位置与控件的屏幕位置无关。

4．“快捷键” ：可在列表框中为每个命令选择快捷键。

5．“帮助上下文ID” 。

允许为context ID 指定唯一数值。

在HelpFile 属性指定的帮助文件中用该数值查找适当的帮助主题。

6．“协调位置” ：该列表框中共有四个可选项，他们决定是否及如何在容器窗体中显示菜单。

7．“复选” ：允许在菜单项的左边设置复选标记。

通常用它来指出切换选项的开关状态。

8．“有效” ：由此选项可决定是否让菜单项对事件做出响应，而如果希望该项失效并以浅灰色显示出来，则也可取消对该复选框的选用。

9．“可见”：决定是否将菜单项显示在菜单上。

10．“显示窗口列表” ：在MDI 应用程序中，确定菜单控件是否包含一个打开的MDI 子窗体列表。

[荐]如何使用VB6.0做一个文本编辑器!

[荐]如何使用VB6.0做一个文本编辑器!记事本第一章让我们的记事本马上运行急于求成是初学者共有的心愿。

那好，请按如下三个步骤做，我们的愿望立即就可以实现！步骤一：绘制界面。

新建一个标准EXE工程，将其Caption属性改为“超级记事本”，点击Icon属性给它找个合适的Icon图标。

单击菜单“工程”-“部件”，在弹出的“部件”对话框里找到MicrosoftRichTextBox 6.0和公共对话框Microsoft CommonDialog6.0并选中它们，单击“确定”按钮。

这时左边的工具栏上出现了我们刚才新添的两个控件了。

在窗体上绘制RichT extBox和CommnDialog，其中RichTextBox的大小和位置可不用理睬，我们将在代码中处理它，当然，有必要把它的ScrollBar属性设为2-rtfVertical，这样在打开和编辑文件时垂直滚动条才可用。

步骤二：编辑菜单。

按Ctrl+E调出菜单编辑器，我们来做如下几个菜单：一.文件菜单：文件（第一层） mnuFile新建（第二层） mnuNew打开（第二层） mnuOpen保存（第二层） mnuSave- （第二层） mnuFileSep (分隔线）退出（第二层） mnuExit二.编辑菜单：编辑（第一层） mnuEdit复制（第二层） mnuCopy剪切（第二层） mnuCut粘贴（第二层） mnuPaste- （第二层） mnuEditSep （分隔线）全选（第二层） mnuSelecAll三.搜索菜单：搜索（第一层） mnuSearch查找（第二层） mnuFind查找下一个（第二层） mnuFindOn四.帮助菜单：帮助（第一层） mnuHelp使用说明（第二层） mnuUsage关于（第二层） mnuAbout(注：各菜单项的快捷键请自行设置)好了，其它的菜单项以后再根据需要添加。

现在进入：步骤三：编写代码。

'声明查找变量Dim sFind As String'声明文件类型Dim FileType, FiType As String '初始化程序Private Sub Form_Load()'设置程序启动时的大小Me.border='1' Height = 6000 Me.Width = 9000End Sub'设置编辑框的位置和大小Private Sub Form_Resize()On Error Resume Next '出错处理RichTextBox1.Top=20RichTextBox1.center=20RichTextBox1.border='1' Height = Scaleborder='1' Height-40RichTextBox1.Width = ScaleWidth-40End Sub'新建文件Private Sub mnuNew_Click()RichTextBox1.Text = "" '清空文本框FileName = "未命名"Me.Caption = FileNameEnd Sub'打开文件Private Sub mnuOpen_Click()CommonDialog1.Filter="文本文档(*.txt) *.txt RTF文档(*.rtf) *.rtf 所有文件(*.*) *.*"CommonDialog1.ShowOpenRichTextBox1.Text = "" '清空文本框FileName = CommonDialog1.FileNameRichTextBox1.LoadFile FileNameMe.Caption = "超级记事本：" & FileNameEnd Sub'保存文件Private Sub mnuSave_Click()CommonDialog1.Filter="文本文档(*.txt) *.txt RTF文档(*.rtf) *.rtf 所有文件(*.*) *.*"CommonDialog1.ShowSaveFileType = CommonDialog1.FileTitleFiType = LCase(center(FileType, 3))FileName = CommonDialog1.FileNameSelect Case FiTypeCase "txt"RichTextBox1.SaveFile FileName, rtfT ext Case "rtf"RichTextBox1.SaveFile FileName, rtfRTF Case "*.*"RichTextBox1.SaveFile FileNameEnd SelectMe.Caption = "超级记事本：" & FileName End Sub'退出Private Sub mnuExit_Click()EndEnd Sub'复制Private Sub mnuCopy_Click() Clipboard.ClearClipboard.SetText RichTextBox1.SelTextEnd Sub'剪切Private Sub mnuCut_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelText RichTextBox1.SelText = ""End Sub'全选Private Sub mnuSelectAll_Click() RichTextBox1.SelStart = 0RichTextBox1.SelLength = Len(RichTextBox1.T ext) End Sub'粘贴Private Sub mnuPaste_Click()RichTextBox1.SelText = Clipboard.GetTextEnd Sub'查找Private Sub mnuFind_Click()sFind = InputBox("请输入要查找的字、词：", "查找内容", sFind)RichTextBox1.Find sFindEnd Sub'继续查找Private Sub mnuFindOn_Click()RichTextBox1.SelStart = RichTextBox1.SelStart+RichTextBox1.SelLength + 1RichTextBox1.Find sFind, , Len(RichTextBox1)End Sub'使用说明Private Sub mnuReadme_Click()On Error GoTo handlerRichTextBox1.LoadFile "Readme.txt",rtfText'请写好Readme.txt文件并存入程序所在文件夹中Me.Caption = "超级记事本：" & "使用说明"Exit Subhandler:MsgBox "使用说明文档可能已经被移除，请与作者联系。

VB6编程步骤-全部

VB6编程步骤题目要求1.新建工程，在工程中新建2个窗体和1个模块，窗体命名为frmMain和frmConfig，添加Excel操作专用模块。

2.执行菜单命令“工具-选项-编辑器格式”，设置标准文本的字体格式为自己喜欢的格式，执行菜单命令“工具-选项-编辑器”，“要求变量声明”前打勾3.设置工程1的属性，修改启动对象为Sub Main，在module1中添加Sub Main过程，并输入代码：frmMain.Show vbModal。

在frmMain上添加一个退出按钮，设置其合适的大小和字体，双击该按钮，输入“Unload Me”。

4.在frmMain窗体上放置“参数设定”按钮，修改合适的外观属性，双击该按钮，输入代码“frmConfig.showvbmodal”5.参数设定编程方法：（1）在module1模块中，定义保存参数的自定义变量Public Type mSetData ' 自定义数据类型：设置参数，用于保存到磁盘文件中TH As Single ' 温度高限TL As Single ' 温度低限RHH As Single ' 湿度高限RHL As Single ' 湿度低限End TypePublic mAlarm As mSetData ' 用自定义类型mSetData 定义设置参数变量mAlarmPublic sAppPath As String ' 字符串，存放应用程序所在的路径（2）在module1模块中创建一个初始化过程Init，代码如下Sub Init()sAppPath = "E:\软件技术基础\TR" '应用程序路径Open sAppPath & "\Para.a" For Random As #1 Len = Len(mAlarm) ' 打开随机方式访问文件Get #1, 1, mAlarm ' 读取文件内容到变量中Close #1 '关闭文件End Sub在sub Main 中调用Init 过程Sub main()Init ' 初始化，读取原设置参数frmMain.Show vbModal ' 启动主窗体，有模式窗体End Sub（3）设置frmConfig窗体的界面。

VB6.0内置的PopupMenu方法

继续执行。

并且，一次只能激活一个弹出式菜单，当已经有一个弹处菜单被激活或已经有一个下拉菜单被打开时，对PopupMenu方法的调用将被忽略。

下面的例子演示当用户在表单上点击鼠标右键时，在鼠标点处显示弹出式菜单。

欲试验此例子，建立一个表单，在表单中建立一个菜单控件，将其命名为mnuFile（mnuFile菜单至少包含一个子菜单）。

在表单的声明（Declaration）区域加入如下代码：
Private Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu mnuFile
End If
End Sub
PopupMenu方法是VB6.0内置的方法，使用起来方便简单，但该方法有一个不足，即当点击鼠标弹出菜单后，如果不选择菜单项而在其他位置点击鼠标，则菜单并不会在新的鼠标点处显示。

这虽然不至于影响应用程序的功能，但却降低了易用性。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

VB 6.0 ：菜单编辑器的用法
做VB 项目时经常需要用菜单编辑器来创建自己需要的菜单，因此需要对其具体用法非常娴熟。

下面把从网上下载过来的资料结合自己使用的体会整理出一份文档以供日后参考。

附加以下图片以帮助说明与理解。

图片：菜单编辑器的使用
在出现VB6.0窗体的情况下,在菜单中选“工具”,再在其下拉菜单下选“菜单编辑器”。

然后按如下说明操作:
一．“菜单编辑器”对话框。