Como Contralar que un textbox de Visual basic que se pueda ingresarle solo numeros

[Escorpion_Negro]

Hola a todos los mienbros de esta comunidad, mi consulta es la siguiente tengo un numero de X de textbox resulta que algunos se le puede ingresar solo numeros como puedo yo controlar en cada textbox que el contenido sea solamente numeros por fa alguien que me pueda ayudar mucha gracias a todo

[rmilano]

Colocale una mascara de entrada a tu campo.... eso es en propiedades

[minoralberto]

' digite el siguiente codigo en el evento 'Keypress' del text box

Const Number$ = "0123456789." ' solamente permite estos caracteres

If KeyAscii <> 8 Then
If InStr(Number$, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
Exit Sub
End If
End If

OR:

' fuerza solo numeros en el text box
If IsNumeric(Chr(KeyAscii)) <> True Then KeyAscii = 0

[rsiles]

Crear un formulario, con un TextBox

Sub Text1_Keypress(KeyAscii As Integer)
If KeyAscii <> Asc("9") Then
If KeyAscii <> 8 Then
KeyAscii = 0
End If
End If
End Sub

[boutroux]

Sub Text1_Keypress(KeyAscii As Integer)
'si no es digito y es distinto de la tecla para borrar no haga nada
If Not IsNumeric(Chr(KeyAscii)) and keyascii <> 8 Then
KeyAscii = 0
End If
End Sub

[fesaDriver]

Akí la solución para que solo acepte números y también punto decimal.
Si solamente requieres lo de los números y el punto no te interesa solo ocupa lo que esta en color azul
Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim x As Integer, h As Integer
Dim cadena As String
Dim band As Boolean

h = Len(Text1.Text) ' Longitud de cadena

cadena = Text1.Text ' Almacena lo escrito en el textbox


For p = 1 To h

If Mid(cadena, p, 1) = "." Then ' Si hay un punto en la cadena...
band = True ' Se activa la bandera
Exit For
Else
band= False
End If

Next p

If band = True Then ' Si la bandera esta activada no acepta el punto

If InStr("0123456789", Chr(KeyAscii)) = 0 Then
If KeyAscii <> 8 Then KeyAscii = 0

End If
End If

If band = False Then ' Si la bandera no esta activada acepta el punto

If InStr("0123456789.", Chr(KeyAscii)) = 0 Then
If KeyAscii <> 8 Then KeyAscii = 0

End If

End If


End Sub

[seba123neo]

Hola,ni deberian responder ,porque aparte de que este tema de los numeros en el textbox esta re-quemado ya,que lo busque en las FAQ's,sino para que estan ahi...

saludos.

[culd]

Lo de ingresar solo numeros, esta en la FAQ...

(fijate creo que hay una mia muy buena)....

Con respecto a los textbox...

Podes crear una matris de textbox para todos los que necesitan numero... asi escribis una sola ves la verificacion

[GeoAvila]

Iniciado por seba123neo

Hola,ni deberian responder ,porque aparte de que este tema de los numeros en el textbox esta re-quemado ya,que lo busque en las FAQ's,sino para que estan ahi...

saludos.

Iniciado por culd

Lo de ingresar solo numeros, esta en la FAQ...

(fijate creo que hay una mia muy buena)....

Con respecto a los textbox...

Podes crear una matris de textbox para todos los que necesitan numero... asi escribis una sola ves la verificacion

Apoyando.. en las faq's hay muchos recursos..

nos vemos..

[panxobkn]

esta es la solucion para visual basic

facil agregas un ErrorProvider
cuadro de herramientas
componentes
ErrorProvider lo tomas y lo arrastras sobre tu formulario

despues te vas al codigo buscas en la parte superior de visual el nombre de tu textbox pero como clase en mi caso se llama (N) al lado de la clase puedes encontar el nombre del metodo y buscas la opcion validating que esta casi de las ultimas le das clic
y luego escribes lo siguiente en el codigo

Private Sub N_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles N.Validating
If Not IsNumeric(N.Text) Then
ErrorProvider1.SetError(N, "Ingrese Solamente Números")
Else
ErrorProvider1.Clear()
End If
End Sub

y listo problema solucionado

[erbuson]

Perdona, pero me parece que lo que estas indicando es para NET y no para VB6 aparte el tema de que la pregunta se formuló en Enero 2008

Saludos