'* 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 #handle$
g.WindowCount = g.WindowCount - 1
Print "Closed ";handle$;". ";g.WindowCount;" window(s) open."
If g.WindowCount = 0 Then
Print "End of program."
End
End If
End Sub
Function TrapCloseCommon$()
TrapCloseCommon$ = "TrapClose CommonClose"
g.WindowCount = g.WindowCount + 1
End Function
Sub CascadePosition
offset = 0
CallDLL #user32, "GetSystemMetrics", _
_SM_CYCAPTION As ULong, _
cy As Long
offset = offset + cy
CallDLL #user32, "GetSystemMetrics", _
_SM_CYSIZEFRAME As ULong, _
cy As Long
offset = offset + cy
UpperLeftX = UpperLeftX + offset
UpperLeftY = UpperLeftY + offset
If UpperLeftX + WindowWidth > DisplayWidth _
Or UpperLeftY + WindowHeight > DisplayHeight Then
UpperLeftX = 1
UpperLeftY = 1
End If
End Sub
