如何关闭所有的MDI子窗口？

[fsmei]

还有如何使所有窗口最小化？

[shahand]

使用循环
getactivesheet
getnextsheet

[shahand]

错了是getfirstsheet和getnextsheet


boolean bValid

window wSheet
lb_sheets.Reset()
wSheet = ParentWindow.GetFirstSheet()
IF IsValid(wSheet) THEN

lb_sheets.AddItem(wSheet.Title)
DO
wSheet = ParentWindow.GetNextSheet(wSheet)
bValid = IsValid (wSheet)
IF bValid THEN lb_sheets.AddItem(wSheet.Title)
LOOP WHILE bValid

END IF

[shahand]

The following line sets the Minimized state for w_1.



This.WindowState = Minimized!

[wangkenping]

http://expert.csdn.net/Expert/topic/1522/1522414.xml?temp=.8654901

[fsmei]

//////f_closeall关闭所有子窗口
window wSheet
boolean bValid
do
wSheet = winmain.GetFirstSheet()
bValid = IsValid(wSheet)
if bValid then
Close(wSheet)
end if
loop while bValid

/////f_miniall缩小所有子窗口
window wSheet
boolean bValid
wSheet = winmain.GetFirstSheet()
if IsValid(wSheet) then
wSheet.windowstate = minimized!
do
wSheet = winmain.GetNextSheet(wSheet)
bValid = IsValid(wSheet)
if bValid then
wSheet.windowstate = minimized!
end if
loop while bValid
end if

[zmfly]

boolean bValid
window wSheet
DO
wSheet = ParentWindow.GetfirstSheet()
if IsValid (wSheet) THEN
close(wSheet)
end if
LOOP WHILE bValid



该程序段适用于任何菜单

[zmfly]

boolean bValid
window wSheet
DO
wSheet = ParentWindow.GetfirstSheet()
bValid=IsValid (wSheet)
IF bValid THEN
close(wSheet)
end if
LOOP WHILE bValid

刚才错了，应该现在这样

[xirumin]

全了，来学习一下

[coffeedou]

学习

[fsmei]

结贴了