TextBox
Publicado por Martin (1 intervención) el 26/06/2009 04:31:36
Hola a todos
Tengo esta funcion
Public Function Numeros(ByVal txtControl As TextBox, ByVal caracter As Char, ByVal decimales As Boolean) As Boolean
If (Char.IsNumber(caracter, 0) = True) Or caracter = Convert.ToChar(8) Or caracter = "." Then
If caracter = "." Then
If decimales = True Then
If txtControl.Text.IndexOf(".") <> -1 Then Return True
Else : Return True
End If
End If
Return False
Else
Return True
End If
End Function
Agrego al evento KeyPress del TextBox1 para que me acepte solo numeros enteros
e.Handled = Numeros(Me.TextBox1, e.KeyChar, False)
If e.KeyChar = Chr(13) Then
TextBox2.focus()
End if
Funciona perfecto me valida solo numeros enteros pero como hago para que pase el foco al TextBox2 unicamente con la tecla Enter, pq apreto cualquier tecla y pasa igual.
Y para el TexBox2 le agrego en el evento KeyPress lo sig.
e.Handled = Numeros(Me.TextBox2, e.KeyChar, True)
If e.KeyChar = Chr(13) Then
TextBox3.focus()
End if
Aca funciona todo barbaro, me valida numeros decimales con el punto y paso al sig. TextBox con la tecla Enter pero como hago para que si ingreso un numero entero me lo convierta automaticamente en decimal con este formato 1.00, es decir si ingreso unicamente el nro. 1 al dar enter me lo convierta en 1.00 y asi sucesivamente si ingreso 10 se conv en 10.00 o 100 en 100.00.
Muchas gracias
Tengo esta funcion
Public Function Numeros(ByVal txtControl As TextBox, ByVal caracter As Char, ByVal decimales As Boolean) As Boolean
If (Char.IsNumber(caracter, 0) = True) Or caracter = Convert.ToChar(8) Or caracter = "." Then
If caracter = "." Then
If decimales = True Then
If txtControl.Text.IndexOf(".") <> -1 Then Return True
Else : Return True
End If
End If
Return False
Else
Return True
End If
End Function
Agrego al evento KeyPress del TextBox1 para que me acepte solo numeros enteros
e.Handled = Numeros(Me.TextBox1, e.KeyChar, False)
If e.KeyChar = Chr(13) Then
TextBox2.focus()
End if
Funciona perfecto me valida solo numeros enteros pero como hago para que pase el foco al TextBox2 unicamente con la tecla Enter, pq apreto cualquier tecla y pasa igual.
Y para el TexBox2 le agrego en el evento KeyPress lo sig.
e.Handled = Numeros(Me.TextBox2, e.KeyChar, True)
If e.KeyChar = Chr(13) Then
TextBox3.focus()
End if
Aca funciona todo barbaro, me valida numeros decimales con el punto y paso al sig. TextBox con la tecla Enter pero como hago para que si ingreso un numero entero me lo convierta automaticamente en decimal con este formato 1.00, es decir si ingreso unicamente el nro. 1 al dar enter me lo convierta en 1.00 y asi sucesivamente si ingreso 10 se conv en 10.00 o 100 en 100.00.
Muchas gracias
Valora esta pregunta


0