在线===，一个关于msgbox的问题

[wshxcxw]

我写的程序如下：为什么不能运行呢？

dim a as msgboxresult
a=msgbox("ok",MsgBoxStyle.Critical,"title")

结果运行不过去！！！！

[panyee]

msgbox("ok","title")

[panyee]

msgbox("OK", "title")

[XXSingle]

不懂VB.........

[0909424]

？
不明白？能具体点吗？

[0909424]

在线qq是：150397019

[panyee]

http://www.devguru.com/Technologies/vbscript/quickref/msgbox.html

Implemented in version 1.0

MsgBox(Prompt, Buttons, Title)

MsgBox(Prompt, Buttons, HelpFile, Context)

The MsgBox function creates a dialog box with a specified message and prompts the user to click a button, upon which the dialog box closes and a value relating to which button was clicked is returned. These values, along with their Constants, are listed in the table below.

CONSTANT VALUE BUTTON
VBOK 1 OK
VBCancel 2 Cancel
VBAbort 3 Abort
VBRetry 4 Retry
VBIgnore 5 Ignore
VBYes 6 Yes
VBNo 7 No

[panyee]

要几个按钮，就把要的铵钮的值加起来

[greystar]

这是vb的

[xDotNet]

试试这个:

dim a as integer
a=msgbox("ok",16+0,"title")
console.writeline(a.tostring)
a=msgbox("ok",32+1,"title")
console.writeline(a.tostring)
a=msgbox("ok",48+2,"title")
console.writeline(a.tostring)

[0909424]

我上边的怎么不能运行呢？

我试试你的方法

[Montaque]

msgbox是模式的对话框，你必须点击后才能进行后面的操作。

[netbase]

MsgBoxResult是枚举类型，你必须引用具体的枚举值。
比如MsgBoxResult.OK
通常这样用：
if msgbox("ok",MsgBoxStyle.Critical,"title")=MsgBoxResult.OK then
'按OK按钮的处理
else
'按其他按钮的处理
end if

[szch]

if msgbox("continue?",msgboxstyle.yesno,"title")=msgboxstyle.no then
exit sub
endif

[qiongguoer]

我使用msgbox时出现了以下错误：
在应用程序未以 UserInteractive 模式运行的情况下显示有模式对话框或窗体是无效的操作。请指定 ServiceNotification 或 DefaultDesktopOnly 样式，以显示服务应用程序发出的通知。

[wf79]

iRet = MsgBox("ok", MsgBoxStyle.Critical, "title")
If iRet = MsgBoxResult.OK Then
....
End If
不过MsgBoxStyle.Critical好像返回值只有ok，所以判断也没有什么用。

[sandju]

不可能吧，应该可以运行的，是不是你的vs.net的环境出了问题？还史你的问题体没有描述清楚？

[sweet12345]

你的那个代码完全可以运行，不信你在试试看。