Validar Nombre y Rut (Chile) en Vb.Net

[Baby_Sweet_C]

Hola Chicos!

Necesito validar un textbox que contiene un nombre de una empresa. La idea es validar q se ingresen solo letras (no numeros ni simbolos) tanto mayusculas como minusculas. Además, necesito validar en rut(en chile).
Si hay alguien q me pueda ayudar se lo agradezco de todo corazon!!!!


Atte, baby

[xknown]

Aplicaciones web o de escritorio?

Si es para aplicaciones web, me parece que dentro de las FAQ's hay algo relacionado, para lo otro aquí te puede servir esto (el código no está probado, pueda que tenga errores):

Código:

Private Sub textbox1_KeyPress(ByVal sender as Object, e as System.Windows.Forms.KeyPressEventArgs) Handles textbox1.KeyPress
	If Not(char.IsControl(e.KeyChar) Or char.IsLetter(e.KeyChar)) Then
		e.Handled=true;
	End If
End Sub

Sería bueno que digas como es el formato del rut, no todos lo conocemos.

Saludos

[Baby_Sweet_C]

....Es para aplicacion de escritorio.
Si me puedes ayudar te lo agradeceria mucho.
Atte, Baby

[xknown]

Pues me parece que el código que te envié funciona, a excepción del ";" presente en:
e.Handled=true;

Simplemente lo borras y eso es todo, ahora para la validación del RUT como te dije en el mensaje anterior, tienes que dar el formato de éste.

Saludos

[Anerol]

Hola baby
mira este codigo valida el rut , esta en vb, ojala te sirva, no lo he probado asi que avisa como te fue

Public Function verifica(rut As String) As
String
Dim tur As String
Dim mult As Integer
Dim i As Integer
Dim suma As Integer
Dim valor As Integer

tur = StrReverse(rut)
mult = 2
For i = 1 To Len(tur)
If mult > 7 Then
mult = 2
End If
suma = mult * Mid(tur, i, 1) + suma
mult = mult + 1
Next

valor = 11 - (suma Mod 11)
If valor = 11 Then
verifica = "0"
ElseIf valor = 10 Then
verifica = "K"
Else
verifica = Str(valor)
End If
end Function


seee you