Свойство My.Application.OpenForms

Статья
11/05/2008

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

Возвращает коллекцию всех открытых форм приложения.

' Usage
Dim value As System.Windows.Forms.FormCollection = My.Application.OpenForms
' Declaration
Public ReadOnly Property OpenForms As System.Windows.Forms.FormCollection

Возвращаемое значение

Объект FormCollection, содержащий все открытые формы приложения.

Заметки

Свойство My.Application.OpenForms возвращает коллекцию всех открытых форм приложения. Поведение идентично свойству Application.OpenForms.

Примечание.
Свойство My.Application.OpenForms возвращает все открытые формы, независимо от открывшего их потока. Перед обращением к форме следует проверить свойство InvokeRequired. В противном случае может возникнуть исключение InvalidOperationException. Дополнительные сведения см. в разделе Практическое руководство. Доступ ко всем открытым формам приложения.

Свойство My.Application.OpenForms возвращает все открытые формы, независимо от открывшего их потока. Перед обращением к форме следует проверить свойство InvokeRequired. В противном случае может возникнуть исключение InvalidOperationException. Дополнительные сведения см. в разделе Практическое руководство. Доступ ко всем открытым формам приложения.

Задачи

В следующей таблице перечислены примеры задач с использованием свойства My.Application.OpenForms.

To	См. разделы
Отображение заголовков всех открытых форм приложения	Практическое руководство. Доступ ко всем открытым формам приложения

Пример

В этом примере осуществляется проход по открытым формам приложения, выбирается форма, доступная напрямую для текущего потока, и в элементе управления ListBox отображается ее заголовок. Сведения об обращении к открытым формам см. в разделе Практическое руководство. Доступ ко всем открытым формам приложения.

Private Sub GetOpenFormTitles()
    Dim formTitles As New Collection

    Try
        For Each f As Form In My.Application.OpenForms
            If Not f.InvokeRequired Then
                ' Can access the form directly.
                formTitles.Add(f.Text)
            End If
        Next
    Catch ex As Exception
        formTitles.Add("Error: " & ex.Message)
    End Try

    Form1.ListBox1.DataSource = formTitles
End Sub

В этом примере требуется, чтобы приложение Windows Forms использовало форму с именем Form1 и содержало список с именем ListBox1.

Требования

Пространство имен:Microsoft.VisualBasic.ApplicationServices

Класс:WindowsFormsApplicationBase

Сборка: библиотека времени выполнения Visual Basic (в Microsoft.VisualBasic.dll)

Доступность по типу проекта

Тип проекта	Доступность
Приложение Windows	Да
Библиотека классов	Нет
Консольное приложение	Нет
Библиотека элементов управления Windows	Нет
Библиотека веб-элементов управления	Нет
Служба Windows	Нет
Веб-узел	Нет

Разрешения

Могут потребоваться следующие разрешения:

Разрешение	Описание
UIPermission	Управляет разрешениями, относящимися к пользовательским интерфейсам и буферу обмена. Связанное перечисление: AllWindows.