限制键盘的录入，

最新推荐文章于 2024-07-16 14:34:09 发布

wsd309

最新推荐文章于 2024-07-16 14:34:09 发布

阅读量741

点赞数

文章标签： integer function string

本文链接：https://blog.csdn.net/wsd309/article/details/272853

版权

限制键盘的录入，
Private Sub txthandset_KeyPress(KeyAscii As Integer)
KeyAscii = isValidText(KeyAscii, "-0123456789.", True)
End Sub

Public Function isValidText(KeyIn As Integer, ValidateString As String, Editable As Boolean) As Integer                                             'dml add
    Dim ValidateList As String
    Dim KeyOut       As Integer

    If Editable = True Then
        ValidateList = UCase(ValidateString) & Chr(8)
    Else
        ValidateList = UCase(ValidateString)
    End If
    If InStr(1, ValidateList, UCase(Chr(KeyIn)), 1) > 0 Then
        KeyOut = KeyIn
    Else
        KeyOut = 0
        Beep
    End If
    isValidText = KeyOut
End Function