Evento no form


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Evento no form

Irenko

BELO HORIZONTE
MG - BRASIL

Postada em 14/02/2007 13:19 hs

Estou tentando mudar para maiúscula o texto nas arrays do Form comforme abaixo:

Private Sub Maiuscula()
Dim Ctrl    As Control
For Each Ctrl In FrmListaPresenca
If TypeName(Ctrl) = "TextBox" Then
   If Ctrl.Tag = "1_i" Then
   Ctrl.Text = UCase(Ctrl.Text)

End If
End If
    Next Ctrl
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
   KeyAscii = 0
   SendKeys "{TAB}"
End If
Maiuscula
End Sub

so que no KeyPress a primeira letra fica minuscula. Haveria jeito de fazer isso quando o controle perder o foco? No caso os TextBox array nomeados com um determinado Tag como esta na Sub Maiuscula acima?

KlausLana
não registrado

Postada em 14/02/2007 15:00 hs

Claro que tem. O jeito mais fácil seria você colocar a chamada da função Maiuscula depois do SendKeys "{TAB}" antes do End If.

Porque aí, só quando o usuário apertar ENTER a Sub Maiuscula será executada.

Outra opção seria você criar o evento LostFocus do TextBox e aí sim, fazer com que este recebesse o conteúdo em maiusculo.

Ama

UBERLÂNDIA
MG - BRASIL

Postada em 14/02/2007 21:39 hs

insira este cod no evento keypress

If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii - 32

Página(s): 1/1