Hola buenas, soy nuevo en el foro y debo mencionar que me han ayudado demasiado...el problema que tengo en estos momentos es validar el Rut
mi codigo es el siguiente:

tengo creado una funcion que me permita ingresar solamente numeros el guin medio y la k. esto me funciona sin ningun problema:

Public Function Rut(Tecla As Integer) As Integer
Dim strValido As String
strValido = "k- 0123456789"
If Tecla > 26 Then
If InStr(strValido, Chr(Tecla)) = 0 Then
Tecla = 0
End If
End If
Rut = Tecla
End Function

este codigo es del texbox del rut, para poder llamar a la funcion Rut.

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Rut(KeyAscii)
End Sub

Pero lo que necesito realizar es que al ingresar el Rut quede con el siguiente formato: ##.###.###-# u algo asi...por ejemplo: al ingresar el Rut "175688659", despues de pasar al siguiente textbox kede de la siguiente manera...17.568.865-9 e intentado de mil formas y no se me ocurre
de como poder hacerlo...esto es algo urgente, espero que me ayuden
ya que les estaria bastante agradecido...de antemano muchas gracias...
espero respuestas


hasta luego...

__________________
Atte.

Alexis Tapia Peña
Estudiante Ing.Informatica

No estoy muy seguro de interpretar bien tus deseos, sobre todo porque no me aclaro respecto al número de caracteres que lleva vuestro RUT. Pero supongo que ese detalle podrás adaptarlo si es que no lo hago bien...

A ver si te sirve el ejemplo que te adjunto

Archivos Adjuntos

Ejemplo.rar (1,2 KB, 17 visitas)

__________________
José María Movilla Cuadrado
______________________

Visual Basic Videos Programacion Foro Programacion
Tutoriales Programacion Trucos Programacion Codigos Programacion

Muchisimas gracias por la ayuda, me a servido bastante...

__________________
Atte.

Alexis Tapia Peña
Estudiante Ing.Informatica