- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]独立窗体的自动关闭 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=39834)
-- 发布时间：2013/9/2 19:30:00
-- [求助]独立窗体的自动关闭
设置了比较多的独立窗体 。如何设置 打开另外一个 独立窗体的时候 ，当前的独立窗体自动关闭 ？谢谢 !!
-- 发布时间：2013/9/2 20:51:00
--
如下代码
Dim frm As System.Windows.Forms.Form = System.Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
frm.close
End If
Forms("xxx").Show
[此贴子已经被作者于2013-9-2 20:52:31编辑过]
-- 发布时间：2013/9/2 21:34:00
--
Dim
frm As WinForm.Form = Forms.ActiveFormIf frm IsNot Nothing Then
frm.close
End If
Forms("xxx").Show
这样不行吗？我没测试
-- 发布时间：2013/9/2 21:44:00
--
呵呵，原来forms有activeForm属性
-- 发布时间：2013/9/3 9:54:00
--
这是不是 写进 每一个 窗体的 打开事件中 ？另外
forms ("xxx") 是指当前窗口名字吧 。这样每个窗体都写一次 ，那不是比较麻烦 。窗体特多的呀 。。。
-- 发布时间：2013/9/3 11:06:00
--
在菜单按钮中，先关闭所有打开的独立窗口。
然后再打开，你想要打开的窗口。
For Each frm As WinForm.Form In Forms
If frm.FormStyle = 2 AndAlso frm.Opened Then
frm.Close()
End If
Next
-- 发布时间：2013/9/3 15:49:00
--
不是很明白 。这段代码改设置在哪里呢 ？？
谢谢 ！！
-- 发布时间：2013/9/3 15:50:00
--
用于打开窗口的按钮的click事件。