CAIXA ALTA

USUARIO.EXCLUIDOS 18/05/2004 15:25:52
#25302

Como faço pra ao digitar numa caixa de texto, tudo ficar em caixa alta?


Private Sub txtUsuar_KeyPress(KeyAscii As Integer)
    KeyAscii = ?
End Sub

CAJU 18/05/2004 16:03:00
#25324 Resposta escolhida

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

Tópico encerrado , respostas não são mais permitidas

Voltar