Visual Studio 2008 のアドインを作成する。ドッキングウインドウの作成。

VisualStudio2008のアドインにドッキング可能ウインドウを作成する場合は、EnvDTE80.Windows2.CreateToolWindow2メソッドを使用します。ドッキング可能ウインドウだけだと中身が空っぽの状態になるので、表示するユーザーコントロールを同時に作成します。ユーザーコントロールは.NET標準のユーザーコントロールを設定することができます。（特別なインタフェースを継承する必要はありません。）

以下のコードは、ドッキング可能ウインドウの作成コードです。

現在実行中のアセンブリの取得（アドインのDLL）
ドッキング可能ウインドウの作成。MyAddin1.AddinUserControlクラス（ユーザコントロール）を埋め込み指定。
ドッキング可能ウインドウのウインドウのキャプションは"AddinTest"
GUID({9A2ABD9B-1841-4f59-85D8-CA566310BC09})は新しく採番したものを割り当てる。

GUIDを作成する。
http://d.hatena.ne.jp/tekk/20091025/1256462576

Dim programmableObject As Object = Nothing
Dim window2 As EnvDTE80.Windows2 = Nothing
Dim asm As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()

window2 = CType(_applicationObject.Windows, EnvDTE80.Windows2)
_windowToolWindow = window2.CreateToolWindow2(_addInInstance, _
asm.Location, _
"MyAddin1.AddinUserControl", _
"AddinTest", _
"{9A2ABD9B-1841-4f59-85D8-CA566310BC09}", _
programmableObject)

_addinControl = CType(programmableObject, AddinUserControl)
_addinControl.Application = _applicationObject
_addinControl.AddinInstance = _addInInstance

_windowToolWindow.Visible = True

ユーザーコントロールのプロパティに、connectメソッドで取得したDTE2とAddInのインスタンスを渡して、ユーザーコントロール内からVisualStudio IDEを操作できるようにしておきます。



    Public Application As DTE2 = Nothing

    Public AddinInstance As AddIn = Nothing

以下、上記を盛り込んだサンプルコードです。

Imports System
Imports Microsoft.VisualStudio.CommandBars
Imports Extensibility
Imports EnvDTE
Imports EnvDTE80

Public Class Connect

Implements IDTExtensibility2
Implements IDTCommandTarget

Dim _applicationObject As DTE2
Dim _addInInstance As AddIn

Private _windowToolWindow As Window = Nothing
Private _addinControl As AddinUserControl = Nothing

'''

アドインオブジェクトのコンストラクタを実装します。初期化コードをこのメソッド内に配置してください。

Public Sub New()

End Sub

'''

IDTExtensibility2 インターフェイスの OnConnection メソッドを実装します。アドインが読み込まれる際に通知を受けます。

'''ホストアプリケーションのルートオブジェクトです。
'''アドインの読み込み状態を説明します。
'''このアドインを表すオブジェクトです。
'''
Public Sub OnConnection(ByVal application As Object, ByVal connectMode As ext_ConnectMode, ByVal addInInst As Object, ByRef custom As Array) Implements IDTExtensibility2.OnConnection

_applicationObject = CType(application, DTE2)
_addInInstance = CType(addInInst, AddIn)

If connectMode = ext_ConnectMode.ext_cm_UISetup Then

'コマンドを [ツール] メニューに配置します。
'メインメニュー項目のすべてを保持するトップレベルコマンドバーである、MenuBar コマンドバーを検索します:
Dim commandBars As CommandBars = CType(_applicationObject.CommandBars, CommandBars)
Dim menuBarCommandBar As CommandBar = commandBars.Item("MenuBar")
Dim toolsPopup As CommandBarPopup = CType(menuBarCommandBar.Controls.Item("ツール"), CommandBarPopup)

Try
'コマンドコレクションにコマンドを追加します:
Dim commands As Commands2 = CType(_applicationObject.Commands, Commands2)
Dim command As Command = commands.AddNamedCommand2(_addInInstance, "MyAddin1", "MyAddin1", "Executes the command for MyAddin1", True, 59, Nothing, CType(vsCommandStatus.vsCommandStatusSupported, Integer) + CType(vsCommandStatus.vsCommandStatusEnabled, Integer), vsCommandStyle.vsCommandStylePictAndText, vsCommandControlType.vsCommandControlTypeButton)

'MenuBar コマンドバーで適切なコマンドバーを検索します:
command.AddControl(toolsPopup.CommandBar, 1)
Catch argumentException As System.ArgumentException
'同じ名前のコマンドが既に存在しているため、例外が発生した可能性があります。
' その場合、コマンドを再作成する必要はありません。例外を
' 無視しても安全です。
End Try

