使用插件功能扩展VB
摘要：本文通过实例介绍如何开发一个VB的插件来扩展VB的应用。包括如何实现插件与VB开发环境的连接，控制VB开发环境，以及简要介绍插件对象的结构。
文章内容
一、插件介绍
从结构上来看，一个VB插件实际上是一个COM组件，原则上组件可以使用支持COM的开发工具，例如Delphi、VC来编写。组件通过实现COM中的IDTExtensibility对象来建立与VB的连接。组件注册以后，当VB运行中在Add-In菜单中装载组件后，VB就会调用组件中IDTExtensibility对象中的相应方法（如在装载组件后会调用OnConnection方法）。这时整个插件就成为VB的一部分从而可以访问VB开发环境中的各种对象和资源了。
利用VB本身来编写插件是一个很好的办法，首先通过VB可以快速建立一个IDTExtensibility对象框架（当然在VB中不叫这个名称）；其次VB对于整个开发环境都提供了相应的对象供插件访问和控制，而使用插件的主要目的就是通过插件来控制宿主程序；最后是调试十分的方便，可以直接运行看结果，不需要编译注册。
二、建立程序框架
首先我们来建立程序框架，以下的代码和说明都是使用Win2K+VB6中文企业版完成的，在VB英文版以及Win9X下运行通过只是程序中对于界面的说明根据不同的VB会有不同。
打开VB，点击菜单中的 文件 | 新建 项，在 新建工程 窗口中选择“外接程序” 项（在英文版中是Addin），然后点击确定按钮建立插件工程。
建立完毕后在工程列表窗口中可以看到新工程的名称为MyAddIn。其中包含两个对象，在窗体类中包含frmAddIn窗体，在设计器类中包含Connect设计器对象。VB已经为插件设立了一个基本框架，下面按F5运行插件并将VB主窗口最小化。然后再打开一个VB程序，在其中建立一个标准 Exe工程。点击菜单的 外接程序 | 外接程序管理器 项。在打开的外接程序管理器窗口的列表中可以看到其中有一个My Add-In 项，点击该项，然后将下面 加载行为（英文版中是Load Behavior） 区域中的三个复选框都选中后点击确定按钮装载插件。然后再点击“外接程序” 菜单，再点击其中新添加的 My AddIn 项。可以看到插件弹出一个窗体，点击“确定”按钮可以获得VB运行的目录，点击“取消”按钮关闭窗体。
接下来再次打开外接程序管理器窗口。选中 My Add-In项，将 加载行为 区域中的三个复选框中的对勾去掉。然后回到运行插件的VB程序，点击停止按钮停止插件的执行。
回到插件工程中，我们主要来看Connect对象，打开Connect对象的代码窗口。可以看到其中包含两个对象：AddinInstance和MenuHandler。其中AddInstance是工程中实现同VB接口的对象。在程序中对应AddInstance包含两个方法：OnConnection和OnDisconnection。在这里我们称它们为方法而不是事件，是因为它们是由VB调用而不是由某个消息引发而由系统调用的。
OnConnection方法在插件装载使被调用，其中的参数Application是调用插件的VB实例对象。这个对象是一个VBE类对象。由VB传递给插件插件就可以通过Application对象访问和控制调用自己的VB实例。其中比较重要的是这一段：
If ConnectMode = ext_cm_External Then
Me.Show
Else
Set mcbMenuCommandBar = AddToAddInCommandBar("AddInSample")
Set Me.MenuHandler = VBInstance. Events. CommandBarEvents (mcbMenuCommandBar)
End If
摘要：本文通过实例介绍如何开发一个VB的插件来扩展VB的应用。包括如何实现插件与VB开发环境的连接，控制VB开发环境，以及简要介绍插件对象的结构。
文章内容
一、插件介绍
从结构上来看，一个VB插件实际上是一个COM组件，原则上组件可以使用支持COM的开发工具，例如Delphi、VC来编写。组件通过实现COM中的IDTExtensibility对象来建立与VB的连接。组件注册以后，当VB运行中在Add-In菜单中装载组件后，VB就会调用组件中IDTExtensibility对象中的相应方法（如在装载组件后会调用OnConnection方法）。这时整个插件就成为VB的一部分从而可以访问VB开发环境中的各种对象和资源了。
利用VB本身来编写插件是一个很好的办法，首先通过VB可以快速建立一个IDTExtensibility对象框架（当然在VB中不叫这个名称）；其次VB对于整个开发环境都提供了相应的对象供插件访问和控制，而使用插件的主要目的就是通过插件来控制宿主程序；最后是调试十分的方便，可以直接运行看结果，不需要编译注册。
二、建立程序框架
首先我们来建立程序框架，以下的代码和说明都是使用Win2K+VB6中文企业版完成的，在VB英文版以及Win9X下运行通过只是程序中对于界面的说明根据不同的VB会有不同。
打开VB，点击菜单中的 文件 | 新建 项，在 新建工程 窗口中选择“外接程序” 项（在英文版中是Addin），然后点击确定按钮建立插件工程。
建立完毕后在工程列表窗口中可以看到新工程的名称为MyAddIn。其中包含两个对象，在窗体类中包含frmAddIn窗体，在设计器类中包含Connect设计器对象。VB已经为插件设立了一个基本框架，下面按F5运行插件并将VB主窗口最小化。然后再打开一个VB程序，在其中建立一个标准 Exe工程。点击菜单的 外接程序 | 外接程序管理器 项。在打开的外接程序管理器窗口的列表中可以看到其中有一个My Add-In 项，点击该项，然后将下面 加载行为（英文版中是Load Behavior） 区域中的三个复选框都选中后点击确定按钮装载插件。然后再点击“外接程序” 菜单，再点击其中新添加的 My AddIn 项。可以看到插件弹出一个窗体，点击“确定”按钮可以获得VB运行的目录，点击“取消”按钮关闭窗体。
接下来再次打开外接程序管理器窗口。选中 My Add-In项，将 加载行为 区域中的三个复选框中的对勾去掉。然后回到运行插件的VB程序，点击停止按钮停止插件的执行。
回到插件工程中，我们主要来看Connect对象，打开Connect对象的代码窗口。可以看到其中包含两个对象：AddinInstance和MenuHandler。其中AddInstance是工程中实现同VB接口的对象。在程序中对应AddInstance包含两个方法：OnConnection和OnDisconnection。在这里我们称它们为方法而不是事件，是因为它们是由VB调用而不是由某个消息引发而由系统调用的。
OnConnection方法在插件装载使被调用，其中的参数Application是调用插件的VB实例对象。这个对象是一个VBE类对象。由VB传递给插件插件就可以通过Application对象访问和控制调用自己的VB实例。其中比较重要的是这一段：
If ConnectMode = ext_cm_External Then
Me.Show
Else
Set mcbMenuCommandBar = AddToAddInCommandBar("AddInSample")
Set Me.MenuHandler = VBInstance. Events. CommandBarEvents (mcbMenuCommandBar)
End If
温馨提示：内容为网友见解，仅供参考
第1个回答 2013-07-07
在 Visual Basic 操作界面中，CommandButton（命令按钮）控件所代表的图标
CommandButton 控件在程序中主要作为按钮进行使用。默认的名称为 CommandX（X为 1、2、3，等等），命名规则为 CmdX（X为用户自定义的名字，如 CmdCopy、CmdPaste ，等等）。
一、CommandButton 的主要属性：
1、Cancel（取消）属性：
当一个按钮的 Cancel 属性设置为 True 时，按 ESC 键与单击此命令按钮的作用相同，因此，这个命令按钮被称为取消按钮。
在一个窗体中2、Default（默认）属性：
当一个按钮的 Default 属性设置为 True 时，按回车键与单击此命令按钮的作用相同，因此，这个命令按钮被称为默认按钮。
与 Cancel 的设置一样，在一个窗体中，只允许一个命令按钮的 Default 属性设置为 True ，只允许一个命令按钮的 Cancel 属性为 True 。
3、Caption（标题）属性：
跟其他控件的 Caption 属性一样，都用来显示控件标题的属性。这里要强调的是，作为按钮控件，用户可以给按钮控件的 Caption 指定快捷方式。
方法是在按钮 Caption 属性中欲作为快捷键的字母前加上一个 “&” 符号，程序运行时，该字母的下面会自带一条下划线，同时按下 Alt 键和带有下划线的字母，功效相当于用鼠标点击该按钮。
4、Enabled（可用）属性：
本属性决定了控件是否可用的问题。当值为 False ，按钮在程序运行时呈灰色，不能响应用户的鼠标动作；只有当值为 True ，按钮才能使用。
本属性可以在设置界面时予以指定，
也可以在程序中修改，代码如下： 按钮控件名称.Enabled = True/False
例一：
两个命令按钮，按钮一（CmdEnable）初始状态为可用，按钮二（CmdFalse）初始状态不可用。点击按钮一，按钮二变为可用，按钮一变为不可用；点击按钮二，按钮一变为可用，按钮二变为不可用。
程序界面
程序代码如下：
按钮一：
Private Sub CmdEnable_Click()
CmdFalse.Enabled = True
CmdEnable.Enabled = False
End Sub按钮二：
Private Sub CmdFalse_Click()
CmdFalse.Enabled = False
CmdEnable.Enabled = True
End Sub5、Style（类型）与 Picture（图片）属性：
也许你想让应用程序的操作界面更美观一点，也许你想在某个按钮上添加幅小图片，那么，你就得使用到本控件的 Style 与 Picture 属性。
铵钮控件共有两种 Style ，一种是标准型（Standard），VB 中用 VbButtonStandard ，或者 0 表示；另外一种是图形型（Graphical），VB 中用 VbButtonGraphical ，或者 1 表示。
Style 属性可以在界面设置过程中予以指定，
也可以在程序中改变，代码如下：
按钮名称.Style = VbButtonStandard/VbButtonGraphical
或者：按钮名称.Style = 0/1
只有当按钮的 Style 设置为 Graphical 类型时，按钮的 Picture 属性才起作用。本属性能在指定的按钮上添加图片。
可以在界面设置过程中为按钮指定图片，
也可以在程序中进行指定，代码如下：
按钮名称.Picture = "图形文件所在的路径与文件名"，例如：CmdPicture.Picture = "D:\image\01.jpg"
CommandButton 控件在程序中主要作为按钮进行使用。默认的名称为 CommandX（X为 1、2、3，等等），命名规则为 CmdX（X为用户自定义的名字，如 CmdCopy、CmdPaste ，等等）。
一、CommandButton 的主要属性：
1、Cancel（取消）属性：
当一个按钮的 Cancel 属性设置为 True 时，按 ESC 键与单击此命令按钮的作用相同，因此，这个命令按钮被称为取消按钮。
在一个窗体中2、Default（默认）属性：
当一个按钮的 Default 属性设置为 True 时，按回车键与单击此命令按钮的作用相同，因此，这个命令按钮被称为默认按钮。
与 Cancel 的设置一样，在一个窗体中，只允许一个命令按钮的 Default 属性设置为 True ，只允许一个命令按钮的 Cancel 属性为 True 。
3、Caption（标题）属性：
跟其他控件的 Caption 属性一样，都用来显示控件标题的属性。这里要强调的是，作为按钮控件，用户可以给按钮控件的 Caption 指定快捷方式。
方法是在按钮 Caption 属性中欲作为快捷键的字母前加上一个 “&” 符号，程序运行时，该字母的下面会自带一条下划线，同时按下 Alt 键和带有下划线的字母，功效相当于用鼠标点击该按钮。
4、Enabled（可用）属性：
本属性决定了控件是否可用的问题。当值为 False ，按钮在程序运行时呈灰色，不能响应用户的鼠标动作；只有当值为 True ，按钮才能使用。
本属性可以在设置界面时予以指定，
也可以在程序中修改，代码如下： 按钮控件名称.Enabled = True/False
例一：
两个命令按钮，按钮一（CmdEnable）初始状态为可用，按钮二（CmdFalse）初始状态不可用。点击按钮一，按钮二变为可用，按钮一变为不可用；点击按钮二，按钮一变为可用，按钮二变为不可用。
程序界面
程序代码如下：
按钮一：
Private Sub CmdEnable_Click()
CmdFalse.Enabled = True
CmdEnable.Enabled = False
End Sub按钮二：
Private Sub CmdFalse_Click()
CmdFalse.Enabled = False
CmdEnable.Enabled = True
End Sub5、Style（类型）与 Picture（图片）属性：
也许你想让应用程序的操作界面更美观一点，也许你想在某个按钮上添加幅小图片，那么，你就得使用到本控件的 Style 与 Picture 属性。
铵钮控件共有两种 Style ，一种是标准型（Standard），VB 中用 VbButtonStandard ，或者 0 表示；另外一种是图形型（Graphical），VB 中用 VbButtonGraphical ，或者 1 表示。
Style 属性可以在界面设置过程中予以指定，
也可以在程序中改变，代码如下：
按钮名称.Style = VbButtonStandard/VbButtonGraphical
或者：按钮名称.Style = 0/1
只有当按钮的 Style 设置为 Graphical 类型时，按钮的 Picture 属性才起作用。本属性能在指定的按钮上添加图片。
可以在界面设置过程中为按钮指定图片，
也可以在程序中进行指定，代码如下：
按钮名称.Picture = "图形文件所在的路径与文件名"，例如：CmdPicture.Picture = "D:\image\01.jpg"
第2个回答 2013-07-07
在控件中加入调用代码就OK了
第3个回答 2013-07-07
这个我也没有做过，不过讲讲思路
相似回答
