4
0
程序代码 Private Sub Text1KeyPress(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
评论 0
所有评论均为人工审核,请勿浪费时间！