| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 关闭窗口 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=39118) |
| -- 作者：694687928 -- 发布时间：2013/8/15 21:21:00 -- 关闭窗口 离开时关闭当前所有窗口用什么命令啊 |
| -- 作者：有点甜 -- 发布时间：2013/8/15 21:26:00 -- 是指的关闭foxtable么？ basemainform.close()
|
| -- 作者：694687928 -- 发布时间：2013/8/15 23:39:00 -- 不是整个关闭的！ 我的是功能区一切换到功能区二的时候把功能区一中当前所打开的窗体关掉就好了！ 有哪位大侠知道请赐教一下！谢谢
|
| -- 作者：有点甜 -- 发布时间：2013/8/15 23:43:00 -- 必须要记录功能一打开了哪些窗口吖，想办法，用全局变量记录窗口的名字，然后逐个关闭 |
| -- 作者：694687928 -- 发布时间：2013/8/16 0:18:00 -- 我用的是导航栏打开的窗体，一般只有一个活动窗口，但不确定是哪个？ 程序是这样的 Dim bar As WinForm.NavBar = e.sender Select Case bar.SelectedPage.ButtonText Case "研发管理主页" MainTable = Tables("Main") Case "研发项目管理" Forms("项目管理窗口").open Case "研发档案管理" Forms("档案管理窗口").open Case "BOM表管理" Forms("BOM窗口").open End Select 若果能在每个CASE的后面再加个离开时关闭窗体的命令就好了！不知道行不行
[此贴子已经被作者于2013-8-16 0:18:48编辑过]
|
| -- 作者：lsy -- 发布时间：2013/8/16 7:09:00 -- For Each frm As WinForm.Form In Forms If frm.Opened AndAlso frm.Name <> "导航窗口" Then frm.Close End If Next Dim bar As WinForm.NavBar = e.sender Select Case bar.SelectedPage.ButtonText
Case "研发管理主页"
MainTable = Tables("Main")
Case "研发项目管理"
Forms("项目管理窗口").open
Case "研发档案管理"
Forms("档案管理窗口").open
Case "BOM表管理"
Forms("BOM窗口").open
End Select
|