Publicentral.com - alta en buscadores, registro buscadores, promocionaPromocion en buscadores y negocios online
Mostrando Codigo - Visual Basic
Code

Visual Basic - Sólo datos númericos en campo de texto sin límites

Códigos Visual Basic

Código fuente para que sólo puedan escribirse números en un campo de texto sín bloquear teclas como BackSpace (borrar)
Visitas: 27,647 - 06/02/2006 21:05:41
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
CODIGO


// Codigo ofrecido por Tutores.org

  1. private sub text1_keypress(KeyAscii as Integer)
  2. If UCase$(Chr$(KeyAscii)) Like "[A-Z]" Or UCase$(Chr$(KeyAscii)) = "Ñ" Then KeyAscii = 0
  3. If LCase$(Chr$(KeyAscii)) = "`" Or LCase$(Chr$(KeyAscii)) = "+" Then KeyAscii = 0
  4. If LCase$(Chr$(KeyAscii)) = "´" Or (Chr$(KeyAscii)) = "ç" Then KeyAscii = 0
  5. If LCase$(Chr$(KeyAscii)) = "-" Or LCase$(Chr$(KeyAscii)) = "'" Then KeyAscii = 0
  6. If LCase$(Chr$(KeyAscii)) = "¡" Or LCase$(Chr$(KeyAscii)) = "/" Then KeyAscii = 0
  7. If LCase$(Chr$(KeyAscii)) = "*" Or LCase$(Chr$(KeyAscii)) = "º" Then KeyAscii = 0
  8. If LCase$(Chr$(KeyAscii)) = "." Then KeyAscii = 0
  9. end sub



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Sólo datos númericos en campo de texto sin límites" href="http://www.tutores.org/codigo/1603/" target="_blank">Sólo datos númericos en campo de texto sin límites</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
Bulachi
1 5
una mejora, solo todo aquello que no sea numeros y letras lo desecha en un sola linea...
If (KeyAscii >= 1 And KeyAscii <= 47) Or (KeyAscii >= 58 And KeyAscii <= 64) Or (KeyAscii >= 91 And KeyAscii <= 96) Or (KeyAscii >= 123 And KeyAscii <= 255) Then KeyAscii = 0
Comentario usuario
Sin definir
2 5
EL PROFE SE PASA DE LANZA CON SUS PINCHES PROGRAMAS PIENSA QE YA SABEMOS PROGRMAR EN VISUAL PERO NO...
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad


Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado

Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.