Cara Mengunci textbox, baik huruf atau angkanya (visual basic 6.0)

Di artikel ini saya cuman pengen sharing aja tentang salah satu tutorial di visual basic 6.0 yaitu gimana mengunci textbox agar Cuma bisa di inputkan data berupa angka saja.. hmm okelah ga perlu lama lama basa basi.. kita langsung aja.
Langkah langkahnya :
1.       Tentunya kita harus buka VB 6.0 dulu dan seperti biasa pilih standar EXE.
2.       Setelah itu kita harus bikin textboxnya (yaiyalaaah. kalo engga, mau ngapain? )
3.       Lalu klik 2 kali textboxnya dan masukan koding di bawah ini

Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("1234567890", Chr(KeyAscii)) = 0 Then
If KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If
End Sub

Keterangan : nama textboxnya adalah “Text1”
Nah udah tinggal di run aja..  sepele? ^_^




Ups ada sedikit catatan yang ketinggalan nih ^_^
Sebenarnya anda juga bisa melakukan yang sebaliknya. Maksudnya anda bisa mengunci textbox untuk tidak bisa di inputkan dengan angka dan hanya bisa di inputkan dengan huruf.. anda tinggal ganti koding di atas dengan
Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("qwertyuiopasdfghjklzxcvbnm", Chr(KeyAscii)) = 0 Then
If KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If
End Sub

Jadi intinya, yang ingin bisa anda inputkan ketika di run tinggal di tambahkan/dikurangi/di ganti saja variabel yang ada di antara tanda “ ” .
Yaa segitu aja yang bisa saya bagikan semoga bermanfaat bagi anda :)
kalo udah bisa jangan lupa di bagiin lagi ilmunya ke orang yang membutuhkan, atau kalo ga mau ngajarin suruh aja kunjungin blog saya ini (hehehe).

Share ke :

About Syakir Rahman

Syakir rahman adalah seorang blogger, dan juga front-end web developer. Kunjung website pribadinya disini : http://www.syakirurohman.net
    Blogger Comment
    Facebook Comment

2 comments:

  1. Sorry tapi kalo buat vb 2008 error di vbkeyback. Solusinya gan

    BalasHapus
  2. Kalau buat simbol gimana yah? Contoh ny titik koma dll

    BalasHapus