Ver Mensaje Individual
  #3 (permalink)  
Antiguo 29/10/2009, 00:12
Judgement
 
Fecha de Ingreso: noviembre-2008
Mensajes: 136
Antigüedad: 16 años, 5 meses
Puntos: 2
Mensaje Respuesta: Problemita con inputbox

Saludos, aqui te muestro un ejemplo de vbnet.mvps.org:

Código vb:
Ver original
  1. Private Sub Command1_Click()
  2.  
  3.    Dim sInput As String
  4.  
  5.    sInput = InputBox("Go ahead ... abuse me", _
  6.                      "Dreaded InputBox Demo", _
  7.                      "Some default text goes here")
  8.    
  9.    If StrPtr(sInput) = 0 Then
  10.    
  11.       MsgBox "Cancel was pressed"
  12.  
  13.    Else
  14.    
  15.       If Len(sInput) = 0 Then
  16.          MsgBox "OK pressed but nothing entered."
  17.       Else
  18.          MsgBox "OK pressed: value= " & sInput
  19.       End If  'Len(sInput)
  20.  
  21.    End If  'StrPtr
  22.  
  23. End Sub

Como puedes ver aqui te muestra claramente como diferenciar si el usuario le dio cancel o simplemente no ingreso nada en el InputBox.

Espero que te sea de utilidad