Mettre les initiales en majuscule au cours de la frappe

Commenter

Contenu du snippet

Ce p'ti code met toutes les initiales du contenu d'une textbox en majuscule au cours de la frappe (uniquement si c'est du texte bien sûr)

Source / Exemple : 


' - Pour le contrôle TextBox

Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = FirstsInMaj(KeyAscii, Text1)
End Sub

' - La fonction

Function FirstsInMaj(KeyAscii As Integer, TextBoxName As String)
Dim Str
If KeyAscii > 96 And KeyAscii < 123 Then
    If Len(TextBoxName) = 0 Then  
        KeyAscii = KeyAscii - 32
    Else
        Str = Mid(TextBoxName, Len(TextBoxName), 1)
        Select Case Str
            Case "-", "_", " ", "/": KeyAscii = KeyAscii - 32
        End Select
            
    End If
End If
FirstsInMaj = KeyAscii
End Function

Conclusion :


bon ce n'est pas la fonction qui tue, mais ça peut être utile.
Surtout, il faut bien utiliser la fonction dans la méthode KeyPress, sinon ça marche pas. En effet, la fonction UCase en cours de frappe redéplace le pointeur à gauche... c légèrement gênant. ruojnoB au lieu de Bonjour, c'est moyen.
Les mots sont considérés comme séparés si le caractère qui les précède est un tiret (-), un underscore(_), un espace ou un /

Améliorez à votre sauce !!

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.