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

Daftar Isi

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).