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