WindowsFormsApplicationBase.OpenForms Özellik

public:
 property System::Windows::Forms::FormCollection ^ OpenForms { System::Windows::Forms::FormCollection ^ get(); };

public System.Windows.Forms.FormCollection OpenForms { get; }

member this.OpenForms : System.Windows.Forms.FormCollection

Public ReadOnly Property OpenForms As FormCollection

Özellik Değeri

Uygulamanın tüm açık formlarını içeren bir koleksiyon.

Örnekler

Bu örnek, uygulamanın açık formları üzerinde döngü oluşturur, geçerli iş parçacığı tarafından doğrudan erişilebilen formları seçer ve başlıklarını bir ListBox denetimde görüntüler. Bu örnek, Windows Forms uygulamanızın adlı liste kutusu ListBox1içeren adlı Form1 bir forma sahip olmasını gerektirir.

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

Bu örnek, uygulamanın açık formları üzerinde döngü oluşturur ve başlıklarını bir ListBox denetimde görüntüler.

Private Sub GetOpenFormTitles()
    Dim formTitles As New Collection

    Try
        For Each f As Form In My.Application.OpenForms
            ' Use a thread-safe method to get all form titles.
            formTitles.Add(GetFormTitle(f))
        Next
    Catch ex As Exception
        formTitles.Add("Error: " & ex.Message)
    End Try

    Form1.ListBox1.DataSource = formTitles
End Sub

Private Delegate Function GetFormTitleDelegate(f As Form) As String
Private Function GetFormTitle(f As Form) As String
    ' Check if the form can be accessed from the current thread.
    If Not f.InvokeRequired Then
        ' Access the form directly.
        Return f.Text
    Else
        ' Marshal to the thread that owns the form. 
        Dim del As GetFormTitleDelegate = AddressOf GetFormTitle
        Dim param As Object() = {f}
        Dim result As System.IAsyncResult = f.BeginInvoke(del, param)
        ' Give the form's thread a chance process function.
        System.Threading.Thread.Sleep(10)
        ' Check the result.
        If result.IsCompleted Then
            ' Get the function's return value.
            Return "Different thread: " & f.EndInvoke(result).ToString
        Else
            Return "Unresponsive thread"
        End If
    End If
End Function

Açıklamalar

özelliği, My.Application.OpenForms uygulamanın tüm açık formlarının koleksiyonunu alır. Davranış özelliğiyle Application.OpenForms aynıdır.

Proje Türüne Göre Kullanılabilirlik

Şunlara uygulanır

Ayrıca bkz.

• FormCollection
• OpenForms
• Nesneler (Visual Basic)