以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 菜单设计  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=127873)
--  作者：susanhe
--  发布时间：2018/11/23 23:20:00
--  [求助] 菜单设计
请问一下，我要使用菜单状态按钮，按一下窗口打开，再一下窗口关闭，关闭前未保存提醒保存，请指导一下，谢谢。
--  作者：susanhe
--  发布时间：2018/11/23 23:20:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：捕获.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2018/11/24 8:29:00
--  
状态按钮PressedChanged事件

If e.ToggleButton.Pressed Then
    Forms("窗口1").Open
Else
    Forms("窗口1").Close
End If

窗口1，beforeclose事件
If DataTables("表A").HasChanges Then
    If MessageBox.Show("是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
        DataTables("表A").save
    End If
End If