Cancel InputBox

Hi,

How can I detect whether the user has pressed Cancel or OK in an inputbox?
I know that when they press cancel, the function returns an empty string.
But, what about if the user leaves the textbox blank and presses OK? It still returns an empty string even though Cancel wasn't pressed.

Anyone?

Thanks,

VB Code:

Private Sub Form_Load()
    Dim s As String
    s = InputBox("Give!")
    
    If StrPtr(s) = 0 Then MsgBox "Cancel was pressed !"
End Sub

that doesnt seem to work..

I'm using vb6.


strSearch = InputBox("Please enter the name for this " & strType & ".", "Enter Name.")
If strSearch = 0 Then Exit Function


i need it to be able to determine an empty inputbox, a cancel or an input..

with the if strSearch = 0, i get a type mismatch...


forget my comment... i didn't realize that

StrPtr was an actual recognized command like Cint, or something like that. i had tried a StrCheck(strSearch) first, then just the strSearch, one i put in StrPtr, worked awesome..
I feel soo stupiddd lol :blush:

Try: If strSearch = vbNullString :)

StrPtr works, but it's an unsupported function. One way to detect cancel is to use this form which looks like an InputBox.

Is this what you're after??

VB Code:

Private Sub Form_Load()
Dim Capitals As String
    
Capitals = InputBox("Please Enter Your Name", "Enter Name")
        If StrPtr(Capitals) = 0 Then 'Cancel hit on the Inputbox
       Exit Sub
       ElseIf Capitals = "" Then 'OK is pressed but input box is empty
       'Do rest of code
       Else 'OK pressed with contents entered in input box
       'Do rest of code
       End If
 
End Sub

Quote:

---

Originally posted by TomGibbons

VB Code:

Private Sub Form_Load()
    Dim s As String
    s = InputBox("Give!")
    
    If StrPtr(s) = 0 Then MsgBox "Cancel was pressed !"
End Sub

---

That's a nifty use of StrPtr.

Nice code! :D

thanks for the zipfile, will definatly use it.
Thanks everyone for the hints.

Now i gotta go back to my other programs LOL