| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 关闭窗口问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=122402) |
| -- 作者：实话实说 -- 发布时间：2018/7/24 19:41:00 -- 关闭窗口问题 下面代码是想关闭除当前窗口和“窗口1”外的所有窗口，第二行代码有问题 For Each f As WinForm.Form In forms If f.name <> e.form.name and f.name <> Forms("窗口1") Then f.close End If Next
|
| -- 作者：2900819580 -- 发布时间：2018/7/24 20:57:00 -- For Each f As WinForm.Form In forms
If f.name <> e.form.name and f.name <> "窗口1" Then
f.close
End If
Next
[此贴子已经被作者于2018/7/24 21:00:47编辑过]
|