我重新写了全代码,如下:
Dim i As String = AscW(Mid(TextBox1.Text, Len(TextBox1.Text), 1))
If i > 47 And i < 58 Then
.........
Else
TextBox1.Text = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 1)
Beep()
End If
可还有问题,只有对最后一位有效,如在前面插入字符就不行了。
并且如有非数字输入,光标会回到最前面。
请问一下,在Beep()之后如何让光标指什指向结尾处??