Question

VB如果在数字文本中输入非数字

如果在数字文本中如果输入非"0" To "9", ".", "-"，显示如图所示图像，并且不做任何操作，输入"0" To "9", ".", "-"就继续运行程序我想用select case，可是编写几次都有错误
Select Case iText
Case "0" To "9", ".", "-"
GoTo b
Case Else
MsgBox "不能含有非数字字符!"
End Select

Answer 1

CASE语句后面的值不要加“”
Select Case iText
Case 0 To 9
GoTo b
Case Else
MsgBox "不能含有非数字字符!"
End Select

Answer 2

我的方法简单
If Not IsNumeric(txtJE) Then
MsgBox "无效的金额"
Exit Sub
End If

Answer 3

itext = Right(Text1.Text, 1)
Select Case itext
Case 0 To 9
GoTo b
Case "."
GoTo b
Case "_"
GoTo b
Case Else
MsgBox "不能含有非数字字符!"
End Select

Exit Sub
b: