VBS函数应用--imputbox判断输入值

如果用户单击确定或按下 ENTER，则 InputBox 函数返回文本框中的内容。如果用户单击取消，则函数返回一个零长度字符串 ("")。

那如何区分用户是没有输入字符按了“确定”
还是按了“取消”呢？
有些时候想传入空字符的，而有些时候想取消输入

 

按照参考手册的说法，无论是用户没有输入字符按了“确定”，还是按了“取消”，函数的返回值都是零长度字符串""。这样看来，似乎没有办法区分用户是没有输入字符按了“确定”，还是按了“取消”。

用一个简单的程序就可以测试出来：

复制代码代码如下:

str = InputBox("Enter a string")
MsgBox TypeName(str)

当没有输入字符直接按“确定”时输出String，而按“取消”时输出Empty。于是，似乎可以这样来判断到底是“确定”还是“取消”：

解决方法一：

str = InputBox("Enter a string")
If IsEmpty(str) Then
MsgBox "Cancel"
Else
MsgBox "OK"
End If

 

 

解决方法二：

或者是如下方法：

str =inputbox(“enter a string”)

if str=false then

msgbox “cancel”

else

msgbox “ok”

end if