|
Pokud za každým stiskem tlačítka pouze vytvořit nový formulář Form2,tak potom asi opravdu bude stačit:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim frm As New Form2
frm.Show()
End Sub
Pro přehled o instancích Form2 vytvořených tlačítkem Button1 na Form1 je ukládat do pole? Návrh zde nabízí, pro pozdější přístup k jednotlivým formulářům, jejich ukládání formulářů do pole. Číslování za titulkem formu v záhlaví pouze pro příklad, nechť se později jmenují dle chuti a potřeby.
Public Class Form1
Dim f() As Form2 = New Form2() {}
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ReDim Preserve f(f.GetLength(0))
f(f.GetLength(0) - 1) = New Form2
f(f.GetLength(0) - 1).Text = f(f.GetLength(0) - 1).Text & " [" & f.GetLength(0) & "]"
f(f.GetLength(0) - 1).Show()
End Sub
End Class
Dá se předpokládat, že bude žádáno zjištovat minimálně počet vytvořených formulářů a snad je při ukončení zavřít... Potom by se nějaká třída s kolekcí viz. návrh výše hodila a do ní přidat přístup k jednotlivým formulářům, vlastnost Items, Name, jejich počet Count... Nezatracuji to a popřemýšlet doporučuji :-) (a 60léta si přece zaslouží trochu zastání). Pole by snad mohlo posloužit, uvidíme... Snad se dočkáme rad zkušenějších a uvedou naše začátečnické pokusy na správnou cestu... Mnoho zdaru!
|