回 帖 发 新 帖 刷新版面

主题:MsgBox使用中的问题

现有两个问题请教:
1.代码如下:
  ......
  MsgBox "确实退出吗?",vbYesNo,"提示"
  If vbYes then
     End
  Else
     (除关闭提示框,不做任何事情)
  Endif
  .........
  执行时无论按哪个按钮都退出运行,不知何故?
2.在给出一个MsgBox提示框时,既想有提示的符号(×、?、!、i),又想有多个选择按钮,命令行该如何写?我试图将两个vb...连起来写都没有成功。


  

  

回复列表 (共1个回复)

沙发

1、使用msgbox让用户选择,布恩那个使用msgbox语句,二要使用msgbox函数。代码修改如下:
选择=MsgBox( "确实退出吗?",vbYesNo,"提示")
If 选择=vbYes then
     End
Else
     '(除关闭提示框,不做任何事情)
Endif

2、提示符号×、?、!、i四个不能同时使用,但可以使用一个(也可以不用)。这个与按钮的不冲突。
例如,我们用?和三个按钮(是、否、取消),代码如下:
选择 = MsgBox("确实退出吗?", vbQuestion + vbYesNoCancel, "提示")

我来回复

您尚未登录,请登录后再回复。点此登录或注册