我对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