[VB.net CF] Textbox pour du numérique

Bonjour à tous,

Pour éviter que les utilisateurs n'encodent des valeurs non numériques dans une textbox "quantité", j'ai utilisé le code suivant:

Code:

---

If Not IsNumeric(e.KeyChar) Or txtQte.Text.Length = 5 Then e.Handled = True

---

Le seul inconvénient est qu'il me bloque également la touche backspace.
Quel test je pourrais ajouter pour autoriser la touche del?

Merci d'avance.

normalement en C# tu fais :

Code:

---

1 2 3 4 5 6 7 8 9

private void NumericTextBox_KeyPress(object sender, System.Windows.Forms.KeyPressEventArgs e) { if(!Char.IsDigit(e.KeyChar)) e.Handled = true; else e.Handled = false; }

---

@+

La touche Backspace à le code ascii 8. Il te suffit de l'autoriser et c'est bon!

Code:

---

If not e.KeyChar = Chr(8) Or Not IsNumeric(e.KeyChar) Or txtQte.Text.Length = 5 Then e.Handled = True

---

Ca ne fonctionne pas... Il ne me laisse plus rien encoder.
Si j'enléève le premier NOT, ca refonctionne mais toujours sans la touche bakspace...

En C#

Code:

---

1 2 3 4 5

if((e.KeyChar < 0x30 || e.KeyChar > 0x39) && e.KeyChar != 0x08) { // Si pas un chiffre ou BACKSPACE alors on annule la frappe e.Handled = true; }

---

Code:

---

1 2 3 4 5

If e.KeyChar = Chr(8) Then   Else If Not IsNumeric(e.KeyChar) Or txt_qty.Text.Length = 5 Then e.Handled = True End If

---

La ca fonctionne :)

Merci pour les infos.