elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Píldoras formativas en seguridad de la información


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | |-+  Validaciones TextBox
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Validaciones TextBox  (Leído 706 veces)
MC.cover

Desconectado Desconectado

Mensajes: 36


Ver Perfil
Validaciones TextBox
« en: 28 Octubre 2016, 23:19 »

Hola buenas lamento molestarlos miren tengo un pequeñísimo problema el cual es tengo un textbox el cual debe dejar escribir solo números y un punto para números decimales la cosa esta en que como tengo el código hasta el momento

no puedo ingresar:
                           - .423783 (lo cual esta bien)
pero si puedo ingresar:
                                 - 4...45 (lo cual esta mal)

yo lo que quiero es que no pueda ingresar mas de un punto en el textbox les dejo el codigo a continuación.

Código
  1. Function ValidDigits(ByVal Digito As String, ByVal Texto As String) As Boolean
  2.        Dim entero As Integer = CInt(Asc(Digito))
  3.        Dim valorePermitidos As String = "1234567890."
  4.  
  5.        If entero = 8 Then
  6.            ValidDigits = False
  7.        Else
  8.  
  9.            If InStr(valorePermitidos, Digito) = 0 Or InStr(".", Digito) = 11 Then
  10.                ValidDigits = True
  11.                Beep()
  12.            ElseIf IsNumeric(Texto) Then
  13.                ValidDigits = False
  14.            Else
  15.                ValidDigits = True
  16.                Beep()
  17.            End If
  18.  
  19.        End If
  20.  
  21.        Return ValidDigits
  22.  
  23.    End Function

Desde ya muchas gracias :)


« Última modificación: 28 Octubre 2016, 23:22 por MC.cover » En línea

RodrigoCastro

Desconectado Desconectado

Mensajes: 2


Ver Perfil
Re: Validaciones TextBox
« Respuesta #1 en: 2 Noviembre 2016, 20:11 »

Me da la impresión que lo que quieres lograr es algo tan simple como lo siguiente:

1 Agregar un TextBox al formulario que VB crea por defecto con un nuevo proyecto EXE.
2 Copiar el codigo siguiente en la sección Declaraciones del formulario.

Código:
Option Explicit

Private Sub Text1_KeyPress(KeyAscii As Integer)
Static Vez As Integer
   If KeyAscii = 46 Then
      If Not Vez = 0 Then
         KeyAscii = 0
      End If
      Vez = Vez + 1
   ElseIf Not (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) _
   And KeyAscii <> vbKeyBack And KeyAscii <> 45 Then
      'Se descarta cualquier pulsación escepto las teclas permitidas
      KeyAscii = 0
   End If
End Sub

Ejecutar el proyecto.


« Última modificación: 4 Noviembre 2016, 15:59 por RodrigoCastro » En línea

MC.cover

Desconectado Desconectado

Mensajes: 36


Ver Perfil
Re: Validaciones TextBox
« Respuesta #2 en: 6 Noviembre 2016, 01:49 »

muchas gracias :)
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
validaciones « 1 2 »
Desarrollo Web
Dannysoft 12 1,977 Último mensaje 15 Marzo 2005, 10:12
por Dannysoft
Validaciones « 1 2 3 4 5 »
.NET
piwi 48 13,197 Último mensaje 23 Julio 2010, 18:57
por [D4N93R]
validaciones en textbox
.NET
basickdagger 3 2,610 Último mensaje 13 Septiembre 2011, 18:44
por basickdagger
Problema con validaciones
Programación C/C++
ZedGe 2 668 Último mensaje 9 Diciembre 2012, 07:44
por rir3760
Validaciones 2 digitos en c++
Programación C/C++
socram7 3 892 Último mensaje 13 Junio 2013, 23:24
por pacoperico
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines