UC知道InputBox和MsgBox问题
来源：百度知道 编辑：UC知道 时间：2024/05/14 19:47:44
变量=InputBox()
在文本栏中输入内容并点确定，则将输入的文本返回给该变量
如果点取消，则返回一个零长度的字符（是""吧）给这个变量
那么怎么做才能使点击取消时退出程序
谢谢！！
Private Sub Command1_Click()
Dim a, b
a = InputBox("请输入密码", "需要密码")
If a = "foreverloveyou" Then
b = MsgBox("内容", vbOKOnly + vbInformation, "内容")
Else
b = MsgBox("密码错误", vbOKOnly + vbCritical, "错误")
End If
End Sub
如果点取消就会返回一个零长度的字串，这样a进入Else
b = MsgBox("密码错误", vbOKOnly + vbCritical, "错误")了，怎样才能让它退回单击comand1之前？
在文本栏中输入内容并点确定，则将输入的文本返回给该变量
如果点取消，则返回一个零长度的字符（是""吧）给这个变量
那么怎么做才能使点击取消时退出程序
谢谢！！
Private Sub Command1_Click()
Dim a, b
a = InputBox("请输入密码", "需要密码")
If a = "foreverloveyou" Then
b = MsgBox("内容", vbOKOnly + vbInformation, "内容")
Else
b = MsgBox("密码错误", vbOKOnly + vbCritical, "错误")
End If
End Sub
如果点取消就会返回一个零长度的字串，这样a进入Else
b = MsgBox("密码错误", vbOKOnly + vbCritical, "错误")了，怎样才能让它退回单击comand1之前？
//如果是退回原先的窗体呢
变量=inputbox()
if len(变量) then
'用户点了确定且输入了内容
'进入处理的代码
end if
'啥也不干
'也就是你说的“退回原先的窗体”
变量=InputBox()
if len(变量)=0 then end
关闭此窗口
unload me
进入表单
.formshow