Visual Basic - InputBox

Life is soft - evento anual de software empresarial
   
Vista:

InputBox

Publicado por Jaimico (21 intervenciones) el 26/03/2010 21:18:16
buenas!
tengo un problema, como hago para q mis inputboxes solo acepten numeros?
Gracias!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de A.H.H

RE:InputBox

Publicado por A.H.H (116 intervenciones) el 27/03/2010 00:02:46
Hola encontre un ejemplo en recursosvisualbasic.com y lo modifique

si te sirve el ejemplo: un command1 en un formulario y dentro del command1:


Private Sub Command1_Click()
Dim Dato As String

'Hasta que no se ingrese un NUMERO'
'el InputBox no se cerrará'

Do

Dato = InputBox("Ingresar NUMERO", " Ejemplo ")
Loop Until IsNumeric(Dato)

'Muestra el NUMERO'

MsgBox Dato, vbInformation

End Sub


salu2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:InputBox

Publicado por Jaimico (21 intervenciones) el 27/03/2010 00:21:09
Ok gracias me sirvio de 10, otra pregunta sobre inputboxes, los botones que salen en los inputboxes se pueden editar? ejm para qe cuando clickea cancel con el codigo que me distes arriba se salga del inputbox, accion que no ace con el actual codigo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de A.H.H

RE:InputBox

Publicado por A.H.H (116 intervenciones) el 27/03/2010 22:24:45
Hola, puedes poner esto, ya que cuando el usuario aprieta cancel el valor queda nulo osea "" :

If Dato = "" Then
Exit Sub
End
End If

OJO si no tienes texto escrito y pulsas aceptar tambien saldras del inputbox.
tambien si no te hace falta el end lo quitas.
te quedaria asi:

Private Sub Command1_Click()
Dim Dato As String

'Hasta que no se ingrese un NUMERO'
'el InputBox no se cerrará'

Do

Dato = InputBox("Ingresar NUMERO", " Ejemplo ")
'si se pulsa boton cancelar la variable dato valdra nulo'
'si esto ocurre salimos del sub'

If Dato = "" Then
Exit Sub
End
End If

Loop Until IsNumeric(Dato)

'Muestra el NUMERO'

MsgBox Dato, vbInformation

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de A.H.H

RE:InputBox

Publicado por A.H.H (116 intervenciones) el 28/03/2010 11:37:43
HOLA
ENCONTRE ALGO MUCHO MEJOR CON LA FUNCION StrPtr que apunta a la variable.

SERIA ASI:

Private Sub Command1_Click()
Dim Dato As String
Do
Dato = InputBox("Ingresar NUMERO", " Ejemplo ")
If StrPtr(Dato) = 0 Then
MsgBox "pulsaste CANCELAR adios!"
Exit Sub
End If
Loop Until IsNumeric(Dato)
MsgBox Dato, vbInformation
End Sub


salu2 funciona perfecto
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar