[原创分享]输入控制——只允许或禁止输入某些字符

红尘如烟

1. 
   
2. '=============================================================================================
   
3. '-函数名称：        ValiText
   
4. '-功能描述：        控制键盘输入，只允许或禁止输入某些字符
   
5. '-输入参数：        参数1：KeyIn——输入的字符
   
6. '                   参数2：StrList——字符列表
   
7. '                   参数3：Mode——为0时只允许输入StrList中的字符
   
8. '                                  为1时禁止输入StrList中的字符
   
9. '
   
10. '-返回参数：        当输入的为允许的键值时返回输入键值，否则返回0
    
11. '-调用方法：        在输入控件的Keypress事件中调用
    
12. '-使用示例：        Private Sub Text1_KeyPress(KeyAscii As Integer)
    
13. '                     KeyAscii = ValiText(KeyAscii, "abcdefg", 0) '只允许输入abcdefg这几个字符
    
14. '                    'KeyAscii = ValiText(KeyAscii, "abcdefg", 1) '不允许输入abcdefg这几个字符
    
15. '                   End Sub
    
16. '-说    明：        只对键盘输入有效，对通过复制等其它方法输入的无效
    
17. '-作    者：        红尘如烟
    
18. '-创建日期：        2009年2月10日
    
19. '=============================================================================================
    
20. Function ValiText(KeyIn As Integer, StrList As String, Mode As Integer) As Integer
    
21.     If Mode = 0 Then
    
22.         StrList = StrList & Chr(8)
    
23.         If InStr(1, StrList, Chr(KeyIn), 1) > 0 Then
    
24.             ValiText = KeyIn
    
25.         Else
    
26.             ValiText = 0
    
27.         End If
    
28.     Else
    
29.         If InStr(1, StrList, Chr(KeyIn), 1) > 0 Then
    
30.             ValiText = 0
    
31.         Else
    
32.             ValiText = KeyIn
    
33.         End If
    
34.     End If
    
35. End Function
    

复制代码

方漠

谢谢分享, 好久不见.

huangqinyong

thanks

chaojianan

谢谢分享。

ty_1029

呵呵,,又见大师杰作~~~~~~~

Henry D. Sy

谢谢分享

chaojianan

对红尘如烟佩服得很，谢谢分享。

changweiren

先回复后谢谢再学习

kenlan

对红尘如烟佩服得很，谢谢分享。

heqing3000

谢谢分享。