Question

如何判断用户在inputbox函数框中是按了确定还是取消？

bh=InputBox("请输入编号")
rs.Seek "=",bh
If rs.NoMatch then MsgBox"找不到！"
这个代码运行后当我点击取消后，就显示“找不到”，请那位高手指点一下，如何判断用户在inputbox函数框中是按了确定还是取消？
“取消”的值是什么啊？

Answer 1

　　取地址函数 StrPtr 检查这个字符串地址是否是空地址。
　　InputBox 单击“确定”如果没有输入字符则返回零长度字符串，单击“取消”返回空字符串(vbNullString)，VB 无法直接判断是否是 vbNullString 或零长度字符串。所以用取地址函数 StrPtr 检查这个字符串地址是否是空地址。

InputBox是Visual Basic和VBS中的函数，功能是弹出一个对话框，在其中显示提示，等待用户输入文字并按下按钮，然后返回用户输入的文字。右图就是InputBox函数的效果，其中展示了InputBox函数的三个重要参数Prompt、Title和Default的位置。

Visual Basic ：
　　Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。从任何标准来说，VB都是世界上使用人数最多的语言——不管是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

Answer 2

如果用户单击 Cancel（取消），则InputBox函数返回一个长度为零的字符串 ("")，可以根据这个情况进行判断，如果BH=""，则用户按了“取消”键，但如果用户把输入的内容清空，这时按“确定”和按“取消”一样，都返回一个长度为的字符串。

Answer 3

if bh = "" then
msgbox "按取消了，或者没有输入内容"
end if

Answer 4

Dim s
s = InputBox("请输入", "inputbox测试", 0)
Debug.Print(s)

If s = "" Then
MsgBox("您选择了取消按钮或× ")
Else
MsgBox("您选择了确定按钮")
End If

Answer 5

bh=InputBox("请输入编号")
rs.Seek "=",bh
If rs.NoMatch then MsgBox"找不到！"

改成:
bh=InputBox("请输入编号")
If StrPtr(bh)<>0 then
rs.Seek "=",bh
If rs.NoMatch then MsgBox"找不到！"
else
msgbox "点击了 取消 !"
end if