Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: MC.cover en 28 Octubre 2016, 23:19 pm



Título: Validaciones TextBox
Publicado por: MC.cover en 28 Octubre 2016, 23:19 pm
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 :)


Título: Re: Validaciones TextBox
Publicado por: RodrigoCastro en 2 Noviembre 2016, 20:11 pm
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.


Título: Re: Validaciones TextBox
Publicado por: MC.cover en 6 Noviembre 2016, 01:49 am
muchas gracias :)