Pessoal,

 

eu uso o seguinte para forçar a digitação maiúscula nos textboxs do meu projeto:

 

 

O problema é que é possível copiar um texto com caracteres minúsculos e colar no textbox, que eles não vão ficar maiúsculos. Alguém tem uma outra forma de forçar a textbox sempre exibir em maiúsculo os caracteres?

assim pode funcionar

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

Text1.Text = UCase(Text1.Text)
End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

Text1.Text = UCase(Text1.Text)
End Sub

 

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

Text1.Text = UCase(Text1.Text)
End Sub

 

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = UCase(Text1.Text)

End Sub

 

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = UCase(Text1.Text)

End Sub

 

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = UCase(Text1.Text)

End Sub

coloca este código no evento KeyUp do text:

 

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

If KeyCode = 17 Then
Text1.Text = StrConv(Text1.Text, vbUpperCase)
End If

End Sub

Obs: Este código deve trabalhar junto com o outro código do KeyPress, pois, o do KeyPress identifica quando estiver digitando digitar maiuscula. E este aqui identifica que quando estiver colando um text deve transformar a "COLA" para maiuscula.

 

Blz? 

Outra dica

 

Para não precisar colocar o código em todas as text's coloca a propriedade KeyPreview do FORM = TRUE e põe o código no evento Keypress do FORM entrão o código irá funcionar em todas as text's do FORM

 

Private Sub Form_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))

End Sub

Olá Evertoon blz?

 

Experimenta só mudar o evento change do textbox, tenta aí:

 

Private Sub Text1_Change()
Text1 = UCase(Text1)
End Sub

 

Ah, eu ainda não testei bem mas para colocar sempre maiúsculas seja colando texto ou escrevendo na textbox experimenta isso:

 

Private Sub Text1_Change()
  Text1 = UCase(Text1)

  Text1.SelStart = Len(Text1)

End Sub

 

at+ :)