わんくまライブラリ AddGuidモジュール Version1

この文書はVisual Studio 2003(.NET1.1)をベースに記述されています。それ以降のバージョンや、あなたが読んでいる時点では変更されている可能性があります。
またバージョンアップされている場合にはなんらかかの不具合を含んでいる可能性があります。

ドキュメントへ
AddGuid1d.htm

ソースファイル直接ダウンロードへ
AddGuid1c.txt

利用規約へ
../kiyaku.htm

Imports EnvDTE
Imports System.Diagnostics
Imports System.Runtime.InteropServices

Public Module AddGuid

    Sub AddGuid()
        'DTEドキュメントを取得する
        Dim DteDocument As EnvDTE.Document = Nothing
        Try
            DteDocument = DTE.ActiveDocument()
            'Selectionオブジェクトを取得する
            Dim sel As TextSelection = Nothing
            Try
                sel = DteDocument.Selection()
                'GUIDを取得する
                Dim guid As System.Guid = System.Guid.NewGuid()
                '文字列を書き出す
                sel.Text = """" + guid.ToString + """"
            Finally
                'Selectionオブジェクトを開放する
                If (Not sel Is Nothing) Then
                    Marshal.ReleaseComObject(sel)
                End If
            End Try
        Finally
            'DTEドキュメントを開放する
            If (Not DteDocument Is Nothing) Then
                Marshal.ReleaseComObject(DteDocument)
            End If
        End Try
    End Sub


End Module