好奇怪我都看不懂
来源:百度知道 编辑: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 我点取消 重新从该控件第一行执行代码
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的对象浏览器查到这些常量