vb.net - VB.net需要文本框以仅接受数字

Question

我是VB.net(自学)的新手，只是想知道那里是否有人可以帮助我解决一些代码。我并不想做任何涉及太多的事情，只是有一个TextBox接受一个从1到10的数值。我不希望它接受一个字符串或大于10的任何数字。将会出现一条消息，告诉他输入有效的号码。这就是我所拥有的；显然，这不是很好，因为我遇到了问题。再次感谢任何可以提供帮助的人。

 If TxtBox.Text > 10 Then
        MessageBox.Show("Please Enter a Number from 1 to 10")
        TxtBox.Focus()
    ElseIf TxtBox.Text < 10 Then
        MessageBox.Show("Thank You, your rating was " & TxtBox.Text)
        Total = Total + 1
    ElseIf IsNumeric(TxtBox.Text) Then
        MessageBox.Show("Thank you, your rating was " & ValueTxtBox.Text)
    End If

    ValueTxtBox.Clear()
    ValueTxtBox.Focus()

Answer 1

您可以使用Ascii整数来做到这一点。将此代码放在Textbox的Keypress事件中。 e.KeyChar代表按下的键。内置函数Asc()将其转换为其Ascii整数。

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

    '97 - 122 = Ascii codes for simple letters
    '65 - 90  = Ascii codes for capital letters
    '48 - 57  = Ascii codes for numbers

    If Asc(e.KeyChar) <> 8 Then
        If Asc(e.KeyChar) < 48 Or Asc(e.KeyChar) > 57 Then
            e.Handled = True
        End If
    End If

End Sub