Discussion :

[WBO]

bonjour,

je souhaiterais convertir lors de la saisir (code sur l'évènement KeyPress), les lettres minuscules en majuscules.

je suis en vb.net, et sur un champ textbox.

[WBO]

j'ai essayé le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
    Private Sub tb_Personne_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tb_Personne.KeyPress
        If (e.KeyChar = CR) Then
            ' On filtre la touche
            e.Handled = True
        End If
        UCase(e.KeyChar)
    End Sub

mais le

UCase(e.KeyChar)

n'a aucun effet

[tomlev]

(beaucoup) plus simple : mets la propriété CharacterCasing de la TextBox à Upper

[Hatchepsout]

ou aussi

Dans ton tb_Personne_KeyPress, tu met

KeyAscii = Asc(UCase(Chr(KeyAscii)))

bonne chance

[WBO]

tout d'abord, meilleurs voeux pour 2009.

ensuite pour en revenir à mes moutons :


je n'ai pas la propritété suivante au niveau de mon textBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mets la propriété CharacterCasing de la TextBox à Upper

en outre, pour la 2ième solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dans ton tb_Personne_KeyPress, tu met
KeyAscii = Asc(UCase(Chr(KeyAscii)))

à quoi correspond le

KeyAscii

?

[Hatchepsout]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

KeyAscii = Asc(UCase(Chr(KeyAscii)))

keyascii = la code ascii retourner de la caractère taper sur le clavier.
Chr = retourne le caractère associé à un code Ascii
Ucase = transforme une chaîne de caractères en majuscule
Asc = retourne le code Ascii d'un caractère


bonne chance++

[tomlev]

j'ai essayé le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
    Private Sub tb_Personne_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tb_Personne.KeyPress
        If (e.KeyChar = CR) Then
            ' On filtre la touche
            e.Handled = True
        End If
        UCase(e.KeyChar)
    End Sub

mais le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UCase(e.KeyChar)

n'a aucun effet

Normal : UCase ne modifie pas le paramètre, ça renvoie un nouveau char. Il faut faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

e.KeyChar = UCase(e.KeyChar)

je n'ai pas la propritété suivante au niveau de mon textBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mets la propriété CharacterCasing de la TextBox à Upper

Tu es sûr ? Pourtant j'ai vérifié, elle est là depuis la version 1.0 du Framework... Tu ne travailles pas sur le Compact Framework ?

à quoi correspond le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

KeyAscii

?

A rien, ça n'existe pas...