Discussion :

[turican2]

Bonjour à vous,

Le titre est assez explicite j'espere pour exposer mon souci. Il semblerait que la propriété keycode soit en lecture seul, alors je n'arrive pas à convertir mes caractères minuscules en caractères majuscules. Quelqu'un pourrait il me dire comment m'y prendre pour remplacer ça:

Code :

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

1
2
3
4
5
6
 
    Private Sub Form3_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode.ToString > 97 And e.KeyCode.ToString < 124 Then ' caractere saisi est un caractere minuscule
            e.KeyCode.ToString = e.KeyCode - 32 ' devrait produire un caractere majuscule.
        End If
    End Sub

de façon a avoir en tps réel
exemple 1: appuie sur "a" > "A"
exemple 2: appuie sur "A" > ne rien faire

merci d'avance :-)

[Pol63]

sur l'evenement keypress, KeyChar n'est pas readonly

[turican2]

franchement merci bien, j'étais carrément passé à coté :-)

ce code fait exactement ce que je veux, à savoir convertir en temps réel(aussi RT que vb puis ce l'être évidement) des caractères minuscule en majuscules.
Je donne le code MAJ > min dès fois que quelqu'un fasse la recherche dans google et tombe sur ce topic.

' Misnuscule >majuscule

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        'Dim i As Integer
        'i = AscW(e.KeyChar)
        If AscW(e.KeyChar) > 96 And AscW(e.KeyChar) < 124 Then
            e.KeyChar = ChrW(AscW(e.KeyChar) - 32)
        End If
    End Sub

' Majuscule > minuscule

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        'Dim i As Integer
        'i = AscW(e.KeyChar)
        If AscW(e.KeyChar) > 64 And AscW(e.KeyChar) < 91 Then
            e.KeyChar = ChrW(AscW(e.KeyChar) + 32)
        End If
    End Sub

[Pol63]

plutot que de faire du + ou - 32 , il y a les fonctions ucase et lcase ...
ca évitera surement ton filtre aussi ...