查看: 104  |  回复: 0
VB6 TextBox中能不接受某些特定字符(如 ''@#$%")
楼主
发表于 4月10日 23:23

将要剔除的字符统统放在一个字串中,只要一个 IF 判断即可,本例子不包括粘贴特殊字符。

新建From1(窗体),新建Text1(TextBox),代码:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Dim sTemplate As String
    sTemplate = "!@#$%^&*()_+-="    '用来存放不接受的字符
    If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then
        KeyAscii = 0
    End If
End Sub


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com