专家坐堂-对话框问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  对话框问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=14904)

--  作者：netfox168
--  发布时间：2011/12/6 17:15:00
--  对话框问题
如何在一段代码中，加入对话框，选择“是”继续执行后面的代码，选择“否”则终止执行并跳出来？

--  作者：狐狸爸爸
--  发布时间：2011/12/6 18:54: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