VB6-IDE改造

Vb6的IDE改造基本搞定了，感觉很爽，前几天在弄DeveloperHelper的时候，一直无法理解为什么无法将窗口放入IDE的环境中，而很多好的Add-IN确是可以放入IDE里边的，在MSDN和网上查阅了一些文章，终于明白了道理，现在将道理记录一下：

（1）控件的容器是UserDocument而不是Form。在VB的IDE环境中那些可链接的窗体，其实都是一个个的UserDocument，因此，不要在Form上开发，而是要在UserDocument上开发，我也很奇怪为什么Microsoft给的模板要是From呢，直接给好UserDocument该有多好。

（2）UserDocument的属性设置，其实UserDocument的属性没有什么特殊的要求，但是有几点要特殊注意，一个是最好把ScrollBasr的属性该为0，这样就不会出现滑块了，还有最好不要做UserDocuemtn启动位置的设置，因为在VB的IDE里边所有的链接窗体的启动位置是自动记忆的，当然也包括大小，因此最好不要设置这些代码，否则就不爽了。

（3）UserDocument的名字一定要特殊注意，因为代码中要用到的。

（4）最关键的当然就是Connect里边的代码编写了，这里边的代码其实是很模板化的，没有什么技巧，大家照着案例写就行，关键代码如下：

声明部分：

Public  FormDisplayed           As   Boolean
Public  VbInsTance              As  VBIDE.VBE

Public  WithEvents MenuHandler  As  CommandBarEvents
Public  WithEvents CtlHandler   As  VBControlsEvents

Private  mcbMenuCommandBar          As  Office.CommandBarControl
Private  mCodeAddIn                 As  udCodeDesign
Private  mControlAddIn              As  udControlTemplate
Private  mCodeWindow                As  VBIDE.Window
Private  mControlWindow             As  VBIDE.Window
Private  mCodeGuid                  As   String
Private  mControlGuid               As   String

Show、Hide方法：

Public   Sub  Hide()
     On   Error   Resume   Next
    SetVisible  False
End Sub

Public   Sub  Show()
     On   Error   Resume   Next
     Set  mCodeAddIn.VbInsTance  =  VbInsTance
     Set  mCodeAddIn.Connect  =  Me
     Set  mControlAddIn.VbInsTance  =  VbInsTance
     Set  mControlAddIn.Connect  =  Me
    SetVisible  True
End Sub

AddinInstance_OnConnection事件

' ------------------------------------------------------
' 这个方法添加外接程序到 VB
' ------------------------------------------------------
Private   Sub  AddinInstance_OnConnection(ByVal Application  As   Object , ByVal ConnectMode  As  AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst  As   Object , custom()  As  Variant)
     On   Error   GoTo  error_handler
     Dim  GuidHelper  As   New  Helper.Guid
    
     ' 保存 vb 实例
     Set  VbInsTance  =  Application

     If  ConnectMode  =  ext_cm_External  Then
         ' 用于让向导工具栏来启动此向导
        Me.Show
     Else
         Set  mcbMenuCommandBar  =  AddToAddInCommandBar( " DeveloperHelper " )
         ' 吸取事件
         Set  Me.MenuHandler  =  VbInsTance.Events.CommandBarEvents(mcbMenuCommandBar)
     End   If
    
     ' 挂接控件管理事件
     Set  Me.CtlHandler  =  VbInsTance.Events.VBControlsEvents( Nothing ,  Nothing )

     ' 将窗体嵌入Vb中
     If  GetSetting(App.Title,  " Settings " ,  " CodeGUID " ,  " 0 " )  =   " 0 "   Then
        mCodeGuid  =  GuidHelper.NewGuid()
        SaveSetting App.Title,  " Settings " ,  " CodeGUID " , mControlGuid
     Else
        mCodeGuid  =  GetSetting(App.Title,  " Settings " ,  " CodeGUID " ,  " 0 " )
     End   If
     Set  mCodeWindow  =  VbInsTance.Windows.CreateToolWindow(AddInInst,  " DeveloperHelper.udCodeDesign " ,  " CodeDesign " , mCodeGuid, mCodeAddIn)

     If  GetSetting(App.Title,  " Settings " ,  " ControlGUID " ,  " 0 " )  =   " 0 "   Then
        mControlGuid  =  GuidHelper.NewGuid()
        SaveSetting App.Title,  " Settings " ,  " ControlGUID " , mControlGuid
     Else
        mControlGuid  =  GetSetting(App.Title,  " Settings " ,  " ControlGUID " ,  " 0 " )
     End   If

     Set  mControlWindow  =  VbInsTance.Windows.CreateToolWindow(AddInInst,  " DeveloperHelper.udControlTemplate " ,  " ControlTemplate " , mControlGuid, mControlAddIn)

     If  ConnectMode  =  ext_cm_AfterStartup  Then
         If  GetSetting(App.Title,  " Settings " ,  " DisplayOnConnect " ,  " 0 " )  =   " 1 "   Then
             ' 设置这个到连接显示的窗体
            Me.Show
         End   If
     End   If

     Set  GuidHelper  =   Nothing
    
     Exit   Sub
    
error_handler:
     MsgBox  Err.Description
End Sub

关键的代码是这句：

Set mCodeWindow = VbInsTance.Windows.CreateToolWindow(AddInInst, "DeveloperHelper.udCodeDesign", "CodeDesign", mCodeGuid, mCodeAddIn)

语法如下：

CreateToolWindow 方法
     

创建一个包含指定 UserDocument 对象的新工具窗口。

语法

object.CreateToolWindow (AddInInst, ProgID, Caption, GuidPosition, DocObj) As Window

CreateToolWindow 方法的语法包含下面部分：

部分 描述
object 对象表达式 ，其值是“应用于”列表中的对象。
AddInInst  必需的。外接程序实例变量，表示在开发环境中的外接程序。
ProgID  必需的。串 表示 UserDocument 对象的 progID。
Caption  必需的。串 包括窗口标题。
GuidPosition  必需的。串 包括窗口的唯一标识符。
DocObj  必需的。对象表示 UserDocument 对象。对象将被设置在这个函数的调用中。

记住这些基本上就差不多了，最后完成的效果如下图：

最终完成效果如下图：

在开发过程中，国内与IDE的插件开发相关的资料不是很多，其实IDE的开发其实是很重要的，对公司和个人来说都是很重要的，相关的技术资料如下：
1:http://www.activevb.de/tutorials/tut_addin/addin6.html
2:http://www.mysticboy.com.cn/docs/addin/addin3.htm