[VBA函数]：对多文档界面(MDI)文档窗口进行排列

whp5924

对多文档界面(MDI)文档窗口进行排列
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hwnd As Long, _
     ByVal wMsg As Long, _
     ByVal wParam As Long, _
     lParam As Any) As Long
     
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long

Public Const WM_MDICASCADE = &H227
Public Const WM_MDIICONARRANGE = &H228
Public Const WM_MDIMAXIMIZE = &H225
Public Const WM_MDIRESTORE = &H223
Public Const WM_MDITILE = &H226
Public Const MDITILE_HORIZONTAL = &H1
Public Const MDITILE_SKIPDISABLED = &H2
Public Const MDITILE_VERTICAL = &H0

' 可选的排列样式常数
' 这些不是API常数
Public Const ARRANGE_TILE_VERTICAL = 0
Public Const ARRANGE_TILE_HORIZONTAL = 1
Public Const ARRANGE_CASCADE = 2
Public Const ARRANGE_ICONS = 3
Public Const ARRANGE_MAXIMIZE = 4
Public Const ARRANGE_RESTORE = 5


Public Sub ArrangeWindows(Arrangement As Integer, hWnd As Long)

    Dim wMsg As Long, wParam As Long
   
    Select Case Arrangement
        Case 0 ' 竖向平铺
            wMsg = WM_MDITILE
            wParam = MDITILE_VERTICAL Or MDITILE_SKIPDISABLED
        
        Case 1 ' 横向平铺
            wMsg = WM_MDITILE
            wParam = MDITILE_HORIZONTAL Or MDITILE_SKIPDISABLED
            
        Case 2 ' 层叠窗口
            wMsg = WM_MDICASCADE
            wParam = MDITILE_SKIPDISABLED
            
        Case 3 ' 排列图标
            wMsg = WM_MDIICONARRANGE
            wParam = 0&
            
        Case 4 ' 最大化当前文档
            wMsg = WM_MDIMAXIMIZE
            wParam = hWnd
            
        Case 5 ' 恢复当前文档
            wMsg = WM_MDIRESTORE
            wParam = hWnd
            
    End Select
   
    SendMessage GetParent(hWnd), wMsg, wParam, 0&

End Sub

chshch

看不明白