共6 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]关于MessageBox.show的问题...
1楼
菜鸟foxtable 发表于：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
为什么我点击"是"它不保存也不关闭窗口?
录入如下代码:
Dim Result As DialogResult
MessageBox.Show("确定录入信息正确吗?","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Question)
if Result = DialogResult.ok then
Syscmd.Project.Save()
Forms("窗口1").Close()
end if
为什么我点击"是"它不保存也不关闭窗口?
2楼
czy 发表于：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编辑过]
3楼
kylin 发表于：2008/12/16 13:36:00Dim Result As DialogResult
Result = MessageBox.Show("确定录入信息正确吗?","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Question)
if Result = DialogResult.ok then
Syscmd.Project.Save()
Forms("窗口1").Close()
end if
Result = MessageBox.Show("确定录入信息正确吗?","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Question)
if Result = DialogResult.ok then
Syscmd.Project.Save()
Forms("窗口1").Close()
end if
4楼
菜鸟foxtable 发表于：2008/12/16 14:19:00
原来是我搞错代码...
5楼
simin 发表于：2011/11/28 18:22:00以下这段代码是加在哪里执行的啊？
Result = MessageBox.Show("Visual Basic一点不难，是不是？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
MessageBox.Show("不错，说明你已经认真学习了。","提示")
Else
MessageBox.Show("好好学习吧，你会认同这个看法的。","提示")
End if
Dim
Result As DialogResultResult = MessageBox.Show("Visual Basic一点不难，是不是？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
MessageBox.Show("不错，说明你已经认真学习了。","提示")
Else
MessageBox.Show("好好学习吧，你会认同这个看法的。","提示")
End if
6楼
狐狸爸爸 发表于：2011/11/28 21:53:00楼上：
共6 条记录, 每页显示 10 条, 页签:
[1]