文件框过滤字符
0 Reply , Posted in 程序代码 on 2016 08, 2016
Private Sub Text1_KeyPress(KeyAscii As Integer) '键盘输入事件Dim a As String
a = "!@#$%^&*()_+-=" '用来存放不接受的字符
If InStr(1, a, Chr(KeyAscii)) > 0 Then
KeyAscii = 0
End If
End Sub
Dim a As String
a = "!@#$%^&*()_+-=" '用来存放不接受的字符
If InStr(1, a, Chr(KeyAscii)) > 0 Then
KeyAscii = 0
End If
End Sub
相关推荐
vb读取access并且显示 (2017-5-11 9:18:27)
VB 获取CPU温度示例 (2017-5-8 10:35:11)
VB程序逆向反汇编常见的函数 (2017-5-8 10:32:0)
VB内嵌汇编的模块示例 (2017-5-8 10:24:4)
内存数据的读写（PC） (2017-3-1 17:51:40)
用VB制作外挂 (2017-3-1 16:16:53)
 |