VSProjectEvents2.VSLangProjWebReferencesEvents プロパティ

[アーティクル]
08/22/2008

更新 : 2007 年 11 月

Web 参照イベントにアクセスできるようにする VSLangProjWebReferencesEvents オブジェクトを取得します。

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

構文

'宣言
ReadOnly Property VSLangProjWebReferencesEvents As VSLangProjWebReferencesEvents
'使用
Dim instance As VSProjectEvents2
Dim value As VSLangProjWebReferencesEvents

value = instance.VSLangProjWebReferencesEvents

VSLangProjWebReferencesEvents VSLangProjWebReferencesEvents { get; }

property VSLangProjWebReferencesEvents^ VSLangProjWebReferencesEvents {
    VSLangProjWebReferencesEvents^ get ();
}

function get VSLangProjWebReferencesEvents () : VSLangProjWebReferencesEvents

プロパティ値

型 : VSLangProj80.VSLangProjWebReferencesEvents

VSLangProjWebReferencesEvents オブジェクト。

例

VSLangProjWebReferencesEvents プロパティを使用して、特定のプロジェクトのイベント処理メソッドを関連付ける例を次に示します。マクロサンプルの実行方法の詳細については、「方法 : オートメーションオブジェクトモデルのコード例をコンパイルおよび実行する」を参照してください。

このマクロを実行する前に、Visual Basic、Visual C#、または Visual J# の各プロジェクトを開いておきます。

' Macro code.
' Connects trivial methods to the OnAfterWebReferenceAdded,
' OnBeforeWebReferenceRemoved, and OnWebReferenceChanged
' events of the first project in the solution.
' The first project is a Visual Basic, C#, or J# rpoject.
Imports VSLangProj
Imports VSLangProj80
Sub ConnectWebEvents()
    Dim proj As Project = DTE.Solution.Projects.Item(1)
    Dim vsproj As VSProject2 = CType(proj.Object, VSProject2)
    Dim refEvents As VSLangProjWebReferencesEvents = _
    vsproj.Events2.VSLangProjWebReferencesEvents
    AddHandler refEvents.OnAfterWebReferenceAdded, _
    AddressOf WebReferenceAdded
    AddHandler refEvents.OnBeforeWebReferenceRemoved, _
    AddressOf WebReferenceRemoved
    AddHandler refEvents.OnWebReferenceChanged, _
    AddressOf WebReferenceChanged
End Sub
Sub WebReferenceRemoved(ByVal removedRef As Object)
    MsgBox("The reference for " & removedRef.Name & " was removed.")
End Sub
Sub WebReferenceChanged(ByVal changedRef As Object)
    MsgBox("The reference for " & changedRef.Name & " was changed.")
End Sub
Sub WebReferenceAdded(ByVal addedRef As Object)
    MsgBox("The reference for " & addedRef.Name & " was added.")
End Sub