VB 检测文本框字符

来源：百度知道 编辑：UC知道 时间：2024/06/11 05:48:37
我想写几行代码,检测文本框内除了数字和回车符外,是否存在其他字符
0871love 的答案接近,但还有点问题,当文本框有多行数字时,返回结果为T,希望改进下,谢谢

Function Check(S As String) As Boolean
'返回结果为T时,存在其他字符,返回结果为F时,没有其他字符
Check = False
Dim i As Integer, C As String
For i = 1 To Len(S)
C = Mid(S, i, 1)
If C <> vbCrLf And Not IsNumeric(C) Then
Check = True
Exit Function
End If
Next
End Function

Private Sub Command1_Click()
Print Check(Text1.Text)
End Sub

这个需要了解ascii
逐个的检查就行了，具体的自己做
这样学习效率比较高 记忆比较深刻