Forcer les majuscules dans une textbox

Commenter

Contenu du snippet

Toute petite fonction, très simple:

Source / Exemple : 


Public Function ForceMaj(KeyAscii As Integer)
If KeyAscii > 96 And KeyAscii < 123 Then
     KeyAscii = KeyAscii - 32
End If
ForceMaj = KeyAscii
End Function

' utiliser dans l'evenement KeyPress de la TextBox comme suit:
Private Sub TxtBox_KeyPress(KeyAscii As Integer)
    KeyAscii = ForceMaj(KeyAscii)
End Sub

Conclusion :


Voila, c'est très simple mais ça peut être utile.

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.

Du même auteur (cs_pepito)