Language.Parent 属性

获取 Language 对象的直接父对象。

命名空间:  EnvDTE
程序集:  EnvDTE(在 EnvDTE.dll 中)

语法

声明
ReadOnly Property Parent As Debugger
    Get
Debugger Parent { get; }
property Debugger^ Parent {
    Debugger^ get ();
}
abstract Parent : Debugger
function get Parent () : Debugger

属性值

类型:EnvDTE.Debugger
一个 Debugger 对象。

备注

Parent 属性返回 Language 对象的直接父对象。 若要获取包含集合,请使用 Collection 属性。

示例

下面的示例演示如何使用 Parent 属性。

测试此属性:

  1. 在目标应用程序中设置一个断点。

  2. 以调试模式运行目标应用程序。

  3. 当应用程序停在该断点处时,运行外接程序。

Public static void Parent(DTE dte)
{
    // Setup debug Output window.
    Window w = (Window)dte.Windows.Item(EnvDTE.Constants.vsWindowKindOutput);
    w.Visible = true;
    OutputWindow ow = (OutputWindow)w.Object;
    OutputWindowPane owp = ow.OutputWindowPanes.Add("Parent Property Test");
    owp.Activate();

    EnvDTE.Language language = dte.Debugger.Languages.Item(1);
    owp.OutputString("Number of items in the language collection is " + 
                     language.Collection.Count + ": ");
    foreach(EnvDTE.Language lang in language.Collection)
        owp.OutputString(lang.Name + "  ");
    owp.OutputString("\nEdition of the environment: " + language.DTE.Edition);
    owp.OutputString("\nThe name of the current program: " + 
                     language.Parent.CurrentProgram.Name);
}
Shared Sub Parent(ByRef dte As EnvDTE.DTE)
    Dim language As EnvDTE.Language = dte.Debugger.Languages.Item(1)
    Dim str As String = vbCrLf
    str = "There are " + language.Collection.Count.ToString()
    str += " items in the language collection: "
    For Each lang As EnvDTE.Language In language.Collection
        str += lang.Name + "  "
    Next
    str += vbCrLf + vbCrLf + "Edition of the environment: " + _
           language.DTE.Edition
    str += vbCrLf + vbCrLf + "The name of the current program: " + _
           language.Parent.CurrentProgram.Name
    MessageBox.Show(str, "Language Test - Parent Property")
End Sub

.NET Framework 安全性

请参见

参考

Language 接口

EnvDTE 命名空间

Debugger

其他资源

如何:编译和运行自动化对象模型代码示例