Foxtable(狐表)用户栏目专家坐堂 → [求助]关于MessageBox.show的问题...


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

主题:[求助]关于MessageBox.show的问题...

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


加好友 发短信 菜鸟中的老鸟
等级:七尾狐 帖子:1486 积分:10064 威望:0 精华:9 注册:2008/11/14 8:54:00
[求助]关于MessageBox.show的问题...  发帖心情 Post By:2008/12/16 13:11:00 [只看该作者]

新建立一个按钮控件
录入如下代码:
Dim Result As DialogResult
MessageBox.Show("确定录入信息正确吗?","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Question)
if Result = DialogResult.ok then
Syscmd.Project.Save()
Forms("窗口1").Close()
end if

为什么我点击"是"它不保存也不关闭窗口?图片点击可在新窗口打开查看

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2008/12/16 13:28:00 [只看该作者]

我喜欢这么用:

if MessageBox.Show("确定录入信息正确吗?","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) = 1
   Syscmd.Project.Save()
   Forms("窗口1").Close()
end if

[此贴子已经被作者于2008-12-16 13:40:02编辑过]

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


加好友 发短信 F6
等级:狐精 帖子:3036 积分:19223 威望:0 精华:2 注册:2008/9/1 7:50:00
  发帖心情 Post By:2008/12/16 13:36:00 [只看该作者]

Dim Result As DialogResult
Result = MessageBox.Show("确定录入信息正确吗?","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Question)
if Result = DialogResult.ok then
Syscmd.Project.Save()
Forms("窗口1").Close()
end if

 回到顶部
帅哥哟,离线,有人找我吗?
菜鸟foxtable
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 菜鸟中的老鸟
等级:七尾狐 帖子:1486 积分:10064 威望:0 精华:9 注册:2008/11/14 8:54:00
  发帖心情 Post By:2008/12/16 14:19:00 [只看该作者]

图片点击可在新窗口打开查看原来是我搞错代码...

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


加好友 发短信
等级:婴狐 帖子:29 积分:263 威望:0 精华:0 注册:2011/11/5 22:08:00
  发帖心情 Post By:2011/11/28 18:22:00 [只看该作者]

以下这段代码是加在哪里执行的啊? 

Dim Result As DialogResult
Result = MessageBox.Show(
"Visual Basic一点不难,是不是?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If
Result = DialogResult.Yes Then
    MessageBox.Show(
"不错,说明你已经认真学习了。","提示")
Else

    MessageBox.Show(
"好好学习吧,你会认同这个看法的。","提示")
End
if


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/11/28 21:53:00 [只看该作者]

楼上:

 

图片点击可在新窗口打开查看


 回到顶部