Qrembiezs
Security Team
Jumlah posting : 93
Join date : 05.04.11
Lokasi : %windir%regedit.exe
 | | Subyek: mengabaikan Specific Characters di TextBox Sat 8 Feb 2014 - 13:45 | |
| Persiapan : 1. 1 Form 2. 1 TextBox - Code:
-
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim sTemplate As String
sTemplate = "!@#$%^&*()_+="
If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0
End Sub Ganti '!@#$%^&*()_+=' dengan character yg harus diabaikan | |
|
