- Buatlah sebuah form baru di VB kalian
- Tambahkan sebuah 1 buah TextBox, kemudian double klik
- Dan Masukkan coding berikut ini di TextBox1 dengan Event Keypress
Public Sub HanyaHuruf(ByRef KeyAscii As Integer)
'http://ilkomunived.blogspot.com/
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
KeyAscii = 0
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
'http://ilkomunived.blogspot.com/
HanyaHuruf KeyAscii
End Sub
Coba jalankan dengan cara tekan F5, selamat mencoba...
Baca juga
Hanya angka vb 6
mantap boss, terima kasih sudah berbagi. Salam.
BalasHapusya mas, sama-sama... mnum (c) dulu :d
Hapushttp://www.drww.com/
BalasHapusgan ane mau tanya gimana cara validasi no.handphone jadi untuk mengecek user yang menggunakan no.hp atau tidak kalo user tidak menggunakan slain no.hp maka tidak akan tampil di data list mohon bantuannya
BalasHapusmakasih gan
mantap gan...teruskan blog nya gan :)
BalasHapusjangan lupa kunjungi website kami di www.168sdb.com
dan nikmati promo2 yang menarik dari kami
add pin bb 2a026596
Terima kasih