以文本方式查看主题

-  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=98509)
--  作者：rubonlau
--  发布时间：2017/3/30 23:13:00
--  如何在关闭窗口后，设计一个返回或取消按钮
我设计了一个录入窗口。只有是和否的选项。
代码如下：
If DataTables("游戏信息表").HasChanges Then
    If MessageBox.Show("游戏信息内容改变,是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
        DataTables("游戏信息表").Save
    Else
        DataTables("游戏信息表").RejectChanges
    End If
End If
就是判断数据库的内容是否有修改，有的话询问用户是否保存。
但我现在想添加一个取消按钮。
用户点击取消后，就继续停留在当前的窗口上，请问该如何设计?
--  作者：有点色
--  发布时间：2017/3/30 23:22:00
--  

BeforeClose事件

 

If DataTables("游戏信息表").HasChanges Then
    Dim result As dialogresult
    result = MessageBox.Show("游戏信息内容改变,是否保存?", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
    If result = DialogResult.Yes Then
        DataTables("游戏信息表").Save
    ElseIf result = DialogResult.No Then
        DataTables("游戏信息表").RejectChanges
    Else
        e.cancel = True
    End If
End If