禁止用户在某文本框内输入特殊字符

todaynew

Charline 发表于 2015-11-24 00:08
自己在网上找到了，自己回答自己的问题真是太悲惨了。。。。。。

文本框的名字叫Title，代码写在更新事 ...

写成函数返回逻辑值，将该还是用于有效性规则属性。

todaynew

最简单的方案是在更改事件中处理，假设你有一个文本框名曰Text0，则下以下代码：
Private Sub Text0_Change()
    Dim char As String
    char = Right(Me.Text0.Text, 1)
    If CharExist(char) = True Then
        Me.Text0.Text = Replace(Me.Text0.Text, char, "")
    End If
    Me.Text0.SelStart = Len(Nz(Me.Text0.Text, "0"))
End Sub

Function CharExist(char As String) As Boolean
    Dim str As String
    str = "`~.&~#|\^@￡$%*!/:;?><μ°§¨¤," & Chr(34)
    CharExist = InStr(str, char) > 0
End Function

这样就无需跳出任何提示，也不会输入非法字符了。