Visual Basic - URGENTE PLEASE,UNA DUDA

Life is soft - evento anual de software empresarial
 
Vista:

URGENTE PLEASE,UNA DUDA

Publicado por EDGAR (193 intervenciones) el 08/12/2004 15:46:16
Hola colega, tengo una gran duda ya que estoy realizando mi sistema y trabajando con los textbox me presenta un conflicto al utilizar el UCASE.

En el evento change tengo la siguiente instruccion: txtnombre = UCASE(txtnombre) y no hallo explicacion del porque al ejecutar mi sistema y escribir en el textbox me cambia la cadena de caracteres. Por ejemplo si voy a escribir "CARLOS" me coloca "SOLRAC". El cursor nunca se mueve de la primera posición. No explico del porque sucedes esto ya que es la unica instruccion que utilizo con dicho control.. Agradezco de tu ayuda colega para ver si es que tiene algo que ver con el visual basic o el sistema operativo. Reinstale el visual basic pero nada, ah lo digo porque lo trabaje en una maquina con windows xp y no me presento dicho problema, pero en mi trabajo las pc tiene windows 98 y me ocurre esto... Agradezco de antemano tu ayuda
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:URGENTE PLEASE,UNA DUDA

Publicado por SkranK (99 intervenciones) el 08/12/2004 16:40:06
Hola que tal.
para que el cursor se coloque al final del texto que hay en la caja de texto prueba a poner el siguiente código después de txtnombre=Ucase(txtnombre)

txtnombre.SelStart = Len(txtnombre.Text)

espero que te sea útil

un saludo
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:URGENTE PLEASE,UNA DUDA

Publicado por edisitoweb (8 intervenciones) el 10/12/2004 04:01:23
no es por el sistema opertaivo ni nada por el estilo
utiliza bien la instruccion
pero si quieres que el texto escriba purasmayusculas no importando si escribes en minusculas

Private sub Texto1_KeyPress(KeyAscii as Integer)
Select Case KeyAscii
Case 95 to 122:
Keyascii=Keyascii-32
Case else:
keyascii=0
End Select
End sub

del 97 al 122 son los numeros de en ascii de lasletras minusculas
y con esto escribes en la caja y solo se van convirtiendo a mayusculas

mi correo [email protected]
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