Código de Visual Basic - Solo números

Versión 1
estrellaestrellaestrellaestrellaestrella(15)

Publicado el 21 de Marzo del 2004gráfica de visualizaciones de la versión: Versión 1
26.197 visualizaciones desde el 21 de Marzo del 2004
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)

22 de Marzo del 2004
estrellaestrellaestrellaestrellaestrella
esto es muy facil de hacer, manda cosas q sean interesantes
Responder
23 de Marzo del 2004
estrellaestrellaestrellaestrellaestrella
ehhh???? numeros??? que es esto???
Responder
25 de Marzo del 2004
estrellaestrellaestrellaestrellaestrella
Muy bueno, funciona super bien y es muy claro, muchas gracias
Responder
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
31 de Marzo del 2004
estrellaestrellaestrellaestrellaestrella
Muy buena función especial para quienes no sepan mucho de VB
Responder
14 de Abril del 2004
estrellaestrellaestrellaestrellaestrella
tenes razon nico, se puede simplificar, no manden cosas tan faciles!
Responder
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
22 de Abril del 2004
estrellaestrellaestrellaestrellaestrella
por favor, dejen de poner cosas tan sencillas!!!!
Responder
9 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
1 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
10 de Diciembre del 2004
estrellaestrellaestrellaestrellaestrella
Buen truco, muy util y ahorra tiempo....
Responder
20 de Mayo del 2005
estrellaestrellaestrellaestrellaestrella
MIRA ESTE CODIGO... TA BUENO PARA LA VALIDACION DE DNI Y BOLUDECES NUMERICAS... FIJATE QUE ONDA...
Responder
20 de Mayo del 2005
estrellaestrellaestrellaestrellaestrella
MIRA ESTE CODIGO... TA BUENO PARA LA VALIDACION DE DNI Y BOLUDECES NUMERICAS... FIJATE QUE ONDA...
Responder
25 de Abril del 2006
estrellaestrellaestrellaestrellaestrella
Ha realizado una valoración positiva de este curso.
Responder
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...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s1016