Test Foro de elhacker.net SMF 2.1

Programación => Scripting => Mensaje iniciado por: Ari--Slash en 5 Noviembre 2008, 16:33 PM

Título: Inputbox VBS
Publicado por: Ari--Slash en 5 Noviembre 2008, 16:33 PM
buenas

ojala novlucker  :xD

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
Título: Re: Inputbox VBS
Publicado por: Novlucker en 5 Noviembre 2008, 16:42 PM
Buenas...
Bueno, el inputbox no devuelve valores como lo hace el msgbox :-\, funciona un tanto distinto.


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  :P
Un ejemplo  ;)

Código (vb) [Seleccionar]
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  ;D
Título: Re: Inputbox VBS
Publicado por: Ari--Slash en 5 Noviembre 2008, 17:09 PM
mas que claro  ;)


gracias por tu explicacion

como puedo hacer que el inputbox acepte solo numeros?  :huh:



salu2
Título: Re: Inputbox VBS
Publicado por: Novlucker en 5 Noviembre 2008, 17:16 PM
No puedes impedir que se ingresen letras, pero si puedes verificar luego que lo ingresado no lo sea  :P

Código (vb) [Seleccionar]
valor = inputbox("Ingrese un valor","Completar","")
msgbox isnumeric(valor)

Saludos  ;)

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