以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]MessageBox的示例  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160322)
--  作者：ntqhj
--  发布时间：2021/1/28 22:51:00
--  [求助]MessageBox的示例
老师好！MessageBox的示例中，想完成示例五，判断用户单击了哪个按钮的功能，该窗口中是Y及否N按钮，修改为其它文字该如何修改？
--  作者：有点蓝
--  发布时间：2021/1/28 23:01:00
--  
改不了，按钮文字是固定的，只能是帮助里提供的文字


AbortRetryIgnore：包含“中止”、“重试”和“忽略”按钮。
OK：包含“确定”按钮
OKCancel：包含“确定”和“取消”按钮
RetryCancel：包含“重试”和“取消”按钮
YesNo：包含“是”和“否”按钮
YesNoCancel：包含“是”、“否”和“取消”按钮
--  作者：ntqhj
--  发布时间：2021/1/29 15:01:00
--  
老师好！ Result = MessageBox.Show("国产:是(Y)  进口:否(N)?", "请选择", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)，Cancel按钮点选怎不退出该预定义对话框，还是继续执行之下代码？
--  作者：有点蓝
--  发布时间：2021/1/29 15:08:00
--  
没看懂，贴出详细代码说明
--  作者：ntqhj
--  发布时间：2021/1/30 10:41:00
--  
老师好！按钮click，我的理解是点取消应该不执行代码了，且退出预定义对话框，实际点取消按钮还会继续执行代码且与点否执行的代码相同。该如何修改代码？
Dim Result As DialogResult
Result = MessageBox.Show("Visual Basic一点不难,是不是?", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    MessageBox.Show("不错,说明你已经认真学习了.","提示")
Else
    MessageBox.Show("好好学习吧,你会认同这个看法的.","提示")
End If

MessageBox.Show("执行中的代码","提示")
[此贴子已经被作者于2021/1/30 10:45:01编辑过]
--  作者：有点蓝
--  发布时间：2021/1/30 10:48:00
--  
建议再看看if else的语法：http://www.foxtable.com/webhelp/topics/0223.htm

Dim Result As DialogResult
Result = MessageBox.Show("Visual Basic一点不难,是不是?", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then 如果选择了“是”
    MessageBox.Show("不错,说明你已经认真学习了.","提示")
Else 否则没有选择“是”，有可能选择了否或者取消。
    MessageBox.Show("好好学习吧,你会认同这个看法的.","提示")
End If

这里的取消只是一个按钮的名称以及按钮对应点击的结果，而不是代表一个动作，得到取消的结果后应该怎么做要自己处理的，比如
If Result = DialogResult.Yes Then 表示点击了是
    MessageBox.Show("不错,说明你已经认真学习了.","提示")
elseif Result = DialogResult.Cancel Then 表示点击了取消
取消的处理，比如返回
return
Else 剩下的就是表示点击了否
    MessageBox.Show("好好学习吧,你会认同这个看法的.","提示")
End If