LETRAS MAIUSCULAS EM TODOS OS FORMS

AMELORP 28/09/2011 09:52:14
#385453
Gostaria de cirar uma função em que todo textbox de qualquer fomulário criado pudesse ficar em letras maiusculas. Nessa função percorrer todos os textbox e definir em maiusculas. alguem poderia me ajudar?
MARCELO.TREZE 28/09/2011 10:03:02
#385456 Resposta escolhida
Colega vc não precisa de uma função basta colocar do keypress dos forms o seguinte

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


[txt-color=#e80000]ps: a propriedade KeyPreview dos forms deve estar como true[/txt-color]
JCARLOS 28/09/2011 10:19:02
#385460
[ô]Poe esta rotuna num módulo
Public Sub Maiusculas(ByRef tela As Form)
Dim i As Integer
For i = 0 To (tela.Controls.Count - 1) Step 1
If TypeOf tela.Controls(i) Is TextBox Then tela.Controls(i).Text = UCase(tela.Controls(i).Text)
Next
End Sub

[ô]E chama no form:
call maiusculas(me)
Tópico encerrado , respostas não são mais permitidas
Voltar