README.md

December 4, 2022 ยท View on GitHub

TriState InputBox

Description

With the InputBox you cannot distinguish between the cases

a:- Cancel clicked

b:- nothing entered and OK clicked

because in both cases the returned string is a vbNullString

There is a simple trick however as is shown here

More Info

Submitted On
ByULLI
LevelIntermediate
User Rating4.9 (69 globes from 14 users)
CompatibilityVB 6.0
CategoryString Manipulation
WorldVisual Basic
Archive File

Source Code

'With the InputBox you cannot distinguish between the cases
'
'  a:- Cancel clicked
'  b:- nothing entered and OK clicked
'
'because in both cases the returned string is a vbNullString
'
'There is a simple trick however as is shown in this little code snippet:
 Dim UserInput As String
  UserInput = InputBox("Please type in nothing or some text and click OK or Cancel", "Distinguish")
  Select Case True
   Case StrPtr(UserInput) = 0
    MsgBox "You clicked Cancel"
   Case Len(UserInput)
    MsgBox "You typed """ & UserInput & """ and clicked OK"
   Case Else
    MsgBox "You typed nothing and clicked OK"
  End Select
End Sub