Visual Basic - PROBLEMA CON TEXTBOX URGENTE

Life is soft - evento anual de software empresarial
 
Vista:

PROBLEMA CON TEXTBOX URGENTE

Publicado por SPOW (40 intervenciones) el 25/01/2005 15:07:43
PROBLEMA CON TEXTBOX URGENTE

Hola amigo, tengo un gran problemilla en las validaciones de mi textbox, tengo la siguiente programacion en el evento change:

TXTpriape.SelStart = Len(TXTpriape)
TXTpriape = UCase(TXTpriape)

Ahora bien tengo el problema que por ejemplo si el usuario despues de haber llenado el textbox vuelve hacer click para hacerle una modificacion, ejemplo si tiene: "Carrlos" y desea corregir para escribir "carros" resulta que el situar el cursos y borrar la letra él automáticamente se posiciona el final de la frase, el problema radica en que si por ejemplo se dese eliminar dos letras es muy incomodo para el usuario estar desplazando el cursor cada vez que se situe al final del texto.... Agradezco de tu ayuda para ver si es necesario agregar o quitarle algo a mi codificacion... Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:PROBLEMA CON TEXTBOX URGENTE

Publicado por shakaio (42 intervenciones) el 25/01/2005 15:42:05
solo elimina el selstart y listo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:PROBLEMA CON TEXTBOX URGENTE

Publicado por SPOW (40 intervenciones) el 25/01/2005 16:43:32
No lo puedo eliminar colega debido a que como estoy utilizando la instruccion UCASE, se me presenta que cuando escribo en el textbox me invierte las letras. Por ejemplo HOLA lo pone ALOH y por eso me dijeron que debia de usar el selstart =S
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:PROBLEMA CON TEXTBOX URGENTE

Publicado por POLA (522 intervenciones) el 25/01/2005 17:28:57
Pon este código en el evento KeyPress y te olvidas de la propiedad SelStart

Private Sub txtpriape_KeyPress(KeyAscii As Integer)
KeyAscii = Asc((UCase(Chr(KeyAscii))))
End Sub

Espero te sirva. Saludos Pola
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar