Inputbox VBS

[Ari--Slash]

buenas

ojala novlucker 

quisiera que me expliques un poco mas del inputbox

ya que quiero que cuando s presiona cancelar, se salga el script, pero presiono cancelar y este continua...

algun valor que devuelva asi como el popup??



salu2 y grax

[Novlucker]

Buenas...
Bueno, el inputbox no devuelve valores como lo hace el msgbox , funciona un tanto distinto.

• Si se ingresa texto y se presiona Aceptar, devuelve el texto ingresado
• Si se ingresa o no cualquier cosa, y se preciona Cancelar, entonces devuelve una cadena vacía ---> ""
• Si el valor que se ingresa es nulo, es decir, no se escribe nada, y se presiona Aceptar, también devuelve lo mismo que el anterior

Si tienes el inputbox en un bucle, entonces deberías de verificar que lo que se ingresa sea distinto de "", si es igual, se termina (ten en cuenta que con el Aceptar vació también ocurrirá), y de lo contrario, sigue 
Un ejemplo 

Código (vb) [Seleccionar] Expandir

Do
opcion = inputbox("Seleccione alguna opcion" & chr(13) & chr(13) & "1 - Masculino" & _
chr(13) & "2 - Femenino" & chr(13) & "3 - Ninguna XD","Opciones","")
Select case opcion
Case "1"
msgbox "Eres hombre"
Exit do
Case "2"
msgbox "Eres mujer"
Exit do
Case "3"
msgbox "Eres.....mmm"
Case ""
msgbox "Ha cancelado o bien, ha ingresado un valor nulo"
Exit do
Case else
msgbox "La opcion seleccionada no es válida"
End Select
Loop

Saludos 

[Ari--Slash]

mas que claro 


gracias por tu explicacion

como puedo hacer que el inputbox acepte solo numeros? 



salu2

[Novlucker]

No puedes impedir que se ingresen letras, pero si puedes verificar luego que lo ingresado no lo sea 

Código (vb) [Seleccionar] Expandir

valor = inputbox("Ingrese un valor","Completar","")
msgbox isnumeric(valor)
Saludos 

P.D: con el code anterior también puedes filtrar esto ---> Case else