1樓：匿名使用者
private sub menclose_click()picture1.print i
do until i = 0
exit_click
i=i-1
'要有迴圈結束條件
loop
end sub
2樓：匿名使用者
1、private sub menclose_click()
for i = forms.count - 1 to 0 step -1
if not typeof forms(i) is mdiform then if forms(i).mdichild then unload forms(i)
next
end sub
2、private sub menclose_click()
for each frm in forms
if not typeof frm is mdiform then if frm.mdichild then unload frm
next
end sub
3、private sub menclose_click()
do while not me.activeform is nothing
unload me.activeform
loop
end sub
3樓：尚心部落
dim 窗體 as form
for each 窗體 in forms
if 窗體 is not 父窗體 then exit_clicknext
4樓：匿名使用者
dim aa as form
for each aa in forms
if typeof aa is mdiform1 thenelse
unload aa
end if
next
VB MDI視窗問題，關於VB中的MDI父窗體與子窗體的問題？
private sub a click form2.hide form1.show end sub private sub b click form1.hide form2.show end sub form1 form2的mdichild屬性均設為true 再新增一個mdi窗體 系統預設載入for...
關於VB的倆問題，幾個關於VB的問題
第一個問題 沒看懂，什麼叫不能用？第二個問題 不是設定的問題啊。大於小於不等於能直接用的啊！你是說語法錯誤還是說程式結果錯誤。如果是語法錯誤看看你輸入時是不是輸入的全形符號。應該不會是這種錯。問題說清楚點。幾個關於vb的問題 你真的打算0分，讓人幫你解決這7個比較有難度的問題？朋友，你的問題太複雜且...
關於vb巢狀塊if語句的問題，關於VB巢狀塊IF語句的問題
private sub form click score val inputbox 輸入成績 if score 60 then if score 85 then st 優秀 else st 合格 end if else st 不合格 end if print st end sub ifscore 6...