Ecrire en majiscule dans un textbox vb2008

Messages postés
14
Date d'inscription
jeudi 22 octobre 2009
Statut
Membre
Dernière intervention
11 janvier 2011
- - Dernière réponse : vb95
Messages postés
1946
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
6 octobre 2019
- 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 

6 réponses

Meilleure réponse
Messages postés
1946
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
6 octobre 2019
68
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 186 internautes nous ont dit merci ce mois-ci

Commenter la réponse de vb95
Messages postés
26
Date d'inscription
lundi 23 janvier 2012
Statut
Membre
Dernière intervention
29 septembre 2014
4
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
Statut
Membre
Dernière intervention
4 juin 2016
8
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
Statut
Membre
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
Statut
Membre
Dernière intervention
14 mars 2016
7
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
Statut
Membre
Dernière intervention
14 mars 2016
7
0
Merci
Ah... oui aussi la propriété CharacterCasing... bien mieux encore...

Amicalement,
Us.
Commenter la réponse de us_30