好奇怪我都看不懂

Private Sub cmdOK_Click() Dim msg As String, title As String Dim res As Integer msg = "输入数字" title = "测试" st = InputBox(msg, title) msg = "确定是否为" & st & "?" title = "测试" res = MsgBox(msg, 4 + 32 , title) If (res = 1) Then lblshow.Caption = "1" End If If (res = 2) Then lblshow.Caption = "2" End If cmdOK.Enabled = False End Sub 问题在哪？ res = MsgBox(msg, , title) 不懂什么意思怎样控制msgbox的确定和取消按钮？确定继续，取消返回。 (res = 1) 不理解？在此谢谢啦~

匿名用户 2008-05-24 18:36

满意回答

res = MsgBox(msg, vbYesNo, Title) If res = vbYes Then MsgBox "确定眠航殊立剑" Else MsgBox "取消泳崭" End If

匿名用户 2008-05-24 18:58

宝宝知道提示您：回答为网友贡献，仅供参考。

其他回答

这个是VB本身的常量 vbYes = 1 vbNo = 2 应该是这样吧，你可以通过VB的对象浏览器查到这些常量

匿名用户 2008-05-24 21:33

这个是VB本身的常量 vbYes = 1 vbNo = 2 应该是这样吧，你可以通过VB的对象浏览器查到这些常量

匿名用户 2008-05-24 21:15