Validaciones de Textbox Visual Basic 9.0

VALIDACION DE CAJAS DE TEXTOS

Vamos hacer un ejemplo de validación en Visual Basic 9.0. (2008)
La pequeña aplicación se trata de algo muy importante en cada sistema que hacemos, como es la validación. Es decir, que un text box solo me acepte números, letras, números decimales, etc.
Es por eso que trato de compartir, porque sé que a muchos les va a servir.
Ahora sí, dejémonos de rodeos y bla, bla, bla.
Y Aquí va:


CONTIENE:


Un formulario que contiene dos caja de textos:
· Una solo permitirá introducir “números”, “-“ , “+” y “,” .
· Y la otra lo que será letra en mayúsculas.






CODIGO:

'by Pedro Fernando Zambrano Zambrano
'pedferdev.blogspot.com


Public Class Form1

Dim val As New Validacion
Public objtextbox As TextBox = Nothing

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As_
System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress _
val.Numerosdecimales(sender, e)

If (e.KeyChar = Convert.ToChar(13)) Then
TextBox2.Focus()
End If

End Sub

Private Sub TextBox2_KeyPress(ByVal sender As System.Object, ByVal e_ As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress_
val.SoloLetras(sender, e)

If (e.KeyChar = Convert.ToChar(13)) Then
Button1.Focus()
End If


End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As_ System.EventArgs)_ Handles Button1.Click

MessageBox.Show("Excelente", " byPedFerDev")
End Sub

End Class





CLASE:


La clase validación que me contendrá los métodos una para la caja1 y el otro para la caja2.
'by Pedro Fernando Zambrano Zambrano
'pedferdev.blogspot.com


Public Class Validacion

'una clase que me contiene los metodos de validacion

Public Sub Numerosdecimales(ByVal sender As Object, ByVal e As_ KeyPressEventArgs)

If (e.KeyChar = Convert.ToChar(13)) Then
'se pulso la tecla Enter
e.Handled = True
ElseIf (e.KeyChar = Convert.ToChar(8)) Then
'se pulso la tecla de retroceso o borrado
e.Handled = False
ElseIf (e.KeyChar = ","c) Then
Dim ObjtextBox As TextBox = CType(sender, TextBox)
If (ObjtextBox.Text.IndexOf(","c) <> -1) Then
'entra si hay mas de una coma
e.Handled = True
MessageBox.Show("Solo una coma")
End If
ElseIf (e.KeyChar = "-"c Or e.KeyChar = "+"c) Then
Dim ObjtextBox As TextBox = CType(sender, TextBox)
'admitir solo mas y menos
If (ObjtextBox.SelectionLength = ObjtextBox.TextLength) Then
'todo el texto esta seleccionado
e.Handled = False
ElseIf (ObjtextBox.TextLength <> 0) Then
'la primera posicion ya esta ocupada
e.Handled = True
End If
ElseIf (e.KeyChar < "0"c Or e.KeyChar > "9"c) Then
'se desechan los caracteres que no son numeros
e.Handled = True
MessageBox.Show("Solo numeros")
End If

End Sub

Public Sub SoloLetras(ByVal sender As Object, ByVal e As_ KeyPressEventArgs)

If (e.KeyChar = Convert.ToChar(13)) Then
'se pulso la tecla Enter
e.Handled = True
ElseIf (e.KeyChar = Convert.ToChar(8)) Then
'se pulso la tecla de retroceso o borrado
e.Handled = False
ElseIf (e.KeyChar < "A"c Or e.KeyChar > "Z"c) Then
'se eliminan los caracteres que no son letras mayusculas
e.Handled = True
MessageBox.Show("Solo letras mayusculas")
End If

End Sub

End Class

No olvidarse que a esta clase le podemos agregar infinidades de cosas o mejor dicho infinidades de validaciones y hacer uso en todo nuestros sys.