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
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
