textbox1.CharacterCasing = CharacterCasing.Upper
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
119 internautes nous ont dit merci ce mois-ci
Private Sub TextBoxClé_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBoxClé.KeyPress '######## Optimisation du code, au lieu de mettre si caractère controle ... on bloque, on met si le caractère n'est pas une lettre, on bloque ##### If Char.IsLetter(e.KeyChar) = False Then e.Handled = True End If End Sub Private Sub TextBoxClé_KeyUp(sender As Object, e As KeyEventArgs) Handles TextBoxClé.KeyUp '############ RECUPERER LA VALEUR CLAVIER DU CARACTERE TAPPE ########## 'Dim Valeur As Integer = e.KeyValue 'MsgBox(Valeur) '####################################################################### If e.KeyValue = 50 Then TextBoxClé.Clear() MsgBox("Merci de ne pas mettre d'accents dans votre prénom ou nom !", MsgBoxStyle.Exclamation) End If If e.KeyValue = 220 Then TextBoxClé.Clear() MsgBox("Merci de ne pas mettre d'accents dans votre prénom ou nom !", MsgBoxStyle.Exclamation) End If If e.KeyValue = 192 Then TextBoxClé.Clear() MsgBox("Merci de ne pas mettre d'accents dans votre prénom ou nom !", MsgBoxStyle.Exclamation) End If If e.KeyValue = 221 Then TextBoxClé.Clear() MsgBox("Merci de ne pas mettre d'accents dans votre prénom ou nom !", MsgBoxStyle.Exclamation) End If If e.KeyValue = 55 Then TextBoxClé.Clear() MsgBox("Merci de ne pas mettre d'accents dans votre prénom ou nom !", MsgBoxStyle.Exclamation) End If If e.KeyValue = 57 Then TextBoxClé.Clear() MsgBox("Merci de ne pas mettre d'accents dans votre prénom ou nom !", MsgBoxStyle.Exclamation) End If If e.KeyValue = 48 Then TextBoxClé.Clear() MsgBox("Merci de ne pas mettre d'accents dans votre prénom ou nom !", MsgBoxStyle.Exclamation) End If If e.KeyValue = 8 Then TextBoxClé.Clear() End If End Sub Private Sub TextBoxClé_TextChanged(sender As Object, e As EventArgs) Handles TextBoxClé.TextChanged '######### Toutes les lettres tappées seront transformées en majuscule ######### TextBoxClé.CharacterCasing = CharacterCasing.Upper End Sub
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
119 internautes nous ont dit merci ce mois-ci
lors de l'écriture de ma textbox.
Private Sub TextBoxClé_TextChanged(sender As Object, e As EventArgs) Handles TextBoxClé.TextChanged TextBoxClé.Text = TextBoxClé.Text.ToUpper End Sub
Regarde la propriété RightToLeft de ton Textbox. Elle doit être à No
@cmarcotte
J'ai regardé la propriété, je l'ai mise à "Yes" mais c'est encore plus déstabilisant
Private Sub TextBoxClé_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBoxClé.KeyPress If Char.IsDigit(e.KeyChar) = True Then e.Handled = True End If If Char.IsControl(e.KeyChar) = True Then e.Handled = True End If If Char.IsHighSurrogate(e.KeyChar) = True Then e.Handled = True End If If Char.IsPunctuation(e.KeyChar) = True Then e.Handled = True End If If Char.IsSeparator(e.KeyChar) = True Then e.Handled = True End If If Char.IsSymbol(e.KeyChar) = True Then e.Handled = True End If If Char.IsWhiteSpace(e.KeyChar) = True Then e.Handled = True End If End Sub
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.