请问:关于MSGBOX
要显示的时候 在消息框里一个按纽都没有 怎么设置啊?
[解决办法]
自己做一个FORM吧!!!
[解决办法]
msgbox "要显示的内容 ",0, "标题 "
[解决办法]
恩, 自己做个form.然后 vbmodal方式调用
[解决办法]
Private Sub Command1_Click()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ? " ' 定义信息。
Style = 2 ' 定义按钮。
Title = "MsgBox Demonstration " ' 定义标题。
Help = "DEMO.HLP " ' 定义帮助文件。
Ctxt = 1000 ' 定义标题
' 上下文。
' 显示信息。
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 用户按下“是”。
MyString = "Yes " ' 完成某操作。
Else ' 用户按下“否”。
MyString = "No " ' 完成某操作。
End If
End Sub
上述代码中Style的值定义按钮:
有下列设置值:
常数 值 描述
vbOKOnly 0 只显示 OK 按钮。
VbOKCancel 1 显示 OK 及 Cancel 按钮。
VbAbortRetryIgnore 2 显示 Abort、Retry 及 Ignore 按钮。
VbYesNoCancel 3 显示 Yes、No 及 Cancel 按钮。
VbYesNo 4 显示 Yes 及 No 按钮。
VbRetryCancel 5 显示 Retry 及 Cancel 按钮。
VbCritical 16 显示 Critical Message 图标。
VbQuestion 32 显示 Warning Query 图标。
VbExclamation 48 显示 Warning Message 图标。
VbInformation 64 显示 Information Message 图标。
vbDefaultButton1 0 第一个按钮是缺省值。
vbDefaultButton2 256 第二个按钮是缺省值。
vbDefaultButton3 512 第三个按钮是缺省值。
vbDefaultButton4 768 第四个按钮是缺省值。
以上均引自MSDN。