VISUAL_BASIC V.6 - CARA MEMBUAT TEKS BOX HANYA BISA DIINPUT ANGKA ATAU HURUF SAJA

Rancangan Form :

 

Listing Program :

' Untuk hanya bisa diinput Angka saja

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

'Untuk hanya bisa diinput huruf saja

Private Sub Text2_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

Jangan lupa tinggalin saran dan kritik yang bermanfaat untuk ini blog. Untuk teman-teman yang hendak mencopy artikel ini untuk dipasang pada blog atau web-nya, dengan sangat diharapkan untuk mencantumkan Link keblog ini (http://dp082010.blogspot.com) sebagai sumber artikel sekaligus sebagai backlink untuk blog ini. Terima kasih untuk pengertian dan kerjasamanya, mari berkembang bersama