Publicentral.com - Promocion en cientos de buscadoresPromocion en cientos de buscadores
Mostrando Codigo - Visual Basic
Code

Visual Basic - Solo numericos en campo de texto y punto decimales

Códigos Visual Basic

Permite que solo se puedan insertar caracteres numericos en un campo de texto pero a su vez el punto para insertar decimales.
Visitas: 33,459 - 19/01/2006 21:58:11
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
EXPLICACION
Tenemos que crear un formulario y un campo de texto llamado Text1
CODIGO


// Codigo ofrecido por Tutores.org

  1. Private Sub Text1_KeyPress(KeyAscii As Integer)
  2.     If KeyAscii = 46 And InStr(Text1, ".") > 0 Then
  3.         KeyAscii = 0
  4.         Exit Sub
  5.     ElseIf (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 46 Then
  6.         KeyAscii = 0
  7.     End If
  8. End Sub



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Solo numericos en campo de texto y punto decimales" href="http://www.tutores.org/codigo/1598/" target="_blank">Solo numericos en campo de texto y punto decimales</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
Sin definir
5 5
buen aporte pero te equivocaste en la cuarta linea le pusiste "ElseIf (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 46 Then" esto efectivamente te permite ingresar numeros y un solo punto decimal pero no te deja borrar si lo pones " ElseIf (KeyAscii < 46 Or KeyAscii > 57) And KeyAscii <> 8 Then
" esto te permite borrar e ingresar numero y el punto
Comentario usuario
Sin definir
4 5
El comentario o "corrección" también está incorrecta, ya que permite poner el caracter "/" que tiene valor ascii 47 y con su filtrado ... KeyAscii < 46 Or KeyAscii > 57 ... pasa.

Sería mejor:
ElseIf (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 46 And KeyAscii <> 8 Then

Y así "esto te permite borrar e ingresar números y el punto" (sin caracteres extras)
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.