以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于MessageBox的一个问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=14680)
--  作者：simin
--  发布时间：2011/11/28 18:25:00
--  关于MessageBox的一个问题
以下这段代码是加在哪里执行的啊？ 

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
--  作者：czy
--  发布时间：2011/11/28 18:37:00
--  
命令窗口。
--  作者：simin
--  发布时间：2011/11/30 14:26:00
--  

在项目中怎么用？
--  作者：狐狸爸爸
--  发布时间：2011/11/30 14:28:00
--  
继续看，看到后面Foxtable编程，事件编程，窗口设计，菜单设计就知道怎么用了。
--  作者：simin
--  发布时间：2011/11/30 21:11:00
--  

我要在提示窗口按YES按钮，然后打开一个窗口，怎么写代码？谢谢了
--  作者：小猪鑫鑫
--  发布时间：2011/11/30 21:41:00
--  

楼主：假设你想单击了YES后打开一个名称为“人事录入”的窗体，则其代码为：

Dim Result As DialogResult
Result = MessageBox.Show("如果想打开人事录入窗体请点击YES，否则返回！", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
   forms("人事录入").open()
Else
return

End if
--  作者：simin
--  发布时间：2011/11/30 22:15:00
--  
呵呵，我就是不知道这段代码写在那个事件里？
--  作者：小猪鑫鑫
--  发布时间：2011/11/30 22:49:00
--  
在窗体中增加一个按扭，并在它的单击事件中加入这个代码即可
--  作者：simin
--  发布时间：2011/12/1 21:03:00
--  

不行啊
--  作者：czy
--  发布时间：2011/12/1 21:31:00
--  

你如果放到命令窗口执行：

 

Dim Result As DialogResult
Result = MessageBox.Show("如果想打开人事录入窗体请点击YES,否则返回!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Forms("窗口名称").open()
End If