- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于MessageBox.show的问题... (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1402)
-- 发布时间：2008/12/16 13:11:00
-- [求助]关于MessageBox.show的问题...
新建立一个按钮控件
录入如下代码:
Dim Result As DialogResult
MessageBox.Show("确定录入信息正确吗?","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Question)
if Result = DialogResult.ok then
Syscmd.Project.Save()
Forms("窗口1").Close()
end if
为什么我点击"是"它不保存也不关闭窗口?
-- 发布时间：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编辑过]
-- 发布时间：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
-- 发布时间：2008/12/16 14:19:00
--
原来是我搞错代码...
-- 发布时间：2011/11/28 18:22:00
--
以下这段代码是加在哪里执行的啊？
Dim
Result As DialogResultResult = MessageBox.Show("Visual Basic一点不难，是不是？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
MessageBox.Show("不错，说明你已经认真学习了。","提示")
Else
MessageBox.Show("好好学习吧，你会认同这个看法的。","提示")
End if
-- 发布时间：2011/11/28 21:53:00
--
楼上：
