|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Obrigar o usuário a digitar a primeira letra SEMPRE em maiuscula
|
 |
|
|
|
Postada em 2/3/2004 por [_Chuck_]
Ae gente... desenvolvi essa rotina e por incrível que pareça deu certo.. :)
Private Function ConverteM(Caixa As TextBox, KeyAscii As Integer)
'Desenvolvida por Maycon Maia Vitali [_Chuck_]
Dim StrValida As String
ConverteM = KeyAscii
StrValida = "abcdefghijklmnopqrstuvwxyz"
With Caixa
If .SelLength = Len(.Text) Then
If InStr(1, StrValida, LCase(Chr(KeyAscii))) Then
ConverteM = Asc(UCase(Chr(KeyAscii)))
End If
Exit Function
End If
If Len(.Text) > 0 Then
If .SelStart > 0 Then
If Mid(.Text, .SelStart, 1) = " " Then
If InStr(1, StrValida, LCase(Chr(KeyAscii))) Then
ConverteM = Asc(UCase(Chr(KeyAscii)))
End If
End If
End If
Else
ConverteM = Asc(UCase(Chr(KeyAscii)))
End If
End With
End Function
'Então em qualquer caixa de texto basta coloca assim no evento KeyPress
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = ConverteM(Text1, KeyAscii)
End Sub
Simples né? E LEGAL.. :)
Maycon Maia Vitali [_Chuck_]
|
|
|
|
|
