（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
更多文章、技術交流、商務合作、聯系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號聯系： 360901061
您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點擊下面給點支持吧，站長非常感激您！手機微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對您有幫助就好】元
