消息框问题

zhouquyi

想问个代码，就是，下面的代码，消息框能否改一下，就是选择带金额打印，不带金额打印，退出，三个选择的消息框。

If MsgBox("设置已完成，放进纸张后，即可打印，是否继续?", vbYesNo) = vbNo Then Exit Sub '询问是否打印

清风竹-

If MsgBox("设置已完成，放进纸张后，即可打印，是否继续?", vbYesNo) = vbNo Then
   Exit Sub '询问是否打印
   Else
   If MsgBox("带金额打印 选择“是” ；不带金额打印 选择“否”", vbYesNo) = vbNo Then
   ' 不带金额打印 代码
    Else
  ' 带金额打印 代码
   End If
  End If

tanglf188

1. Sub test()
   
2.     sel = MsgBox("设置已完成，放进纸张准备打印" & Chr(10) & "带金额打印点击[ 是 ],不带金额打印点击[ 否 ],[ 取消 ]放弃打印。", 67, "打印提示")
   
3.     Select Case sel
   
4.         Case 6
   
5.             MsgBox "带金额打印"
   
6.         Case 7
   
7.             MsgBox "不带金额打印"
   
8.         Case 2
   
9.             MsgBox "取消打印"
   
10.     End Select
    
11. End Sub

复制代码