限制键盘的录入，

最新推荐文章于 2024-02-05 12:59:57 发布

原创最新推荐文章于 2024-02-05 12:59:57 发布 · 780 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#integer #function #string

博客展示了限制键盘录入的代码。通过 Private Sub 过程调用 isValidText 函数，该函数可根据传入的验证字符串和可编辑状态，判断输入字符是否合法，合法则返回原字符，不合法则返回 0 并发出提示音。

限制键盘的录入，
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