Cara Input Huruf Dan Angka Saja Di Textbox Vb 6.0
Buatlah Form Seperti Dibawah Ini:
Klik Dua Kali Pada Textbox1 Dan Masuklah Listing Dibawah Ini:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") _
And KeyAscii <= Asc("9") _
Or KeyAscii = vbKeyBack) Then
Beep
KeyAscii = 0
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
And KeyAscii <= Asc("z") & Chr(13) _
Or (KeyAscii >= Asc("A") & Chr(13) _
And KeyAscii <= Asc("Z") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace)) Then
Beep
KeyAscii = 0
End If
End Sub
Coba Anda Jalankan Program Dengan Menekan F5
Program ini dibuat oleh Heri Afrizal di bireuen
