
vb text 中如何区分数据和非数据阿?
我本希望在text1.text中输入一个数字,如果不小心输入的是个字符串,那将该如何区分输入的到底是字符串还是数字呢?...
我本希望在text1.text 中输入一个数字,如果不小心输入的是个字符串,那将该如何区分输入的到底是字符串还是数字呢?
展开
展开全部
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8, 48 To 57
Case 46
If InStr(Text1.Text, ".") > 0 Then KeyAscii = 0
Case Else
KeyAscii = 0
End Select
End Sub
Select Case KeyAscii
Case 8, 48 To 57
Case 46
If InStr(Text1.Text, ".") > 0 Then KeyAscii = 0
Case Else
KeyAscii = 0
End Select
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询