打印本文 
关闭窗口 Private Sub new_Click()
For Each mdifrm In VB.Forms
If mdifrm.Caption <> Me.Caption Then
Unload mdifrm
End If
Next
End Sub http://ks.examda.com
打印本文 关闭窗口 | 打印本文 关闭窗口 |
|
| VB遍历已打开的MDI子窗体 | |
| 作者：佚名 文章来源：不详 点击数 更新时间：2008/10/22 21:37:57 文章录入：杜斌 责任编辑：杜斌 | |
|
|
|
|
Private Sub new_Click() For Each mdifrm In VB.Forms If mdifrm.Caption <> Me.Caption Then Unload mdifrm End If Next End Sub http://ks.examda.com |
|
| 打印本文 关闭窗口 |