各位大侠，这个错在那里了 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 各位大侠，这个错在那里了

标题：各位大侠，这个错在那里了

只看楼主

jxing

等　级：新手上路
帖　子：79
专家分：0
注　册：2004-12-3

楼主

问题点数：0 回复次数：3

各位大侠，这个错在那里了

Private Sub Command1_Click()

MsgBox "", vbOKCancel, "退出"

If vbOKCancel = vbOK Then Print "确定" Else Print "取消" End If

End Sub

2005-09-20 13:52

辉少

等　级：新手上路
威　望：2
帖　子：147
专家分：7
注　册：2005-8-25

第 2 楼

得分:0

纠正错误：首先 vbOKCancel 不是一个变量可修改为 if MsgBox "", vbOKCancel, "退出"=vbok then Print "确定" Else Print "取消" 或者 a=MsgBox "", vbOKCancel, "退出" If not a= 2Then Print "确定" Else Print "取消" End If

[此贴子已经被作者于2005-9-20 15:16:14编辑过]

辉少QQ:469781880 博客:http:///bbs/boke.asp?25189.index.html

2005-09-20 15:12

ychxy

等　级：新手上路
帖　子：43
专家分：0
注　册：2005-9-6

第 3 楼

得分:0

Dim rVal As VbMsgBoxResult

rVal = MsgBox("", vbOKCancel, "退出") If rVal = vbOK Then Print "确定" Else Print "取消" End If

2005-09-20 23:40

jxing

等　级：新手上路
帖　子：79
专家分：0
注　册：2004-12-3

第 4 楼

得分:0

谢谢了

2005-09-21 13:39

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-28140-1-1.html