ManagedCascade

From libertybasic.conforums.com by Brent Thorn:

This little program demonstrates two concepts.

**1.** The **CascadePosition** sub gives your program the ability to open multiple windows arranged in the classic cascaded arrangement. CascadePosition must be called before a window is opened.

**2.** The **TrapCloseCommon$()** function and **CommonClose** sub provide a simple means of multiple window management by maintaining a count of the number of instances of open windows. To use these procedures, you must place the declaration for **g.WindowCount** near the top of your program and instead of doing a #handle "TrapClose etc" you must use #handle TrapCloseCommon$().

[[code]][[code format="vbnet"]]
'* Cascading windows and instance counting
'* By Brent D. Thorn (http://www.b6sw.com/)
'* PUBLIC DOMAIN

Global g.WindowCount

Call CascadePosition
Open "1" For Window As #1
#1 TrapCloseCommon$()

Call CascadePosition
Open "2" For Window As #2
#2 TrapCloseCommon$()

Call CascadePosition
Open "3" For Window As #3
#3 TrapCloseCommon$()

Wait

Sub CommonClose handle$
Close    Close #handle$
g.WindowCount
    g.WindowCount = g.WindowCount - 1

Print    Print "Closed ";handle$;". ";g.WindowCount;" window(s) open."

If    If g.WindowCount = 0 Then
Print
        Print "End of program."

End
End
        End
    End If
End Sub

Function TrapCloseCommon$()
TrapCloseCommon$    TrapCloseCommon$ = "TrapClose CommonClose"
g.WindowCount =
    g.WindowCount    = g.WindowCount + 1
End Function

Sub CascadePosition
offset    offset = 0

    CallDLL #user32, "GetSystemMetrics", _
        _SM_CYCAPTION As ULong, _
        cy            As Long

    offset = offset + cy

CallDLL    CallDLL #user32, "GetSystemMetrics", _
_SM_CYCAPTION
        _SM_CYSIZEFRAME As ULong, _
cy As
        cy              As Long
offset = offset + cy

CallDLL #user32, "GetSystemMetrics", _
_SM_CYSIZEFRAME As ULong, _
cy As Long
offset    offset = offset + cy

UpperLeftX    UpperLeftX = UpperLeftX + offset
UpperLeftY
    UpperLeftY = UpperLeftY + offset

If UpperLeftX    If (UpperLeftX + WindowWidth > DisplayWidthDisplayWidth) _
Or UpperLeftY
      Or (UpperLeftY + WindowHeight > DisplayHeightDisplayHeight) Then
UpperLeftX
        UpperLeftX = 1
UpperLeftY
        UpperLeftY = 1
End
    End If
End Sub
[[code]]