Language.Collection Свойство
Определение
Важно!
Некоторые сведения относятся к предварительной версии продукта, в которую до выпуска могут быть внесены существенные изменения. Майкрософт не предоставляет никаких гарантий, явных или подразумеваемых, относительно приведенных здесь сведений.
Получает коллекцию, содержащую объект, который поддерживает это свойство или содержится в этой конструкции кода.
public:
property EnvDTE::Languages ^ Collection { EnvDTE::Languages ^ get(); };
[System.Runtime.InteropServices.DispId(202)]
public EnvDTE.Languages Collection { [System.Runtime.InteropServices.DispId(202)] get; }
[<System.Runtime.InteropServices.DispId(202)>]
[<get: System.Runtime.InteropServices.DispId(202)>]
member this.Collection : EnvDTE.Languages
Public ReadOnly Property Collection As Languages
Значение свойства
Коллекция Languages.
- Атрибуты
Примеры
В следующем примере показано, как использовать Collection свойство.
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