Digitar tudo em maisuculo em Text

USUÁRIO: SENHA:

SALVAR LOGIN ?

Voltar

Autor

Assunto: Digitar tudo em maisuculo em Text

RICARDO
não registrado

Postada em 30/06/2004 13:51 hs

Sei que é fácil só que deu um branco alguém pode me ajudar??

Vaughyman

RIO DE JANEIRO
RJ - BRASIL

Postada em 30/06/2004 14:06 hs

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

"IF FUNCIONOU = TRUE THEN

BLOQUEIE O POST

ELSE

POST NOVAMENTE INFORMANDO O QUE ACONTECEU

ENDIF

NuT.

QUALQUER LUGAR NO QUADRANTE DA
.. - GALÁXIA.

Postada em 30/06/2004 15:05 hs

Ricardo, para tudo MAIUSCULO, faça assim:

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

Para tudo minusculo faça assim:

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(LCase(Chr(KeyAscii)))
End Sub

RICARDO
não registrado

Postada em 30/06/2004 17:19 hs

VALEU PELA DICA..

Página(s): 1/1


		CyberWEB Network Ltda. © Copyright 2000-2025 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site