Collection-Objekt

Programmierung Collection-Objekt: New Collection, New Form
Prozeduren im MDI-Formular (die mit Collection erzeugten Kind-Formulare enthalten keine Prozeduren).
Nicht vergessen, das MDI-Formular als Startformular zuzuweisen! (Kontextmenü: Formulare: Eigenschaften von Projekt...)
Dim coll As Collection Collection deklarieren.
Private Sub Neu_Click()
Static nr% Zähler für die Formulare.
Set coll = New Collection Neue Kollektion setzen.
Dim frm As Form Formular deklarieren.
Set frm = New Form1 Neues Formular setzen.
frm.Caption = "Fenster " & nr + 1 Titel: "Formular & Nummer".
frm.Show
coll.Add frm, "f" & nr Formular zur Kollektion hinzufügen.
nr = nr + 1 Zähler vor Aufruf von jedem neuen Formular erhöhen.
End Sub
Private Sub ueber_Click()
MDIForm1.Arrange 0
End Sub
Private Sub unter_Click()
Me.Arrange 1
End Sub
Private Sub neb_Click()
Me.Arrange 2
End Sub

Mehr Tipps: Timer wartet 20 Minuten zwischen zwei Ereignissen

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt