| New Collection, New Form |
| |
| |
| Prozeduren im MDI-Formular (die mit Collection erzeugten Kind-Formulare enthalten keine Prozeduren). |
| Nicht vergessen: Das MDI-Formular als Startformular zuweisen! (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 | |
| |
zurück