[WiX]VSギャラリーに登場！

とっちゃん — Fri, 06 Dec 2013 13:35:00 GMT

アップデートがあるといわれたのでクリックしたら

なんてものが出てきました。

危うく、なんも考えずに更新しちゃうところだった。一部パスを見てるところがあるからおそらく動かないのよねぇ。。。

VSの出力ウィンドウに文字列を送り込む…

とっちゃん — Mon, 06 Apr 2009 18:52:00 GMT

出力ウィンドウに表示… なんて書いておきながら肝心のやり方を書いていなかったので…

オートメーションとはなにか？なんて話から入ると、本一冊分のボリュームになるので割愛するとして…
＃オートメーションが題材の書籍は本当にあるんですけどねー絶版になって久しいｗｗｗ

VSのいろいろなウィンドウは、EnvDTE80.DTE2 インターフェースの ToolWindows プロパティで取得できます(2003までとは違うので注意してください)。ToolWindows インターフェースはたくさんのウィンドウを抱えていますが、この中の OutputWindow が出力ウィンドウになります。

ですが、出力ウィンドウは非常に特殊でほかのウィンドウと同じように扱うことができません。特にマクロで特定文字列を突っ込んでという段取りと同じようにできると思ってると泣きますので注意してください(何度アクセス違反でエラーになったことか…orz)。

それと、意識していない人も多いかもしれませんが、出力ウィンドウは作業ごとに中にウィンドウが出てくる仕組みになっています(一つ一つはペインと呼ぶ特殊な子ウィンドウになっている)。これを作成(または取得)して、画面出力を行います。

ま、あんまり細かなことを書いても面白くないので、サンプルコードを貼り付けておきます。VS2005以降ならそのまま使えるはずです(動作確認はVS2008でしかやってないですけどねｗ)。

Private Function GetOutputPane(ByVal dte2 As EnvDTE80.DTE2, ByVal paneName As String) As OutputWindowPane
    Dim pane As OutputWindowPane
    Try
        'あるものと仮定して取得してみる
        pane = dte2.ToolWindows.OutputWindow.OutputWindowPanes.Item(paneName)
    Catch ex As ArgumentException
        '存在しないと引数が間違ってる例外が飛んでくるので、追加する
        pane = dte2.ToolWindows.OutputWindow.OutputWindowPanes.Add(paneName)
    End Try
    '指定されたペインをアクティブにする(ちらつき軽減のためこっちを先に行う)
    pane.Activate()
    '出力ウィンドウをアクティブにする
    dte2.ToolWindows.OutputWindow.Parent.Activate()
    Return pane
End Function
Sub TestOutputWindow()
    GetOutputPane(DTE, "Test").OutputString("テスト" + vbCrLf)
End Sub

こんな感じで使います。バッチ処理をマクロで行いたいという場合には便利ですよ。でも、VBがεπιστημηさんより駄目駄目なおいらは、マクロでも十分な機能のために、C#アドイン作りました。

OutputWindow にたどりつけるまでに一日かかったとか言わないんだからね！

出力ウィンドウに表示…

とっちゃん — Sat, 04 Apr 2009 18:59:00 GMT

Visual Studio Add-in なるものを作ってます…自分の仕事の簡略化のために…

で、出力ウィンドウに専用ペインを作って、文字列を表示というのはできるようになったんですが、ループ回ってたりすると、終わるまで描画されないという…

よくある質問のような状況になってました…

マクロなら問題ないのになーと思って、なんか再描画コマンドないかしら?と思ってたんですが、アドインの場合はスレッド起こしてそっちでループ回せば、出力ウィンドウの表示はスレッドまたいで描画してくれるんですねー

.NET はスレッド作るのも単純にできるし、１行書き換えただけで臨む機能ができちゃいました…ｗ

ま、クラス化してたからなんですけどねｗｗｗ

これでようやく本題機能に注目できる…