新手求助小问题

Sub Click(Source As Button)
msgReturnValue = Messagebox ("是否签字？" , MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON1 + MB_SYSTEMMODAL ,  "提示信息")
If msgReturnValue <> 6 Then
Exit Sub
End If
End Sub

一个按钮

在客户机上出现的对话框，为什么只有     提示信息   是否签字 和一个确定按钮，  没有取消 和图标 --------------------编程问答-------------------- Dim Select2 As Variant
Dim Chose1(2) As Variant
Chose1(0) = "确认"
Chose1(1) = "取消"
Select2 = uiws.Prompt (PROMPT_OkCancelList, "Selection ", "請選擇是否签字", Chose1(2), Chose1)
If Select2 =  "确认" Then
。。。。


如果是提供选择的话，我就用这种了，Messagebox我还是当成信息提示来使用
--------------------编程问答-------------------- Dim Select2 As Variant
Dim Chose1(2) As Variant
Chose1(0) = "是"
Chose1(1) = "否"
Select2 = uiws.Prompt (PROMPT_OkCancelList, "Selection ", "請選擇是否签字", Chose1(2), Chose1)
If Select2 =  "否" Then
。。。。


如果是提供选择的话，我就这么写了，Messagebox感觉还是当成信息提示吧
--------------------编程问答-------------------- Chose1(0) = "是"
Chose1(1) = "否"
Select2 = uiws.Prompt (PROMPT_OkCancelList, "Selection ", "請選擇是否签字", Chose1(2), Chose1)
If Select2 =  "否" Then
。。。。


如果是提供选择的话，我就这么写了，Messagebox感觉还是当成信息提示吧 --------------------编程问答-------------------- 使用value代替Constant name
Sub Click(Source As Button)
msgReturnValue = Messagebox ("是否签字？" ,1 + MB_ICONQUESTION + MB_DEFBUTTON1 + MB_SYSTEMMODAL , "提示信息")
If msgReturnValue <> 1 Then
Exit Sub
End If
End Sub --------------------编程问答--------------------

引用楼主 peterniuqq 的回复:

Sub Click(Source As Button)
msgReturnValue = Messagebox ("是否签字？" , MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON1 + MB_SYSTEMMODAL , "提示信息")
If msgReturnValue <> 6 Then
Exit Sub
End If
End Sub

一个按……

我这“是”“否”和图标都有啊..... --------------------编程问答-------------------- 换成VALUE试试吧，之前我也遇到过用CONTENT NAME不行的时候。

要"是"和"否"就换4和6 要"确定"和"取消"就换成1和1

补充：企业软件 ,  Lotus