Discussion :

[jacko842]

Bonjour,

Voici le keypress de ma textbox qui n'accepte que du texte

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    ''' <summary>
    ''' ACCEPTE:(LETTRE,"-",L'ESPACE,LA TOUCHE BACK)
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub TEXTBOX_PAS_NUM_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TXT_NOM.KeyPress, TXT_PRENOM.KeyPress, TXT_ADRESS.KeyPress
        If Char.IsLetter(e.KeyChar) = False And Asc(e.KeyChar) <> System.Windows.Forms.Keys.Back And Asc(e.KeyChar) <> System.Windows.Forms.Keys.ControlKey And Asc(e.KeyChar) <> System.Windows.Forms.Keys.Space And Not e.KeyChar.ToString = "-" And Not e.KeyChar.ToString = "'" Then e.Handled = True
    End Sub

Le problème c'est que je n'arrive pas a faire de ctrl+v pour coller dans la textbox, j'ai essayé avec System.Windows.Forms.Keys.control mais sans succès.

Auriez vous une idée ?

[chrismonoye]

Bonjour
il y a e.Modifiers, mais fonctionne avec les événements KeyDown et KeyUp :

Code :

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

1
2
3
4
5
6
    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
 
        If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.V Then
            'TextBox1.Text = Clipboard.GetData(DataFormats.Text).ToString
        End If
    End Sub

[Pol63]

pour plus de lisibilité on fait :

Code :

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

1
2
3
4
If Char.IsLetter(e.KeyChar) Then Exit Sub
If Asc(e.KeyChar) = System.Windows.Forms.Keys.Back Then Exit Sub
'autres cas ...
e.handled = true

et là même plus besoin de commentaire on comprend en lisant

[jacko842]

Merci