方法有好几种, 以下列举二种： | 方法1: | 可以使用 IF 或 Select Case 一个个判断, 但如果不接受的字符多时, 较麻烦! | | 方法2: | 将要剔除的字符统统放在一个字串中，只要一个 IF 判断即可 !! 如下： Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim sTemplate As String
sTemplate = "!@#$%^&*()_+-=" '用来存放不接受的字符
If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then
KeyAscii = 0
End If
End Sub |
|
