好奇怪我都看不懂

来源:百度知道 编辑:UC知道 时间:2024/05/31 22:54:32
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) 不理解?

在此谢谢啦~
明白什么意思了 那么inputbox 的取消怎么控制? 比如inputbox 我点取消 重新从该控件第一行执行代码

res = MsgBox(msg, vbYesNo, Title)
If res = vbYes Then
MsgBox "确定"
Else
MsgBox "取消"
End If

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

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