如何在关闭窗口后，设计一个返回或取消按钮 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何在关闭窗口后，设计一个返回或取消按钮

共有1594人关注过本帖树形打印复制链接主题：如何在关闭窗口后，设计一个返回或取消按钮

rubonlau

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：24 积分：298 威望：0 精华：0 注册：2017/3/27 21:11:00

如何在关闭窗口后，设计一个返回或取消按钮 发帖心情

Post By：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

就是判断数据库的内容是否有修改，有的话询问用户是否保存。

但我现在想添加一个取消按钮。

用户点击取消后，就继续停留在当前的窗口上，请问该如何设计?

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：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

下一主题 >> << 上一主题

主题：如何在关闭窗口后，设计一个返回或取消按钮