Process3.Attach2 メソッド (Object)

[アーティクル]
08/09/2011

Attach と同様に、デバッガーがこのプロセスをアタッチするようにしますが、エンジンまたはエンジンのセットを指定できるという点が異なります。

名前空間: EnvDTE90
アセンブリ: EnvDTE90 (EnvDTE90.dll 内)

構文

'宣言
Sub Attach2 ( _
    Engines As Object _
)

void Attach2(
    Object Engines
)

void Attach2(
    [InAttribute] Object^ Engines
)

abstract Attach2 : 
        Engines:Object -> unit

function Attach2(
    Engines : Object
)

パラメーター

Engines
型: System.Object
Engines コレクション。

実装

Process2.Attach2(Object)

解説

Attach2 を使用すると、特定のデバッグエンジンまたはエンジンのセットを使用してプロセスにアタッチできます。 Engines パラメーターは、1 つの BSTR、BSTR のコレクション、1 つの Engine オブジェクト、または Engine オブジェクトのコレクションになります。 BSTR として指定する場合は、エンジン名またはその ID (GUID) の最初のいくつかの文字を指定できます。エンジンの一覧は、指定した Transport に固有のものです。

例

' Macro code.
' The examples below illustrate how to attach to default, local, and 
' remote processes.
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports System.Diagnostics
Imports Microsoft.VisualBasic.ControlChars

Public Module Module1

    Sub NativeAttachToLocalCalc()
        Dim dbg2 As EnvDTE90.Debugger3
        dbg2 = DTE.Debugger

        Dim attached As Boolean = False
        Dim proc As EnvDTE90.Process3
        For Each proc In DTE.Debugger.LocalProcesses
            If (Right(proc.Name, 8) = "calc.exe") Then
                proc.Attach2("native")
                attached = True
                Exit For
            End If
        Next

        If attached = False Then
            If attached = False Then
                MsgBox("calc.exe isn't running")
            End If
        End If
    End Sub

    Sub DefaultAttachToLocalCalc()
        Dim dbg2 As EnvDTE90.Debugger3
        dbg2 = DTE.Debugger

        Dim attached As Boolean = False
        Dim proc As EnvDTE90.Process3
        For Each proc In DTE.Debugger.LocalProcesses
            If (Right(proc.Name, 8) = "calc.exe") Then
                proc.Attach2()
                attached = True
                Exit For
            End If
        Next

        If attached = False Then
            If attached = False Then
                MsgBox("calc.exe isn't running")
            End If
        End If
    End Sub
End Module