Ecrire en majiscule dans un textbox vb2008

Signaler
Messages postés
14
Date d'inscription
jeudi 22 octobre 2009
Statut
Membre
Dernière intervention
11 janvier 2011
-
vb95
Messages postés
2098
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
25 mars 2020
-
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

6 réponses

Messages postés
2098
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
25 mars 2020
89
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. 
Messages postés
26
Date d'inscription
lundi 23 janvier 2012
Statut
Membre
Dernière intervention
29 septembre 2014
4
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

@+
Messages postés
1211
Date d'inscription
dimanche 20 avril 2003
Statut
Membre
Dernière intervention
4 juin 2016
9
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
Messages postés
14
Date d'inscription
jeudi 22 octobre 2009
Statut
Membre
Dernière intervention
11 janvier 2011

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.
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
8
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.
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
8
Ah... oui aussi la propriété CharacterCasing... bien mieux encore...

Amicalement,
Us.