_Solution.Properties プロパティ

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

更新 : 2007 年 11 月

_Solution に属するすべてのプロパティのコレクションを取得します。

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

構文

'宣言
ReadOnly Property Properties As Properties
'使用
Dim instance As _Solution
Dim value As Properties

value = instance.Properties

Properties Properties { get; }

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

function get Properties () : Properties

プロパティ値

型 : EnvDTE.Properties

Properties コレクション。

解説

一部のプロパティは、_Solution、またはソリューションを介して到達したオブジェクト (ビルド依存関係の SolutionBuild オブジェクトなど) のオートメーションプロパティとして公開されます。

例

Sub PropertiesExample(ByVal dte As DTE2)

    ' NOTE: This example requires a reference to the
    '       System.IO namespace.

    ' Before running this example, open a solution.

    Dim props As Properties = dte.Solution.Properties
    Dim prop As [Property]
    Dim msg As String = _
        Path.GetFileNameWithoutExtension(dte.Solution.FullName) & _
        " has the following properties:" & vbCrLf & vbCrLf

    For Each prop In props
        msg &= prop.Name & " = "
        Try
            msg &= prop.Value.ToString() & vbCrLf
        Catch
            msg &= "(Nothing)" & vbCrLf
        End Try
    Next

    MsgBox(msg)

End Sub

public void PropertiesExample(DTE2 dte)
{
    // NOTE: This example requires a reference to the
    //       System.IO namespace.

    // Before running this example, open a solution.

    Properties props = dte.Solution.Properties;
    string msg = 
        Path.GetFileNameWithoutExtension(dte.Solution.FullName) + 
        " has the following properties:\n\n";

    foreach (Property prop in props)
    {
        msg += prop.Name + " = ";
        try
        {
            msg += prop.Value.ToString() + "\n";
        }
        catch
        {
            msg += "(Nothing)\n";
        }
    }

    MessageBox.Show(msg);
}