InputBox - OK or Cancel?

　　 
　　InputBox - OK or Cancel?

You display an InputBox. But did the user press Cancel - or OK without entering anything? If you thought there was no way to tell the difference, you注释：re wrong.

You see, if the user presses cancel, vbNullString is returned. However if they press OK, the empty string ("") is sent back. But in Visual Basic, vbNullString equates to an empty string, so you can注释：t compare the two - even though in reality, they注释：re completely different.

However you can use the StrPtr (注释：string pointer注释：) function to determine whether the return string is indeed a vbNullString - as by definition, a vbNullString 注释：pointer注释： is zero.

And this code demonstrates how to do that.

Code

Dim strInput As String

strInput = InputBox("Enter something:")

If StrPtr(strInput) = 0 Then
MsgBox "You pressed cancel!"
End If

原文转自：http://www.ltesting.net