限制键盘的录入，

wsd309

于 2005-01-29 11:15:00 发布

阅读量773

点赞数

CC 4.0 BY-SA版权

文章标签： integer function string

本文链接：https://blog.youkuaiyun.com/wsd309/article/details/272853

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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