vba15-1.txt

来自「ao的一些代码集合」· 文本 代码 · 共 37 行

Public Sub TileDataWindows()
    Dim pApplicationWindows As IApplicationWindows
    Dim pWindowsSet As ISet
    Dim pDataWindow As IDataWindow
    Dim lngLeft As Long
    Dim lngTop As Long
    Dim lngRight As Long
    Dim lngBottom As Long
    Dim lngNewLeft As Long
    Dim lngNewTop As Long
    Dim lngNewRight As Long
    Dim lngNewBottom As Long
    Dim lngWidth As Long
    Dim lngHeight As Long
    
    lngNewLeft = 0
    lngNewTop = 0
    Set pApplicationWindows = Application
    Set pWindowsSet = pApplicationWindows.DataWindows
    pWindowsSet.Reset
    Set pDataWindow = pWindowsSet.Next
    Do While Not pDataWindow Is Nothing
        pDataWindow.QueryPosition lngLeft, lngTop, _
        lngRight, lngBottom
        lngWidth = lngRight - lngLeft
        lngHeight = lngBottom - lngTop
        lngNewRight = lngNewLeft + lngWidth
        lngNewBottom = lngNewTop + lngHeight
        pDataWindow.PutPosition lngNewLeft, lngNewTop, _
        lngNewRight, lngNewBottom
        lngNewLeft = lngNewRight + 1
        If TypeOf pDataWindow Is IMapInsetWindow Then
            pDataWindow.Refresh
        End If
        Set pDataWindow = pWindowsSet.Next
    Loop
End Sub