精华内容
下载资源
问答
  • Vb自定义右键菜单,调用保存、打开对话框,在菜单编辑器中,创建一级菜单,菜单标题为PopupMenu 名称为b,创建三个二级菜单,标题为选项1,名称xuanxiang1,……在编辑菜单,将“可见”对勾去掉。  MouseDown事件...
  • 3.在VB中可以建立 菜单和 菜单 4.菜单编辑器可分为3个部分即 5.如果要把某个菜单项设计为分隔线则该菜单项的标题应设置为 6.在菜单编辑器中菜单项后面4个小点的含义是 7.建立弹出式菜单所使用的方法是 ; 1.为了把...
  • 谢谢大家的阅读,希望能帮到有这方面需要的朋友,如有不明白,也可以再贴下提问,如有好的方法,在贴下分享!!!呵呵,完稿了, 有一个现成的做好的附件,补充一下附件里的一个安装方法 安装方法: 第一步:把下载...
  • vb6集成环境on error错误处理代码添加插件。...将要处理代码编辑器窗口打开,保持活动窗口状态,然后点击菜单“外接程序-Insert Error Hand”即可。 ps:插件会只会处理保持活动窗口代码编辑区 代码参考: ...
  • (8)“工具”菜单:用于启动菜单编辑器和配置环境选项命令,还包含建立ActiveX构件和ActiveX控件时所需要的命令。 (9)“插入”菜单:用于启动数据管理器和外接程序管理器的命令。 (10)“窗口”菜单:用于布局...
  • 3.这样你的菜单“外接程序”就会多出“Insert Error Hand”这一项 使用方法: 将要处理代码编辑窗口打开,然后点击菜单“外接程序-Insert Error Hand” ps:插件会只会处理已经打开的代码编辑窗口 请随时到...
  • 一).创建部署项目 1. 在“文件”菜单上指向“添加项目”,然后选择“新建项目”。... 项目被添加到解决方案资源管理器,并且文件系统编辑器打开。 5. 在“属性”窗口,选择 ProductName 属性,并键

    一).创建部署项目 
    1. 在“文件”菜单上指向“添加项目”,然后选择“新建项目”。 
    2. 在“添加新项目”对话框中,选择“项目类型”窗格中的“安装和部署项目”,然后选择“模板”窗格中的“安装项目”。在“名称”框中键入 setup1。 
    3. 单击“确定”关闭对话框。 
    4. 项目被添加到解决方案资源管理器中,并且文件系统编辑器打开。 
    5. 在“属性”窗口中,选择 ProductName 属性,并键入 信息管理系统 。

    二).将 主程序 项目的输出添加到部署项目中 
    1. 在“文件系统编辑器”中,选择“应用程序文件夹”。在“操作”菜单上,指向“添加”,然后选择“项目输出”。 
    2. 在“添加项目输出组”对话框中,选择“项目”下拉列表中的“你的程序”。 
    3. 单击“确定”关闭对话框。 
    4. 从列表中选择“主输出”和“内容文件”组,然后单击“确定”。

    三).创建安装程序类 
    1. 在“文件”菜单上指向“新建”,然后选择“项目”。 
    2. 在“新建项目”对话框中,选择“项目类型”窗格中的“Visual Basic 项目”,然后选择“模板”窗格中的“类库”。在“名称”框中键入 installDB。 
    3. 单击“打开”关闭对话框。 
    4. 从“项目”菜单中选择“添加新项”。 
    5. 在“添加新项”对话框中选择“安装程序类”。在“名称”框中键入 installDB。 
    6. 单击“确定”关闭对话框。 
    7. 详细代码附后。

    四).创建自定义安装对话框 
    1. 在解决方案资源管理器中选择“setup1”项目。在“视图”菜单上指向“编辑器”,然后选择“用户界面”。 
    2. 在用户界面编辑器中,选择“安装”下的“启动”节点。在“操作”菜单上,选择“添加对话框”。 
    3. 在“添加对话框”对话框中,选择“许可协议”对话框,然后单击“确定”关闭对话框。 
    4. 在“添加对话框”对话框中,选择“文本框 (A)”对话框,然后单击“确定”关闭对话框。 
    5. 在“操作”菜单上,选择“上移”。重复此步骤,直到“文本框 (A)”对话框位于“安装文件夹”节点之上。 
    6. 在“属性”窗口中,选择 BannerText 属性并键入:安装数据库. 
    7. 选择 BodyText 属性并键入:安装程序将在目标机器上安装数据库 
    8. 选择 Edit1Label 属性并键入:数据库名称: 
    9. 选择 Edit1Property 属性并键入 CUSTOMTEXTA1 
    10. 选择 Edit1Value 属性并键入:dbservers 
    11. 选择 Edit2Label 属性并键入:服务器名: 
    12. 选择 Edit2Property 属性并键入 CUSTOMTEXTA2 
    13. 选择 Edit2Value 属性并键入:(local) 
    14. 选择 Edit3Label 属性并键入:用户名: 
    15. 选择 Edit3Value 属性并键入:sa 
    16. 选择 Edit3Property 属性并键入 CUSTOMTEXTA3 
    17. 选择 Edit4Label 属性并键入:密码: 
    18. 选择 Edit4Property 属性并键入 CUSTOMTEXTA4 
    19. 选择 Edit2Visible、Edit3Visible 和 Edit4Visible 属性,并将它们设置为 true

    五).创建自定义操作 
    1. 在解决方案资源管理器中选择“setup1”项目。在“视图”菜单上指向“编辑器”,然后选择“自定义操作”。 
    2. 在自定义操作编辑器中选择“安装”节点。在“操作”菜单上,选择“添加自定义操作”。 
    3. 在“选择项目中的项”对话框中,双击“应用程序文件夹”。 
    4. 选择“主输出来自 installDB(活动)”项,然后单击“确定”关闭对话框。 
    5. 在“属性”窗口中,选择 CustomActionData 属性并键入“/dbname=[CUSTOMTEXTA1] /server=[CUSTOMTEXTA2] /user=[CUSTOMTEXTA3] /pwd=[CUSTOMTEXTA4] /targetdir="[TARGETDIR]/"”。

    附:/targetdir="[TARGETDIR]/"是安装后的目标路径,为了在installDB类中获得安装后的路径,我们设置此参数。

    六).添加文件 
    1. 将SQL Server备份成文件DB.dat添加到“setup1”项目(在企业管理器中右击数据库->所有工作->备份数据库,备份成一个文件,取名为DB.dat) 
    2. 将安装文件LisenceFile.rtf添加到“setup1”项目 
    3. 在用户界面编辑器中,选择许可协议,设置LisenceFile属性为LisenceFile.rtf文件 
    4.一般会自动将依赖项添加到“检测到的依赖项”,如果没有,那么我们要手动将其加入步骤5) 
    Crystal_Managed2003.msm (如果有水晶报表) 
    dotnetfxredist_x86.msm (.net一定是必须的) 
    ... (如果有引用其他的dll) 
    5.如果使用了水晶报表,手动加入要包含的文件:项目-->添加-->合并模块(添加你的程序文件) (包括dotNetFramework和MDAC27),位于:C:/Program Files/Common Files/Merge Modules/ 下,*为必要的 
    具体功能如下: 
    (托管组件 MSM 处理所有托管组件的分发,其中包括 Windows 窗体查看器、Web 窗体查看器和所有 Crystal Decisions 命名空间) 
    * Crystal_Managed2003.msm 
    Crystal_Managed2003_chs.msm 
    (对于使报表运行所需的所有其他文件,由数据库访问 MSM 处理其分发。其中包括数据库、导出和图表驱动程序。) 
    * Crystal_Database_access2003.msm 
    Crystal_Database_access2003_chs.msm 
    (KeyCode MSM 处理 Crystal Decisions 密钥号码的安装,注意是添加合并模块,否则没有“MergeMouduleProperties”属性) 
    * Crystal_regwiz2003.msm 
    (如果报表文件使用了 ADO.NET 的 dataset 数据集对象,那么 VC_User_CRT71_RTL_X86_---.msm 和 VC_User_STL71_RTL_X86_---.msm 模块也必须包含在安装工程中。而且这两个模块的文件安装属性的"Module Retargetable Folder"项必须修改成为系统目录) 
    VC_User_CRT71_RTL_X86_---.msm 
    VC_User_STL71_RTL_X86_---.msm 
    (很多人经常出现查询错误,不妨加上这个) 
    5.打开解决方案-->右键点击Crystal_regwiz2003.msm的属性,在“MergeMouduleProperties”里的“License Key”填入:AAP5GKS0000GDE100DS(这个是你生成Crystal Report是用到的注册号的密码!)

    七).打包時加入卸载功能: 
    方法一: 
    1.在打包項目中添加文件msiexec.exe(一般可在c:/windows/system32/下找到) 
    2.在文件系統視圖中選擇應用程序文件夾,在msiexec.exe上按右鍵,選擇創建快捷方式,重命名快捷方式為"卸载". 
    3.更改此快捷方式的Arguments 为"/x {產品id}",產品id的值為打包項目的ProductCode屬性值. 
    方法二:(推荐) 
    1.先生成安装包,记下ProductCode(选择解决方案资源管理器根目录如setup1,再查看属性标签,不是右键中的属性),下面要用到 
    2.用VS.net建立一个新的控制台程序uninst.exe文件 
    'power by: landlordh 
    'for 2000,xp,2003 
    Module uninstall 
    Sub Main() 
    Dim myProcess As Process = New Process 
    If System.Environment.OSVersion.ToString.IndexOf("NT 5") Then 
    myProcess.Start("msiexec", "/X{2B65D4A9-C146-4808-AB4B-321FB0779559}") '改为自己的ProductCode 
    End If 
    myProcess.Close() 
    End Sub 
    End Module 
    3.将控制台程序BIN目录的exe文件加入到打包程序文件中,在程序组创建uninst.exe的快捷方式

    附: 
    installdb.vb类,要添加引用 system.configuration.install.dll :

    Imports System.ComponentModel 
    Imports System.Configuration.Install

    Public Class Installer1 
    Inherits System.Configuration.Install.Installer

    #Region " 组件设计器生成的代码 "

    Public Sub New() 
    MyBase.New()

    '该调用是组件设计器所必需的。 
    InitializeComponent()

    '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    'Installer 重写 dispose 以清理组件列表。 
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) 
    If disposing Then 
    If Not (components Is Nothing) Then 
    components.Dispose() 
    End If 
    End If 
    MyBase.Dispose(disposing) 
    End Sub

    '组件设计器所必需的 
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是组件设计器所必需的 
    '可以使用组件设计器来修改此过程。 
    '不要使用代码编辑器来修改它。 
    Private Sub InitializeComponent() 
    components = New System.ComponentModel.Container 
    End Sub

    #End Region

    Public Overrides Sub Install(ByVal stateSaver As System.Collections.IDictionary) 
    MyBase.Install(stateSaver) 
    If Not InstallDB() Then 
    '失败,反安装 
    Me.Uninstall(stateSaver) 
    Exit Sub 
    End If 
    DeleteFile(String.Format("{0}DB.dat", Me.Context.Parameters.Item("targetdir"))) 
    End Sub

    Public Overrides Sub Uninstall(ByVal stateSaver As System.Collections.IDictionary) 
    '执行反安装 
    MyBase.Uninstall(stateSaver) 
    DeleteFile(String.Format("{0}DB.dat", Me.Context.Parameters.Item("targetdir"))) 
    End Sub

    Private Sub DeleteFile(ByVal paths As String) 
    '删除指定的文件 
    Try 
    Dim delFile As New System.IO.FileInfo(paths) 
    If delFile.Exists Then 
    delFile.Delete() 
    End If 
    Catch ex As Exception 
    End Try 
    End Sub

    Private Sub CreateSql(ByVal paths As String) 
    Dim File As System.IO.StreamWriter 
    Dim db As String = String.Format("{0}", Me.Context.Parameters.Item("dbname")) 
    Dim path As String = String.Format("{0}", Me.Context.Parameters.Item("targetdir")) 
    Try 
    Dim s As New System.Text.StringBuilder 
    s.Append("use master" & vbCrLf) 
    s.Append("" & vbCrLf) 
    s.Append("if not exists (select * from sysdatabases where name='" & db & "')" & vbCrLf) 
    s.Append(" BEGIN" & vbCrLf) 
    s.Append(" create database " & db & vbCrLf) 
    s.Append(" END" & vbCrLf) 
    s.Append("" & vbCrLf) 
    s.Append("if exists (select * from sysdevices where name='DBdisk')" & vbCrLf) 
    s.Append(" BEGIN" & vbCrLf) 
    s.Append(" EXEC sp_dropdevice 'DBdisk'" & vbCrLf) 
    s.Append(" END" & vbCrLf) 
    s.Append("Else" & vbCrLf) 
    s.Append(" BEGIN" & vbCrLf) 
    s.Append(" EXEC sp_addumpdevice 'disk','DBdisk', '" & path & "DB.dat'" & vbCrLf) 
    s.Append(" END" & vbCrLf) 
    s.Append("" & vbCrLf) 
    s.Append("restore database " & db & vbCrLf) 
    s.Append("from disk='" & path & "DB.dat'" & vbCrLf) 
    s.Append("with replace") 
    File = New System.IO.StreamWriter(paths) 
    File.Write(s.ToString) 
    Catch ex As Exception 
    Finally 
    File.Close() 
    End Try 
    End Sub

    Private Function InstallDB() As Boolean 
    '安装数据库,调用自动批处理。 
    Try 
    '创建临时脚本 
    CreateSql(String.Format("{0}Mydb2000tp.sql", Me.Context.Parameters.Item("targetdir"))) 
    '调用osql执行脚本 
    Dim sqlProcess As New System.Diagnostics.Process 
    sqlProcess.StartInfo.FileName = "osql.exe" 
    sqlProcess.StartInfo.Arguments = String.Format(" -U {0} -P {1} -S {2} -i {3}Mydb2000tp.sql", Me.Context.Parameters.Item("user"), Me.Context.Parameters.Item("pwd"), Me.Context.Parameters.Item("server"), Me.Context.Parameters.Item("targetdir")) 
    sqlProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden 
    sqlProcess.Start() 
    sqlProcess.WaitForExit() '等待执行 
    sqlProcess.Close() 
    '删除脚本文件 
    DeleteFile(String.Format("{0}Mydb2000tp.sql", Me.Context.Parameters.Item("targetdir"))) 
    Return True 
    Catch ex As Exception 
    Return False 
    End Try 
    End Function

    End Class

    展开全文
  • VB程序设计及应用

    2012-11-26 14:07:12
    0.1.4 菜单编辑器 10.2 下拉菜单设计 10.3 菜单项控制 10.3.1 有效性控制 10.3.2 菜单项标记 10.3.3 菜单项增减 10.4 弹出式菜单 实训 习题 第 11章 文件 11.1 文件系统控件 11.1.1 驱动器列表...
  • vb控件开发 开发ocx

    热门讨论 2011-02-28 16:12:16
    01 , 01.txt 《 VB6.0中通过MSChart控件调用数据库 》 02 , 02.txt 《 用VB6实现动态增减控件 》 ...直接编辑VB中网格控制项两种方法 86 , 86.txt 自制IE风格按纽控件 87 , 87.txt 自制控件方面有关知识<END>
  • VB编程资源大全

    2007-10-17 20:47:23
    tbicon.ZIP 在任务条右边出现动画图标(2KB) 34,adjust.ZIP 内部边框调整, 如同资源管理器里左右窗口调整例子 (2KB) 35,midnote.ZIP 本程序演示一个用 mid 窗口实现的编辑器,并能防止打开多个...
  • 将要处理代码编辑器窗口打开,保持活动窗口状态,然后点击菜单“外接程序-Insert Error Hand”即可。 ps:插件会只会处理保持活动窗口代码编辑区代码如下:'描述:VB6 IDE 函数过程错误处理代码添加

    插件下载地址(请下载最新版v1.0.5):

    http://code.google.com/p/vsaddin/downloads

     

    安装方法:
    1.点击菜单“工程-引用”,选择这个dll
    2.然后点击菜单“外接程序-外接程序管理器”,选择“Insert Error Hand”,把右下角两个框框都勾起来
    3.这样你的菜单“外接程序”中就会多出“Insert Error Hand”这一项

    使用方法:
    将要处理的代码编辑窗口打开,然后点击菜单“外接程序-Insert Error Hand”

    ps:插件会只会处理已经打开的代码编辑窗口

     

    主要代码如下:

               

     

     

     

    v1.0.6设置窗口预览:

     

     

    展开全文
  • mid 窗口实现的编辑器,并能防止打开多个实例(32KB) 37,f020.ZIP 在VB中调用HELP文件并实现Winhelp关键字、主题等功能(16KB) 38,f019.ZIP 如何在VB中分割一个文件并组装恢复它(18KB) 39,f018.ZIP...
  • VB编程资源大全(源码 网络)

    热门讨论 2007-10-17 22:54:27
    (73KB) 121,i012.zip 如何在vb中调用i/o口例子(10KB) 122,i011.zip 演示连接/断开network(3KB) 123,i010.zip chat程序例子(12KB) 124,i009.zip 简单邮件发送例子 (13KB) 125,i008....
  • prnprv3.zip 在vb5/6中增加打印预览功能(78KB) 662,vbprint.zip vb中使用打印功能add-in(764KB) 663,spool.zip 打印文件例子(5KB) 664,versioninfo.zip 从dll或exe文件中获得版本信息(3KB)...
  • prnprv3.zip 在vb5/6中增加打印预览功能(78KB) 662,vbprint.zip vb中使用打印功能add-in(764KB) 663,spool.zip 打印文件例子(5KB) 664,versioninfo.zip 从dll或exe文件中获得版本信息(3KB)...
  • prnprv3.zip 在vb5/6中增加打印预览功能(78KB) 662,vbprint.zip vb中使用打印功能add-in(764KB) 663,spool.zip 打印文件例子(5KB) 664,versioninfo.zip 从dll或exe文件中获得版本信息(3KB)...
  • prnprv3.zip 在vb5/6中增加打印预览功能(78KB) 662,vbprint.zip vb中使用打印功能add-in(764KB) 663,spool.zip 打印文件例子(5KB) 664,versioninfo.zip 从dll或exe文件中获得版本信息(3KB)...
  • 这是一个共享控件,如果要获得它单用户协议版本就要$199(51KB) 47,actskin.ZIP 利用这个控件可以建立超Cool窗口,利用该控件可以为窗口添加不同Skin,另外压缩包还附带了Skin编辑器(539KB) 48,...
  • 这是一个共享控件,如果要获得它单用户协议版本就要$199(51KB) 47,actskin.ZIP 利用这个控件可以建立超Cool窗口,利用该控件可以为窗口添加不同Skin,另外压缩包还附带了Skin编辑器(539KB) 48,...
  • 这是一个共享控件,如果要获得它单用户协议版本就要$199(51KB) 47,actskin.ZIP 利用这个控件可以建立超Cool窗口,利用该控件可以为窗口添加不同Skin,另外压缩包还附带了Skin编辑器(539KB) 48,...
  • 这是一个共享控件,如果要获得它单用户协议版本就要$199(51KB) 47,actskin.ZIP 利用这个控件可以建立超Cool窗口,利用该控件可以为窗口添加不同Skin,另外压缩包还附带了Skin编辑器(539KB) 48,...
  • UltraEdit 是一套功能强大文本编辑器,可以编辑文本、十六进制、ASCII 码,可以取代记事本,内建英文单字检查、C++ 及 VB 指令突显,可同时编辑多个文件,而且即使开启很大文件速度也不会慢。软件附有 HTML 标签...
  • UltraEdit 是一套功能强大文本编辑器,可以编辑文本、十六进制、ASCII 码,可以取代记事本,内建英文单字检查、C++ 及 VB 指令突显,可同时编辑多个文件,而且即使开启很大文件速度也不会慢。软件附有 HTML 标签...
  • UltraEdit 是一套功能强大文本编辑器,可以编辑文本、十六进制、ASCII 码,可以取代记事本,内建英文单字检查、C++ 及 VB 指令突显,可同时编辑多个文件,而且即使开启很大文件速度也不会慢。软件附有 HTML 标签...
  • UltraEdit 是一套功能强大文本编辑器,可以编辑文本、十六进制、ASCII 码,可以取代记事本,内建英文单字检查、C++ 及 VB 指令突显,可同时编辑多个文件,而且即使开启很大文件速度也不会慢。软件附有 HTML 标签...
  • EXCEL :添加日历控件

    2011-12-21 13:05:00
    1.在EXCEL进入VBA状态,有如下几种方法: 1)工具—>宏—>...Visual Basic编辑器5)绘制控件后双击控件6)如果已经打开VB编辑器,可用Alt + TAB方式切换到VB编辑器窗口 2.单击工具菜单中的...

    1.在EXCEL中进入VBA状态,有如下几种方法:

    1)工具—>宏—>Visual Basic编辑器
    2)Alt + F11
    3)在工作表标签处点击右键,选择查看代码
    4)窗口—>工具栏—>Visual Basic工具栏—>Visual Basic编辑器
    5)绘制控件后双击控件
    6)如果已经打开VB编辑器,可用Alt + TAB方式切换到VB编辑器窗口

    2.单击工具菜单中的引用,在弹出的对话框中单击浏览,找到日历控件之后(前提是你系统中有这个日历控件),单击打开即可。

    3.若没有,目前还没找到2010office的日历控件。。。。。

     

    转载于:https://www.cnblogs.com/CiWEi-/archive/2011/12/21/2295703.html

    展开全文
  • VBA 调用DLL动态链接库

    2015-09-06 11:14:00
    在ArcMap引用动态链接库 我在VB6下编译生成了一个动态链接库文件VBAPrj.dll,其中有一类模块VBACls,...1.打开VBA编辑器,点"工具"菜单"引用"命令,在引用对话框引用该动态链接库。 调用代码如下: Dim...

    在ArcMap中引用动态链接库
           我在VB6下编译生成了一个动态链接库文件VBAPrj.dll,其中有一类模块VBACls,此类模块有一个方法Test(Doc As Object)。
            常见的方法有三种(作者:张业新):

    1.打开VBA编辑器,点"工具"菜单下的"引用"命令,在引用对话框中引用该动态链接库。
            调用代码如下:
             Dim VBACls As New VBAPrj.VBACls
             VBACls.Test(ThisDocument) 
      2.如果知道该动态链接库文件的位置,可以在ThisDocument代码窗口以代码形式引用, 代码如下:
             Private Sub Document_Open()
                       On Error Resume Next
                       Me.VBProject.References.AddFromFile "D:\VBAPrj.dll"
             End Sub
        3.将动态链接库文件拷贝到文档同一目录下,可在ThisDocument代码窗口中建立如下引用函数:
              Private Function GetProjectDoc() As Object
                     On Error Resume Next
                     Dim VBACls As Object
                     Set VBACls = CreateObject("VBAPrj.VBACls")
                     If VBACls Is Nothing Then
                  MsgBox "VBAPrj.dll必须和文档在同一目录下!"
                  Exit Function
                    End If
                    Set GetProjectDoc = VBACls
             End Function
            然后以以下代码形式调用Test:
             Dim objPrjDoc As Object
             Set objPrjDoc = GetProjectDoc
             Call objPrjDoc.Test(ThisDocument)
             Set objPrjDoc = Nothing
           使用第一种方法调试提示找不到类库,第二种方法我没试过,用了第三种方法调试成功。我也觉得第三种还是蛮好的,除了多几行代码。成功调用DLL后原来很多在VB下写的东东简单改一下就可以在VBA下用了,效率又高,保密性又好

    转载于:https://www.cnblogs.com/lbnnbs/p/4784950.html

    展开全文
  • UltraEdit 是一套功能强大文本编辑器,可以编辑文本、十六进制、ASCII 码,可以取代记事本,内建英文单字检查、C++ 及 VB 指令突显,可同时编辑多个文件,而且即使开启很大文件速度也不会慢。软件附有 html 标签...
  • UltraEdit-32绿色版

    热门讨论 2012-01-31 01:08:38
    我们可以打开一个文件,然后选择“Edit”菜单下的“Hex Edit”,文件就变为十六进制的了,做了相应的修改后,你可以用同样的方法将退出十六进制编辑状态。  2. 多文件的查找和替换  UltraEdit支持多文件的...
  • 第16章介绍了使用VB开发AutoCAD一些知识(将VBA代码转换到VB中,VB窗体和AutoCAD焦点切换,使用ActiveXDLL封装带有窗体VB程序)、搜索某个文件夹中所有文件和VBAIDE编程,利用这些知识,完全有可能开发出...

空空如也

空空如也

1 2 3 4 5
收藏数 83
精华内容 33
关键字:

vb中打开菜单编辑器的方法