4.9 Wie stelle ich ein Formular wieder her (normal/maximiert)?
VB5-VB6
Von: Thorsten Dörfler
Ein Formular per Code zu minimieren ist schnell erledigt. Die Anweisung:
Form.WindowState = vbMinimized
genügt und das Formular verschwindet in der Taskleiste.
Das Wiederherstellen per Code gestaltet sich da schon schwieriger, solange der Benutzer darüber entscheiden kann, ob das Formular normal oder maximiert angezeigt wird. Nun kann man sich den Zustand des Formulars selber in einer Variablen merken und das Fenster entsprechend wiederherstellen. Aber warum sollte man sich diese Mühe machen, wenn Windows das schon selber macht? Mit der API Funktion ShowWindow und dem Parameter SW_RESTORE weisen Sie Windows an, das Formular in seinem ursprünglichen Zustand wiederherzustellen:
' Deklaration Private Declare Function ShowWindow Lib "user32" ( _ ByVal hwnd As Long, _ ByVal nCmdShow As Long _ ) As Long Private Const SW_RESTORE As Long = 9 Public Sub RestoreForm(ByRef Form As Form) ShowWindow Form.hwnd, SW_RESTORE End Sub ' Anwendung RestoreForm Form1