End If
End Sub

'''

IDTExtensibility2 インターフェイスの OnDisconnection メソッドを実装します。アドインがアンロードされる際に通知を受けます。

'''アドインのアンロード状態を説明します。
'''ホストアプリケーション固有のパラメータの配列です。
'''
Public Sub OnDisconnection(ByVal disconnectMode As ext_DisconnectMode, ByRef custom As Array) Implements IDTExtensibility2.OnDisconnection

Try

If Not _windowToolWindow Is Nothing Then
_windowToolWindow.Visible = False
_windowToolWindow.Close()
End If

If Not _addinControl Is Nothing Then
_addinControl.Visible = False
_addinControl.Dispose()
End If

Catch ex As Exception

End Try

End Sub

'''

IDTExtensibility2 インターフェイスの OnAddInsUpdate メソッドを実装します。アドインのコレクションが変更されたときに通知を受けます。

'''ホストアプリケーション固有のパラメータの配列です。
'''
Public Sub OnAddInsUpdate(ByRef custom As Array) Implements IDTExtensibility2.OnAddInsUpdate
End Sub

'''

IDTExtensibility2 インターフェイスの OnStartupComplete メソッドを実装します。ホストアプリケーションが読み込みを終了したときに通知を受けます。

'''ホストアプリケーション固有のパラメータの配列です。
'''
Public Sub OnStartupComplete(ByRef custom As Array) Implements IDTExtensibility2.OnStartupComplete
End Sub

'''

IDTExtensibility2 インターフェイスの OnBeginShutdown メソッドを実装します。ホストアプリケーションがアンロードされる際に通知を受けます。

'''ホストアプリケーション固有のパラメータの配列です。
'''
Public Sub OnBeginShutdown(ByRef custom As Array) Implements IDTExtensibility2.OnBeginShutdown
End Sub

'''

IDTCommandTarget インターフェイスの QueryStatus メソッドを実装します。これは、コマンドの可用性が更新されたときに呼び出されます。

'''状態を決定するためのコマンド名です。
'''コマンドに必要なテキストです。
'''ユーザーインターフェイス内のコマンドの状態です。
'''neededText パラメータから要求されたテキストです。
'''
Public Sub QueryStatus(ByVal commandName As String, ByVal neededText As vsCommandStatusTextWanted, ByRef status As vsCommandStatus, ByRef commandText As Object) Implements IDTCommandTarget.QueryStatus
If neededText = vsCommandStatusTextWanted.vsCommandStatusTextWantedNone Then
If commandName = "MyAddin1.Connect.MyAddin1" Then
status = CType(vsCommandStatus.vsCommandStatusEnabled + vsCommandStatus.vsCommandStatusSupported, vsCommandStatus)
Else
status = vsCommandStatus.vsCommandStatusUnsupported
End If
End If
End Sub

'''

IDTCommandTarget インターフェイスの Exec メソッドを実装します。これは、コマンドが実行されるときに呼び出されます。

'''実行するコマンド名です。
'''コマンドの実行方法を説明します。
'''呼び出し元からコマンドハンドラへ渡されたパラメータです。
'''コマンドハンドラから呼び出し元へ渡されたパラメータです。
'''コマンドが処理されたかどうかを呼び出し元に通知します。
'''
Public Sub Exec(ByVal commandName As String, ByVal executeOption As vsCommandExecOption, ByRef varIn As Object, ByRef varOut As Object, ByRef handled As Boolean) Implements IDTCommandTarget.Exec
handled = False
If executeOption = vsCommandExecOption.vsCommandExecOptionDoDefault Then
If commandName = "MyAddin1.Connect.MyAddin1" Then

If _addinControl Is Nothing Then

Dim programmableObject As Object = Nothing
Dim window2 As EnvDTE80.Windows2 = Nothing
Dim asm As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()

_addinControl = CType(programmableObject, AddinUserControl)
_addinControl.Application = _applicationObject
_addinControl.AddinInstance = _addInInstance

_windowToolWindow.Visible = True

Else

_windowToolWindow.Visible = Not _windowToolWindow.Visible

End If

handled = True
Exit Sub
End If
End If
End Sub
End Class

Imports System
Imports Microsoft.VisualStudio.CommandBars
Imports Extensibility
Imports EnvDTE
Imports EnvDTE80
Imports System.Windows.Forms

Public Class AddinUserControl

Public Application As DTE2 = Nothing
Public AddinInstance As AddIn = Nothing

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(Application.Solution.Projects.Item(1).Name)
End Sub
End Class