Ecrire en majiscule dans un textbox vb2008

Messages postés
14
Date d'inscription
jeudi 22 octobre 2009
Dernière intervention
11 janvier 2011
- - Dernière réponse : vb95
Messages postés
1728
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
14 décembre 2018
- 19 mars 2016 à 23:52
Private Sub txtact_KeyPress(KeyAscii As Integer)
Char = Chr(KeyAscii)
KeyAscii = Asc(UCase(Char))
End Sub

aidez moi:
jai ce code, sa marche en vb6 mais sa force decrire en majiscule sur un textbox mais je vx lequiavlent en vb.net
vb2008 et merci davance
Afficher la suite 

Votre réponse

6 réponses

Meilleure réponse
Messages postés
1728
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
14 décembre 2018
1
Merci
Bonjour
une fois la Textbox remplie faire
Textbox1.Text = Textbox1.Text.ToUpper

Et en plus c'est du vrai VB Net et non du VB6 "Vbnettisé"

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi. 

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 106 internautes ce mois-ci

Commenter la réponse de vb95
Messages postés
26
Date d'inscription
lundi 23 janvier 2012
Dernière intervention
29 septembre 2014
0
Merci
Salut,

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



Source : http://www.vbfrance.com/codes/FORCER-MAJUSCULES-DANS-TEXTBOX_18785.aspx

@+
Commenter la réponse de nvoisn
Messages postés
1212
Date d'inscription
dimanche 20 avril 2003
Dernière intervention
4 juin 2016
0
Merci
Bonjour,

A mon avis encore plus simple:

If KeyAscii > 64 And KeyAscii < 91 Then
KeyAscii = asc(strconv(chr$(keyascii),vbuppercase)
End If

Attention, ceci est du VB6, mais il y a certainement l'équivalent en .NET que je ne connais pas.

Je n'ai pas testé, mais le IF est peut-être facultatif.

Calade
Commenter la réponse de Calade
Messages postés
14
Date d'inscription
jeudi 22 octobre 2009
Dernière intervention
11 janvier 2011
0
Merci
Salut les amis jous remercie bcp mais jai deja essayer c truc et sa marchai pa mais bon c pa grave jai trouvé la solution tt simplement ça se trouve parmis ses propriétés(CharacterCasing)<--upper c tou.
Commenter la réponse de mryassine
Messages postés
2117
Date d'inscription
lundi 11 avril 2005
Dernière intervention
14 mars 2016
0
Merci
Bonjour,

Pourquoi ne pas convertir à la fin de la saisie en majuscule, plutôt que de forcer le passage... ... c'est une autre façon de voir...

sinon, voici le code :

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        e.KeyChar = e.KeyChar.ToString.ToUpper
End Sub


Amicalement,
Us.
Commenter la réponse de us_30
Messages postés
2117
Date d'inscription
lundi 11 avril 2005
Dernière intervention
14 mars 2016
0
Merci
Ah... oui aussi la propriété CharacterCasing... bien mieux encore...

Amicalement,
Us.
Commenter la réponse de us_30

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.