[Resolvido] Maiúsculas no text

[Rafael Portal 0]

Gente é o seguinte... Eu fiz um programa em que no formulário de cadastro de clientes todos os "text's" após ser digitado alguma coisa as letras ficam maiúsculas... Tipo estou usando um UCASE no evento LostFocus do text.... Mas o problema é que o meu cliente quer que seja no momento em que está sendo digitado.. É possível isso???? Já testei em outros eventos mas não funcionou.... Se tem como alguém poderia me dizer como???? Desde já agradecido,Rafael Portal

[cassitos 2]

há uma outra opção:

 

pode-se criar uma função p/ converter o carater para maiúsculo, tipo:

 

no evento keypress do textbox:

 

private sub text1_keypress(keyascii as integer)

'keyascii é o código da tecla pressionada pelo usuário,

'levando em consideração que todos os caracteres possuem um código ASCII

'podemos converter p/ maisculo

keyascii = asc(ucase(chr(keyascii)))

'onde keyascii vai receber o novo código ascii

'asc = código ASCII do caracter

'chr = exibe o caracter do código ASCII

end sub

bom, agora você não precisa ficar repetindo o mesmo código para cada caixa de texto.

 

utilizando um módulo no VB, você pode criar uma função:

 

public function Maiuscula(Keyascii as integer) as Integer

Maiuscula = asc(ucase(chr(keyascii)))

end function

e aí no evento keypress de cada caixa de texto:

 

private sub text1_keypress(keyascii as integer)

keyascii = maiscula(keyascii)

end sub

[Rafael Portal 0]

Valeu Cassitos!!!!

[lgustavoc 0]

Tem uma outra forma também...no evento CHANGE:posicao = Text1.SelStartText1.Text = Ucase(Text1.Text)Text1.SelStart = posicao