Visual Basic - VALIDAR TEXTBOX

Life is soft - evento anual de software empresarial
   
Vista:

VALIDAR TEXTBOX

Publicado por Alvaro (85 intervenciones) el 23/09/2009 11:08:49
Hola muy buenas a todos, sabe alguien si hay alguna forma de validar un textbox para que solamente me deje escribir numeros decimales con dos decimales y dos numeros enteros?
Estoy desarrollando una aplicacion y me veo obligado que en un textbox me valide para que no pueda escribir por ejemplo "150,50" y si pueda escribir "50,50". Hay alguna forma de poder hacer esto? Si es que si, me seria de gran ayuda que me dijesen como, ya que llevo bastante tiempo buscando una solucion y no encuentro la forma de hacerlo.
Muchas gracias de antemano.
Un saludo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:VALIDAR TEXTBOX

Publicado por juan carlos (518 intervenciones) el 24/09/2009 04:29:22
Hola Alvaro, el codigo de abajo te deja el text1 de esta forma 50,00
si tienes alguna otra duda mi mail es
mega.juca@hotmail.es
====================================================

Rem ancho de text de 5 caracteres
Private Sub Form_Load()
Text1.MaxLength = 5
End Sub

Rem proceso de insertado
Private Sub Text1_KeyPress(KeyAscii As Integer)
Text1.SetFocus
Dim a As Integer
KeyAscii = numeros(KeyAscii)
a = Len(Text1)
If (a = 0) And (KeyAscii = 44) Then KeyAscii = 8
If (a = 1) And (KeyAscii = 44) Then KeyAscii = 0
If (a = 2) And (KeyAscii = 8) Then KeyAscii = 8: Exit Sub
If (a = 2) Then Text1.SelText = ","
If (a = 2) And (KeyAscii = 44) Then KeyAscii = 8
If (a = 4) And (KeyAscii = 44) Then KeyAscii = 0
End Sub

Rem solo admitir numeros y el punto
Function numeros(Tecla As Integer) As Integer
Dim strValido As String
strValido = "0123456789,"
If Tecla > 26 Then
If InStr(strValido, Chr(Tecla)) = 0 Then
Tecla = 0
End If
End If
numeros = Tecla
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar