【发布时间】:2011-07-17 05:28:10
【问题描述】:
是否可以多次打开表单?
按钮1 form2.show
按下按钮1 form2 打开
再次按下按钮1 另一个 form2 在旧 form2 旁边打开
如果可能,Form1 上的按钮能否杀死所有打开的 Form2 窗口?
【问题讨论】:
是否可以多次打开表单?
按钮1 form2.show
按下按钮1 form2 打开
再次按下按钮1 另一个 form2 在旧 form2 旁边打开
如果可能,Form1 上的按钮能否杀死所有打开的 Form2 窗口?
【问题讨论】:
当然可以。只需将相同表单的两个实例变暗即可。
Public Class Form1
Private m_WindowList As New List(Of Form2)
Private Sub OpenWindowButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenWindowButton.Click
OpenWindow()
End Sub
Private Sub CloseWindowsButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseWindowsButton.Click
CloseWindows()
End Sub
Private Sub OpenWindowsButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenWindowsButton.Click
Dim WindowCount As Int32
If Int32.TryParse(WindowCountTextBox.Text, WindowCount) Then
OpenWindows(WindowCount)
End If
End Sub
Private Sub OpenWindow()
Dim NewWindow As New Form2
m_WindowList.Add(NewWindow)
NewWindow.Show()
End Sub
Private Sub OpenWindows(ByVal Count As Int32)
For i = 1 To Count
OpenWindow()
Next
End Sub
Private Sub CloseWindows()
For Each Window In m_WindowList
Window.Close()
Window.Dispose()
Next
m_WindowList.Clear()
End Sub
End Class
【讨论】:
Dim MyNewForm2 = New Form2
MyNewForm2.Show
【讨论】: