我正在尝试消息框,并尝试了一个简单的是/否消息框
所以我写了这段简单的代码。但是,无论我按下哪个按钮,“chc”变量始终返回为 1。我提供了代码,所以你可能会看到我做错了什么。这可能是严重错误的。
If MsgBoxResult.Yes Then
chc = 1
ElseIf MsgBoxResult.No Then
chc = 0
End If
MsgBox(chc)
The MsgBox()
方法正在返回MsgboxResult
枚举,检查该方法返回的值:
Public Sub MsgBoxExample()
Dim result As MsgBoxResult = Nothing
Dim chc As Integer
result = MsgBox("click something...", vbYesNo, "example")
If result = MsgBoxResult.Yes Then
chc = 1
ElseIf result = MsgBoxResult.No Then
chc = 0
End If
MsgBox(chc)
End Sub
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)