vb.net Chr KeyPress Funktion

Question

Wenn ich Textboxen in vb.net validiere, benutze ich normalerweise die .Chr oder .ChrW Funktion, um die gültigen Bereiche von ASCII Werten zu definieren, die eingegeben werden können. Heute stieß ich auf etwas, was ich vorher nicht tun musste, wo ich diese Funktion im Format e.KeyChar <> Chr(156) verwenden musste, aber den Wert 156 durch den Wert für das GBP-Zeichen ersetzen, oder aber

online über ASCII-Tabellen, dass der ASCII-Wert 156 ist, lief ich den Code, und es würde mich nicht ein £ eingeben. Was ist die Lösung dafür? Gibt es etwas, das mir fehlt?

Private Sub txtFVal_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtFVal.KeyPress 

    If e.KeyChar <> Chr(156) AndAlso e.KeyChar <> Chr(46) AndAlso e.KeyChar <> Chr(44) AndAlso e.KeyChar = ChrW(Keys.Oemcomma) _ 
    AndAlso (e.KeyChar < Chr(48) OrElse e.KeyChar > Chr(57)) AndAlso e.KeyChar <> Chr(8) Then 
     e.Handled = True 
    End If 

End Sub 

Answer 1

statt, dessen ASCII-Nummer Nachschlag nur die Zeichen selbst festlegen, indem Sie einen String mit c suffixing - die in VB.NET zeigt an, dass Sie eine char Literal angegeben haben:

If e.KeyChar <> "£"c AndAlso ... 

---

EDIT:

Hier ist eine saubere If -Anweisung, sehen, ob es funktioniert:

If Char.IsNumber(e.KeyChar) = False AndAlso e.KeyChar <> "£"c _ 
    AndAlso e.KeyChar <> ","c AndAlso e.KeyChar <> "."c _ 
    AndAlso e.KeyChar <> Chr(8) Then 
    e.Handled = True 
End If