Поделиться через


Language.Collection - свойство

Обновлен: Ноябрь 2007

Возвращает коллекцию, содержащую объект, который поддерживает это свойство или содержится в этой конструкции кода.

Пространство имен:  EnvDTE
Сборка:  EnvDTE (в EnvDTE.dll)

Синтаксис

'Декларация
ReadOnly Property Collection As Languages
'Применение
Dim instance As Language
Dim value As Languages

value = instance.Collection
Languages Collection { get; }
property Languages^ Collection {
    Languages^ get ();
}
function get Collection () : Languages

Значение свойства

Тип: EnvDTE.Languages
Коллекция Languages.

Примеры

В следующем примере демонстрируется применение свойства Collection.

Для проверки данного свойства:

  1. Задайте в целевом приложении точку останова.

  2. Запустите целевое приложение в режиме отладки.

  3. Когда выполнение приложения остановится в точке останова, запустите надстройку.

public static void Collection(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("Collection 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 Collection(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 - Collection Property")
End Sub

Разрешения

См. также

Ссылки

Language Интерфейс

Language - члены

EnvDTE - пространство имен

Другие ресурсы

Практическое руководство. Компиляция и выполнение примеров кода модели объектов автоматизации