- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [讨论]PopMessage关闭时同时也关闭MessageBox.Show (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96907)
-- 发布时间：2017/3/2 10:30:00
-- [讨论]PopMessage关闭时同时也关闭MessageBox.Show
如下：MessageBox会与PopMessage一起被“确认”后关闭！
PopMessage("制作升级包,请删除Attachments文件夹，否则放在Attachments文件夹下的用户配置会被覆盖!","提示", PopIconEnum.Error,4)
If MessageBox.Show("是否发布","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Information) = DialogResult.Yes
Syscmd.Project.PublishProject()
End If
[此贴子已经被作者于2017/3/2 10:30:00编辑过]
-- 发布时间：2017/3/2 10:51:00
--
这个没办法，需要自己做一个pop弹出窗口.......
-- 发布时间：2017/3/2 11:10:00
--
自己指定一下MessageBox的父窗口
PopMessage("制作升级包,请删除Attachments文件夹，否则放在Attachments文件夹下的用户配置会被覆盖!","提示", PopIconEnum.Error,4)
If MessageBox.Show(BaseMainForm,"是否发布","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Information) = DialogResult.Yes
Syscmd.Project.PublishProject()
End If
-- 发布时间：2017/3/2 12:45:00
--
是个BUG，因为还关闭了 Syscmd.Project.PublishProject() 的发布窗口！
不用它了！
-- 发布时间：2017/3/2 13:06:00
--
不会啊
比如从窗口中的按钮开始执行
PopMessage("制作升级包,请删除Attachments文件夹,否则放在Attachments文件夹下的用户配置会被覆盖!","提示", PopIconEnum.Error,4)
If MessageBox.Show(e.Form.Panel,"是否发布","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Information) = DialogResult.Yes
Syscmd.Project.PublishProject()
End If
从系统菜单按钮开始执行
PopMessage("制作升级包,请删除Attachments文件夹,否则放在Attachments文件夹下的用户配置会被覆盖!","提示", PopIconEnum.Error,4)
If MessageBox.Show(BaseMainForm,"是否发布","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Information) = DialogResult.Yes
Syscmd.Project.PublishProject()
End If
-- 发布时间：2017/3/2 13:27:00
--
一样的，是BUG,
场景：
PopMessage未关闭前，点击了Message Box的确认键，发布窗口已经打开时，PopMessage关闭的同时，发布窗口同时关闭！
-- 发布时间：2017/3/2 13:32:00
--
把4秒去掉就不会 了，你自己写一个这种控件也一样的
-- 发布时间：2017/3/2 13:36:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.foxdb |
-- 发布时间：2017/3/2 13:50:00
--
不好意思，命令窗口下是如此！