SolutionBuild2.StartupProjects Özellik

Makale
10/29/2012

Alır veya uygulama için giriş noktaları olan projeler adını ayarlar.

Ad alanı: EnvDTE80
Derleme: EnvDTE80 (EnvDTE80.dll içinde)

Sözdizimi

'Bildirim
Property StartupProjects As Object

Object StartupProjects { get; set; }

property Object^ StartupProjects {
    Object^ get ();
    void set (Object^ value);
}

abstract StartupProjects : Object with get, set

function get StartupProjects () : Object
function set StartupProjects (value : Object)

Özellik Değeri

Tür: System.Object
Uygulama için giriş noktaları olan projeler adlarını içeren nesne.

Notlar

StartupProjects"ne zaman start" proje adı dizeleri listesini içeren Run komutun verildiği. Her proje ve dil hangi başlayan bir proje başladığında ne olur yanı sıra anlamına gelir tanımlar. Örneğin, bir Visual C++ proje başlatır yürüterek main() fonksiyonu ve Visual Basic yürütür Sub Main() veya bir başlangıç formu. Diğer projeler ve dilleri bir sınıf veya başkalarının uygulanması gereken bir arabirimi kullanırken işlev adı ve benzeri bir proje özelliğini kullanın.

Örnekler

Bu örnek, her etkin Başlangıç yapılandırması oluşturma durumunu belirler. Bir proje açın Visual Studio bu eklenti çalıştırmadan önce tümleşik geliştirme ortamı (IDE).

Bu örnek, bir eklenti çalıştırma hakkında daha fazla bilgi için bkz: Nasıl yapılır: derlemek ve Otomasyon nesne modeli kod örneklerini çalıştırmak.

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)
    SolutionBuild2Example(_applicationObject)
End Sub
Sub SolutionBuild2Example(ByVal dte As DTE2)
    ' Open a solution in the Visual Studio IDE
    ' before running this example.
    Try
        Dim sb As SolutionBuild2
        sb = CType(_applicationObject.Solution.SolutionBuild _
        , SolutionBuild2)
        Dim sc As SolutionConfiguration2
        sc = CType(sb.ActiveConfiguration, SolutionConfiguration2)
        Dim vsBldSt As vsBuildState
        Dim msg As String = "Return relative path to startup  _
        projects: "
        For Each s As String In CType(sb.StartupProjects, Array)
            msg &= vbCr & " " & s
        Next
        msg &= vbCr & "SolutionConfiguration: " & sc.Name
        vsBldSt = sb.BuildState
        If (vsBldSt = vsBuildState.vsBuildStateDone) Then
            msg &= vbCr & "A build has occurred."
        ElseIf (vsBldSt = vsBuildState.vsBuildStateInProgress) Then
            msg &= vbCr & "A build is in progress."
        Else : msg &= vbCr & "A build has not occurred."
        End If
        MsgBox(msg)
    Catch ex As System.Exception
        MsgBox(ex.ToString)
    End Try
End Sub

using EnvDTE;
using EnvDTE80;
using System.Windows.Forms;
public void OnConnection(object application, 
ext_ConnectMode connectMode, object addInInst, ref Array custom)
{
    _applicationObject = (DTE2)application;
    _addInInstance = (AddIn)addInInst;
    SolutionBuild2Example(_applicationObject);
}
public void SolutionBuild2Example(DTE2 dte)
{
    try
    {
        SolutionBuild2 sb =
 (SolutionBuild2)_applicationObject.Solution.SolutionBuild;
        SolutionConfiguration2 sc =
 (SolutionConfiguration2)sb.ActiveConfiguration;
        vsBuildState vsBS;
        string msg = "Return relative path to startup projects: ";
        foreach (String s in (Array)sb.StartupProjects)
        {
            msg += "\n   " + s;
        }
        msg += "\nSolutionConfiguration: " + sc.Name;
        vsBS = sb.BuildState;
        if (vsBS == vsBuildState.vsBuildStateDone)
            msg += "\nA build has occurred.";
        else if (vsBS == vsBuildState.vsBuildStateInProgress)
            msg += "\nA build is in progress.";
        else msg += "\nA build has not occurred.";
        MessageBox.Show(msg);
    }
    catch(Exception ex)
    {
        MessageBox.Show(ex.Message);
    }
}