Autor Tema: Validar Textbox Con Tabulaciones (Leído 1596 veces)

pola · « **en:** Jueves 24 de Marzo de 2005, 04:14 »

Necesito que alguien me eyude
tengo el siguiente codigo:

Private Sub Text2_KeyPress(KeyAscii As Integer)
If (KeyAscii > 64 And KeyAscii < 91) Then
'es una letra mayuscula
ElseIf (KeyAscii > 96 And KeyAscii < 123) Then
'es una letra minuscula
ElseIf (KeyAscii = 209) Then
'Letra Ñ
ElseIf (KeyAscii = 241) Then
'Letra ñ
ElseIf (KeyAscii = 8) Then
'el retroceso
ElseIf (KeyAscii = 13) Then
Text4.SetFocus
'para que se posicione en el siguiente textbox
ElseIf (KeyAscii = 32) Then
'el espacio en blanco
Else
'Esto hace que no se escriba nada en el texto
KeyAscii = 0
End If
End Sub
con esto estoy validando que me ingresen determinados caracteres en un textbox, lo que necesito es que cuando termine una palabra el el textbo me agregue solo 1 espacio, y que al principio no me agreguen espacios,ojala me puedan ayudar. Pola

Widark

Hola Pola!
Segun lo que entendi quieres que el Texto te quede así: "ÑÑÑ "y que pase al siguiente textbox, el codigo es el siguiente:

'En tu parte del codigo
Texto.text = Trim(Texto.text) & Space(1) 'Te quita los espacios y agrega uno al 'final
'Y como quieres que pase de texto
SendKeys "{Tab}" 'Para esto debes arreglar la tabulacion de los controles de tu formulario

SoloCodigo

Autor Tema: Validar Textbox Con Tabulaciones (Leído 1596 veces)

pola

Validar Textbox Con Tabulaciones

Widark

Re: Validar Textbox Con Tabulaciones