Question

vb6.0 打开对话框上的取消按钮我想做一个判断如果点取消不执行操作 如果点确定执行代码如下着急谢谢





Answer 1

if msgbox("是否执行？",vbyesno,"是否执行")=vbyes then
'执行代码
else
exit sub'跳出程序段
end if

Answer 2

就把你代码中的vbYesno换成VBOKcancel就可以了啊

一小段示例代码：

Private Sub Form_Load()
If MsgBox("示例", vbOKCancel, "示例") = vbOK Then '如果点确定
MsgBox "OK" '信息框，这里换成你要执行的代码
Else '其他，即“取消”或者关闭
End '结束程序，也可以直接去掉这一行
End If 
End Sub

Answer 3

If MsgBox("你确定继续操作码?" & Chr(13) & "取消不操作！", vbExclamation + vbOKCancel + vbDefaultButton2, "提示") <> vbOK Then
MsgBox "你取消了操作"
End If