Dim frm As Form
For Each frm In Forms
If frm.MDIChild = True Then
Unload frm
End If
Next
For Each frm In Forms
If frm.MDIChild = True Then
Unload frm
End If
Next
解决方案 »
- 请问TextPad里可以自动换行么
- 【ALL】处理图片的api函数问题
- 高分提个简单问题
- 有项目需要找合作!是一个美容美发店管理系统来的!VB 开发!
- 当把MDI子窗体放到最大时,为什么主窗体的MENU会不见了
- VB登陆界面与SQL表的连接代码怎么写啊
- 这段时间有点忙,都不知道什么时候长了个角!散点分,补一下!
- 如何把图片嵌入程序之中
- 条码打印控件,能用就行。500分给他。
- 类模块的参数传递
- 没有人会http://www.csdn.net/expert/topic/983/983340.xml?temp=.1515924 的问题吗?那大家来讨论一下,来者有分!!把这两个贴子的100
- 请问如何转换内码
unload mdiforms.activeformloop
If Not (TypeOf of Is MDIForm) Then
If of.MDIChild = True Then Unload of
End If
Next
Unload MDIForm1.ActiveForm
Loop
For Each frm In Forms
If frm.hWnd <> MDIForm1.hWnd Then
Unload frm
End If
Next
Dim frm As Form
For Each frm In Forms
If frm.hWnd <> MDIForm1.hWnd Then
Unload frm
End If
Next
Do while mdiforms.forms>1
set frm=mdiforms.activeform
unload frm
Loop