Rubrik: Oberfläche · Fenster | VB-Versionen: VB2003 | 22.05.19 |
Mit einem Klick alle offenen Fenster schließen Ermittelt alle geladenen Fenster und schließt sie mit einem einzigen Klick | ||
Autor: Dieter Rottermund | Bewertung: | Views: 5.322 |
ohne Homepage | System: Win7, Win8, Win10, Win11 | kein Beispielprojekt |
Alle meine Programme beende ich in der Regel über ein "Beenden"-Fenster mit den Button "Ja" fürs Beenden und "Nein" für ... genau! Dabei wollte ich gerne mit dem Aufruf von "Beenden" schon sämtliche noch geöffneten Werkzeug-Fenster schließen.
Als begeisterter VB6-ler und vor gerade einmal anderthalb Wochen zum Umstieg auf VB.NET "genötigt", habe ich im Internet vergeblich nach einem einfachen, auch für mich schon verständlichen Code zur Lösung dieses, eigentlich doch simplen Problems gesucht.
Also habe ich mich daran gemacht, mir einen eigenen Weg zu überlegen - vollkommen unbeeindruckt von allen Microsoft-Ideen. Meine Idee: ich schreib' meiner "MainForm" einfach auf, welche Formulare es durch meinen Klick öffnet. Dann kann es später ja einfach nachlesen, welche zu schließen und, welche bitte zu ignorieren sind.
Wenn Sie das Ergebnis meiner Überlegungen ausprobieren möchten, brauchen Sie folgende Elemente:
- 1 Formular mit Namen "MainForm" und
- 4 taufrische Formulare mit den Namen "Form1", "Form2", ...
Außerdem brauchen Sie 5 Schaltflächen:
- "Button1" mit Text = "Form 2"
- "Button2" mit Text = "Form 2"
- "Button3" mit Text = "Form 3"
- "Button4" mit Text = "Form 4"
und:
- "Button5" mit Text = "Alle Fenster schließen"
Der benötigte Code ist denkbar einfach und sieht folgendermaßen aus:
' In diese Variablen speichere ich den Ladezustand aller relevanten Forms ' (außer der "MainForm" natürlich ...). Public oF1 As Boolean Public oF2 As Boolean Public oF3 As Boolean Public oF4 As Boolean ' Hier referenziere ich alle relevanten Forms. Dim oForm1 As Form1 Dim oForm2 As Form2 Dim oForm3 As Form3 Dim oForm4 As Form4
' Beim Laden der "MainForm" setzte ich die Speichervariablen für die Ladezustände ' einzelnen der Forms auf 'False' Private Sub MainForm_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles MyBase.Load oF1 = False oF2 = False oF3 = False oF4 = False End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click oForm1 = New Form1 oForm1.Show() ' Öffnet das "Form1". oF1 = True ' Variable für den Ladezustand von "Form1" auf 'True' setzen. End Sub
Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click oForm2 = New Form2 oForm2.Show() ' Öffnet das "Form2". oF2 = True ' Variable für den Ladezustand von "Form2" auf 'True' setzen. End Sub
Private Sub Button3_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button3.Click oForm3 = New Form3 oForm3.Show() ' Öffnet das "Form3". oF3 = True ' Variable für den Ladezustand von "Form3" auf 'True' setzen. End Sub
Private Sub Button4_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button4.Click oForm4 = New Form4 oForm4.Show() ' Öffnet das "Form4". oF4 = True ' Variable für den Ladezustand von "Form4" auf 'True' setzen. End Sub
' Der "Schließen-Button" fragt die Ladezustände aller Forms ab, schließt die ' geladenen und kümmert sich dabei nicht weiter um die nicht geladenen Forms. Private Sub Button5_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button5.Click If oF1 = True Then oForm1.Close() : oF1 = False ' Schließt "Form1", wenn geladen. If oF2 = True Then oForm2.Close() : oF2 = False ' Schließt "Form2", wenn geladen. If oF3 = True Then oForm3.Close() : oF3 = False ' Schließt "Form3", wenn geladen. If oF4 = True Then oForm4.Close() : oF4 = False ' Schließt "Form4", wenn geladen. End Sub