VB.net需要文本框才能接受数字

发布时间：2020-12-17 00:09:18 所属栏目：大数据来源：网络整理

导读：我对VB.net(自学)相当新鲜,只是想知道有人可以帮助我出一些代码.我不想做任何事情进行移植,只需要一个文本框,从1到10的数值.我不希望它取一个字符串或高于10的任何数字.如果某些类型的字或字符错误消息将出现,告诉他们输入有效的号码.这是我所拥有的,显然这

我对VB.net(自学)相当新鲜,只是想知道有人可以帮助我出一些代码.我不想做任何事情进行移植,只需要一个文本框,从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()

您可以使用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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!