Propriedade SolutionConfiguration2.SolutionContexts

Obtém uma coleção de SolutionContext objetos.

Namespace:  EnvDTE80
Assembly:  EnvDTE80 (em EnvDTE80.dll)

Sintaxe

'Declaração
ReadOnly Property SolutionContexts As SolutionContexts

Valor de propriedade

Tipo: EnvDTE.SolutionContexts
A SolutionContexts coleção.

Exemplos

Este exemplo exibe o nome do item de configuração cada solução na SolutionContexts e define o primeiro um para "liberar".Abrir um projeto na Visual Studio o ambiente de desenvolvimento integrado (IDE) antes de executar este suplemento.

Para obter mais informações sobre como executar este exemplo como um add-in, consulte Como: compilar e executar os exemplos de código de modelo de objeto de automação.

Imports EnvDTE
Imports EnvDTE80
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)
    SolutionConfigurationExample(_applicationObject)
End Sub
Sub SolutionConfigurationExample(ByVal dte As DTE2)
    Try
        Dim builder As SolutionBuild = _
        _applicationObject.Solution.SolutionBuild
        Dim config As SolutionConfiguration2
        config = CType(builder.ActiveConfiguration _
        , SolutionConfiguration2)
        Dim i As Integer
        Dim aStr As String
        aStr = ""
        For i = 1 To config.SolutionContexts.Count
        aStr = aStr & "The configuration item number " & i.ToString() _
            & "'s name is: " & config.SolutionContexts. _
            Item(i).ConfigurationName.ToString() & vbCr
        Next
        MsgBox("The configuration names per item are:" & vbCr & aStr)
        MsgBox("Change the configuration of item 1 to 'Release'...")
        config.SolutionContexts.Item(1).ConfigurationName = "Release"
        MsgBox("The solution configuration name for  _
        configuration item 1 is now: " &  _
        config.SolutionContexts.Item(1).ConfigurationName.ToString())
    Catch ex As System.Exception
        MsgBox(ex.ToString)
    End Try

End Sub

Segurança do .NET Framework

Consulte também

Referência

SolutionConfiguration2 Interface

Sobrecargas SolutionContexts

Namespace EnvDTE80