- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]模式窗口 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107768)
-- 发布时间：2017/10/9 17:24:00
-- [求助]模式窗口
老师，下面代码打开模式窗口关闭不了独立窗口。
Case "目录树"
MainTable = Tables("目录树")
Forms("目录树").Show()
Forms("系统").baseform.visible=False \'关闭设备窗口
-- 发布时间：2017/10/9 17:28:00
--
试试这样
Case "目录树"
Forms("系统").baseform.visible=False \'关闭设备窗口
Forms("系统").baseform.opacity = 0
MainTable = Tables("目录树")
Forms("目录树").Show()
-- 发布时间：2017/10/9 19:10:00
--
老师，关闭模式窗口，切换表无法打开独立窗口。表有背景图。
-- 发布时间：2017/10/9 19:37:00
--
此主题相关图片如下：图像 6.png
-- 发布时间：2017/10/9 20:14:00
--
贴出具体代码说明。或者上传实例
-- 发布时间：2017/10/9 20:44:00
--
e.Form.baseform.Close
e.Form.baseform.opacity = 0
MainTable = Tables("系统")
Forms("系统").Show
-- 发布时间：2017/10/9 20:57:00
--
窗口默认置为底层了，被其它窗口挡住。
1、都使用独立窗口，或者都使用模式窗口
2、把独立窗口设置为顶层窗口，系统afterload
e.Form.Topmost = True
-- 发布时间：2017/10/9 22:17:00
--
老师，我把模式窗口变成独立窗口后下面的对话框就躲在独立窗口后面。
Dim Val As
Date = Date.Today
If
InputValue(Val, "筛选","请输入日期:") Then
Output.Show(Val)
End
If
怎样让对话框置顶
[此贴子已经被作者于2017/10/9 22:30:51编辑过]
-- 发布时间：2017/10/9 22:38:00
--
参考：http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=80178&skin=0