当最小化一个窗体时，其他的窗体也随着最小化.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 24 行

第 一 个 问 题 可 以 使 用 下 面 的 代 码 ： 
    Private Sub Form_Resize() 
     Dim i 
     
     If WindowState = vbMinimized Then 
     For i = 0 To Forms.Count - 1 
     If Forms(i).hwnd <> hwnd Then Forms(i).WindowState = vbMinimized 
     Next 
     End If 
    End Sub 
    如 果 你 的 其 它 窗 口 ShowInTaskbar为 False， 也 可 以 考 虑 将 
    Forms(i).WindowState = vbMinimized 
    改 为 Forms(i).Hide 
    当 然 你 还 需 要 在 Resize事 件 中 加 一 段 恢 复 窗 口 大 小 的 代 码 。 
    第 二 个 问 题 可 以 ： 
    Private Sub Form_Resize() 
     Dim i 
     
     If WindowState = vbMinimized Then 
     Hide 
     End If 
    End Sub 
<END>