Minimalizace/maxim. Formů ve vzájemné závislosti

Ukázka použití. (Krok za krokem)
  1. Založte nový Projekt ve VB
  2. Vložte 3 formuláře (Form1, Form2, Form3)
  3. Vložte Modul (Module1)
  4. Ve vlastnostech projektu nastavte Startup Object na Sub Main
  5. Vložte příslušné kódy popsané níže
  6. Spusťte a kochejte se


Do modulu vložte tento kód:

Option Explicit

Public Sub main()
  Form1.Show
  Form2.Show
  Form3.Show
End Sub

Sub ResizeApp(ofrm As Form)
 Dim i As Integer
 Static IsAct As Boolean
 If Not IsAct Then
   For i = 0 To Forms.Count - 1
     If Forms(i).Caption <> ofrm.Caption Then
       If Forms(i).WindowState <> ofrm.WindowState Then
         Forms(i).WindowState = ofrm.WindowState
       End If
        IsAct = True
     End If
   Next
 End If
 IsAct = False
End Sub

Private Sub Form_Resize()
  ResizeApp Me
End Sub