Código de Visual Basic - Solo números

Solo númerosgráfica de visualizaciones


Visual Basic

estrellaestrellaestrellaestrellaestrella(15)
Publicado el 21 de Marzo del 2004 por Faisal Jalit
24.951 visualizaciones desde el 21 de Marzo del 2004. Una media de 42 por semana
Función que solo permite la entrada de números.

Versión 1
estrellaestrellaestrellaestrellaestrella(15)

Publicado el 21 de Marzo del 2004gráfica de visualizaciones de la versión: Versión 1
24.952 visualizaciones desde el 21 de Marzo del 2004. Una media de 42 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = SoloNumeros(KeyAscii)
End Sub
 
Function SoloNumeros(ByVal KeyAscii As Integer) As Integer
'permite que solo sean ingresados los numeros, el ENTER y el RETROCESO
    If InStr("0123456789/-", Chr(KeyAscii)) = 0 Then
        SoloNumeros = 0
    Else
        SoloNumeros = KeyAscii
    End If
    ' teclas especiales permitidas
    If KeyAscii = 8 Then SoloNumeros = KeyAscii ' borrado atras
    If KeyAscii = 13 Then SoloNumeros = KeyAscii 'Enter
End Function



Comentarios sobre la versión: Versión 1 (15)

jose
22 de Marzo del 2004
estrellaestrellaestrellaestrellaestrella
esto es muy facil de hacer, manda cosas q sean interesantes
Responder
seba
23 de Marzo del 2004
estrellaestrellaestrellaestrellaestrella
ehhh???? numeros??? que es esto???
Responder
CAROLINA NUÑEZ
25 de Marzo del 2004
estrellaestrellaestrellaestrellaestrella
Muy bueno, funciona super bien y es muy claro, muchas gracias
Responder
nico
30 de Marzo del 2004
estrellaestrellaestrellaestrellaestrella
Todo se simplifica en pocas letras.

Private Sub Text1_keyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub
Responder
Nestor
31 de Marzo del 2004
estrellaestrellaestrellaestrellaestrella
Muy buena función especial para quienes no sepan mucho de VB
Responder
manu
14 de Abril del 2004
estrellaestrellaestrellaestrellaestrella
tenes razon nico, se puede simplificar, no manden cosas tan faciles!
Responder
Luis Moreno
21 de Abril del 2004
estrellaestrellaestrellaestrellaestrella
Es buena la función y funciona muy bien, la instrucción que pone Nico, no permite borrar sobre el Text1 ni dar enter, es por eso que esa instrucción es erronea.
Responder
mar
22 de Abril del 2004
estrellaestrellaestrellaestrellaestrella
por favor, dejen de poner cosas tan sencillas!!!!
Responder
Miguel
09 de Septiembre del 2004
estrellaestrellaestrellaestrellaestrella
La función es simple, pero es más larga que la de Nico, que es la mejor. Si queremos pulsar Enter o tecla Retroceso, lo evaluamos antes y después salimos.

If KeyAscii = 13 Or KeyAscii = 8 Then Exit Sub
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0

Saludetes
Responder
ToNiNhO
01 de Diciembre del 2004
estrellaestrellaestrellaestrellaestrella
Ambos son buenos, pero tambien a ambos se le escapa el siguiente detalle: Se olvidaron de los numeros con decimales???
Ejm: 12.5
Y muy cierto q todos acostumbramos borrar con el Backspace.
Responder
German
10 de Diciembre del 2004
estrellaestrellaestrellaestrellaestrella
Buen truco, muy util y ahorra tiempo....
Responder
Manu
20 de Mayo del 2005
estrellaestrellaestrellaestrellaestrella
MIRA ESTE CODIGO... TA BUENO PARA LA VALIDACION DE DNI Y BOLUDECES NUMERICAS... FIJATE QUE ONDA...
Responder
Uster
20 de Mayo del 2005
estrellaestrellaestrellaestrellaestrella
MIRA ESTE CODIGO... TA BUENO PARA LA VALIDACION DE DNI Y BOLUDECES NUMERICAS... FIJATE QUE ONDA...
Responder
norma
25 de Abril del 2006
estrellaestrellaestrellaestrellaestrella
Ha realizado una valoración positiva de este curso.
Responder
NIcolás
17 de Enero del 2008
estrellaestrellaestrellaestrellaestrella
Agradezco mucho de su ayuda, ya que es la primera ves que realizo una consulta y me fue muy util.

Saludos...Nico.
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s1016