Cara Membuat Hanya Huruf Atau Angka Saja Yang Bisa Di Input Dalam TextBox Menggunakan Visual Basic

*Hanya Angka Saja yang bisa di Input dalam TextBoxt

1) Tambahkan komponen TextBox pada Form yang anda buat, kemudian pada properties Name pada TextBox, ganti menjadi TxtAngka. (*bisa anda ganti sesuai keinginan anda asalkan namanya sama sesui sintak yang diberikan)
2) Copy code dibawah ini pada Form :

Private Sub TxtAngka_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
Beep
KeyAscii = 0
End If
End Sub

3) Jalankan program, jika tombol pada keyboard ditekan selain tombol angka akan mengelukarkan suara Beep.

*Hanya Huruf Saja yang bisa di Input dalam TextBoxt

1) Tambahkan komponen TextBox pada Form yang anda buat, kemudian pada properties Name pada TextBox, ganti menjadi TxtHuruf.(*bisa anda ganti sesuai keinginan anda asalkan namanya sama sesui sintak yang diberikan)
2) Copy code dibawah ini pada Form :

Private Sub TxtHuruf_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("a") & Chr(13) _
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

3) Jalankan program, jika tombol pada keyboard ditekan selain tombol huruf akan mengelukarkan suara Beep.

• Copy code

Unlock Mediafire : nc_team