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...

[Hatchepsout]

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

c'est quoi qui n'existe pas??


enfin pour WBO

voici la code complete

Code :

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

1
2
3
Private Sub tb_Personne_KeyPress (KeyAscii As Integer)
   KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

[tomlev]

c'est quoi qui n'existe pas??


enfin pour WBO

voici la code complete

Code :

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

1
2
3
Private Sub tb_Personne_KeyPress (KeyAscii As Integer)
   KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

euh... c'est quoi ça ? En VB.NET l'évènement KeyPress a la signature suivante :

Code :

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

Private Sub tb_Personne_KeyPress (sender As Object, e As KeyPressEventArgs)

Et il n'y a nul part d'argument ou de propriété KeyAscii... Tu confonds peut-être avec VB6 ?

EDIT: après vérification, je confirme : tu confonds avec VB6... C'est le forum Visual Basic .NET ici

[WBO]

donc pour la propriété CharacterCasing de la TextBox à Upper, je confirme, elle existe bien pour une application de type windows, mais elle n'existe pas pour une application en windows ce ().

j'avais déjà essayé

Code :

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

e.KeyChar = UCase(e.KeyChar)

ce code là, mais la propriété

e.KeyChar

est une propriété en ReadOnly.

[Hatchepsout]

arf

ben oui après vérification et après prendre un très grand tasse du café me suis bien réveillée , ben oui t'a raison c'etait du vb6 (ca fait un petit moments que je ne touche plus au vb.net) :red:


mais bon en recherchant me suis tombée sur ça http://www.developpez.net/forums/d68...ettre-toupper/,

peut être ça aide

[tomlev]

la propriété e.KeyChar est une propriété en ReadOnly.

Argh... dis donc ça a l'air sympa le compact framework, c'est pareil que le vrai sauf que tu peux rien faire
Sinon tu peux essayer comme ça :

Code :

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

1
2
3
4
5
6
    Private Sub tb_Personne_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tb_Personne.KeyPress
        If (e.KeyChar > Chr(32)) Then ' Pour exclure les caractères de contrôle
            tb_Personne.SelectedText = UCase(e.KeyChar)
            e.Handled = True
        End If
    End Sub

[WBO]

ca marche c'est nickel.

pour windows CE, c'est vrai que c'est plus contraignant que pour une appli windows, mais bon, on choisit pas toujours son support !!