Question

VS2013中Textbox1_KeyPress()无法设定只输入数字和退格

我VB中是这样写的，在VS6中的VB可以实现，为什么VS2013中无法实现？
Const xStr As String = "0123456789"
//定义了一个常量字符串
Private Sub Textbox1_KeyPress(KeyAscii As Integer)
KeyAscii = IIf(InStr(xStr & Chr(8), Chr(KeyAscii)), KeyAscii, 0)
//将输入的字符与0123456789和退格比较，不是条件中的输入KeyAscii=0,
End Sub

这段命令根本就没有执行，到底是什么原因呢？

Answer 1

Public Class Form1
    Const xStr As String = "0123456789"
    '只输入数值或回格
    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress '事件需要一个事件句柄 handles 对象变量.事件名
        e.KeyChar = IIf(InStr(xStr & Chr(8), e.KeyChar.ToString), e.KeyChar, Nothing)
        '0不能转换为char类型，用nothing,同时参数在e对象中。
    End Sub
End Class