Foxtable(狐表)用户栏目专家坐堂 → [求助]关闭窗口前用户按下了增加按钮


  共有4245人关注过本帖树形打印复制链接

主题:[求助]关闭窗口前用户按下了增加按钮

帅哥哟,离线,有人找我吗?
chnfo
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2239 积分:18446 威望:0 精华:0 注册:2011/11/26 20:21:00
[求助]关闭窗口前用户按下了增加按钮  发帖心情 Post By:2014/4/6 19:55:00 [只看该作者]

本意:
因为buttonAdd是用于将SQLTable里的部分数据添加到其它表中,所以在关闭窗口前希望提示用户保存数据
1、如果用户希望保存数据,则相当于按下了buttonAdd按钮,然后关闭窗口
2、如果用户不希望保存数据,则不执行buttonAdd按钮操作,直接关闭窗口。

如何做呢?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:如何在窗口关闭前添加了数据.rar


这样的代码明显测试有问题,但是问题在哪里呢?
Dim Result As DialogResult
Result = MessageBox.Show("关闭窗口前要保存数据吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Dim btn As WinForm.Button = e.Form.Controls("ButtonAdd")
    btn.PerformClick()
Else
    e.Form.Close()
End If

[此贴子已经被作者于2014-4-6 20:00:53编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/7 9:29:00 [只看该作者]

是编写beforeclose事件么?

 

Dim Result As DialogResult
Result = MessageBox.Show("关闭窗口前要保存数据吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Dim btn As WinForm.Button = e.Form.Controls("ButtonAdd")
    btn.PerformClick()
End If


 回到顶部