如何使用所有打开的表单列表填充列表框

Question

我有一个带有列表框的表单，我希望能够使用同一个应用程序的所有打开表单来填充它。但是，我希望能够从列表框中选择一个项目，并且能够关闭与该项目在列表框中关联的表单。这可能吗？

Answer 1

我找到了答案的问题。下面的代码工作：

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click 
    Dim myForms As FormCollection = Application.OpenForms 

    For Each frmName As Form In myForms 
    ListBox1.Items.Add(frmName.Name.ToString) 
    Next 
End Sub 

Private Sub ListBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListBox1.SelectedIndexChanged 
    If Not ListBox1.SelectedIndex = -1 Then 
    Dim myForm As Form = Application.OpenForms(ListBox1.Text) 
    myForm.Close() 
    End If 
End Sub 

凡ListBox1_SelectedIndexChanged下的代码可以很容易地放置在一个按钮。

Answer 2

My.Application.OpenForms是您的项目中的开放形式的集合。因此，像：

For Each f As Form In My.Application.OpenForms 
    Me.SomeListBox.Items.Add(f) 
Next 

然后关闭所选的项目，这是

DirectCast(Me.SomeListBox.SelectedItem, Form).Close()