[原创分享]输入控制——只允许或禁止输入某些字符 - Office中国论坛/Access中国论坛

'=============================================================================================
'-函数名称： ValiText
'-功能描述：控制键盘输入，只允许或禁止输入某些字符
'-输入参数：参数1：KeyIn——输入的字符
' 参数2：StrList——字符列表
' 参数3：Mode——为0时只允许输入StrList中的字符
' 为1时禁止输入StrList中的字符
'
'-返回参数：当输入的为允许的键值时返回输入键值，否则返回0
'-调用方法：在输入控件的Keypress事件中调用
'-使用示例： Private Sub Text1_KeyPress(KeyAscii As Integer)
' KeyAscii = ValiText(KeyAscii, "abcdefg", 0) '只允许输入abcdefg这几个字符
' 'KeyAscii = ValiText(KeyAscii, "abcdefg", 1) '不允许输入abcdefg这几个字符
' End Sub
'-说明：只对键盘输入有效，对通过复制等其它方法输入的无效
'-作者：红尘如烟
'-创建日期： 2009年2月10日
'=============================================================================================
Function ValiText(KeyIn As Integer, StrList As String, Mode As Integer) As Integer
If Mode = 0 Then
StrList = StrList & Chr(8)
If InStr(1, StrList, Chr(KeyIn), 1) > 0 Then
ValiText = KeyIn
Else
ValiText = 0
End If
Else
If InStr(1, StrList, Chr(KeyIn), 1) > 0 Then
ValiText = 0
Else
ValiText = KeyIn
End If
End If
End Function

复制代码