怎样弹出带“确认”与“取消”按钮的提示框?

解决方案 »

  1.   

    MsgBox "你好!", vbOKCancel, "小样的"
      

  2.   

    MsgBox 函数示例
    本示例使用 MsgBox 函数,在具有“是”及“否”按钮的对话框中显示一条严重错误信息。示例中的缺省按钮为“否”,MsgBox 函数的返回值视用户按哪一个钮而定。本示例假设 DEMO.HLP 为一帮助文件,其中有一个内容代码为 1000。Dim Msg, Style, Title, Help, Ctxt, Response, MyString
    Msg = "Do you want to continue ?"   ' 定义信息。
    Style = vbYesNo + vbCritical + vbDefaultButton2   ' 定义按钮。
    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
      

  3.   

    MsgBox("确认清空?", vbOKCancel, "清空")
      

  4.   

    MsgBox("确认清空?", vbOKCancel+vbinformation, "清空")
      

  5.   

    我使用这句话
    bIdentifyAgain = MsgBox("指纹校验失败,请重新录入指纹。按“取消”退出!", vbOKCancel, "提示框")它的返回值bIdentifyAgain 似乎始终是真耶,不管按确认还是取消,咋回事啊
      

  6.   

    返回的值应该是这样的!
    VBOK
    VBCancel这两个之一!
    if  MsgBox("指纹校验失败,请重新录入指纹。按“取消”退出!", vbOKCancel, "提示框")=VbOK Then
       MsgBox "OK按下"
    else
       msgbox "Cancel按下"
    endif
      

  7.   

    Dim IntReturn As Integer
    IntReturn = MsgBox("警告:由于是个人记帐簿,请认真输入数据!", vbInformation + vbOKCancel, "信息提示")If IntReturn = vbOK Then
        MsgBox "您按下了OK键!"
    Else
        MsgBox "您按下了Cancel键!"
    EndIf