希米日志
27
0
程序代码
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
2016-11-08 18:33:00
程序代码
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