Menonaktifkan (Mendisable) Tombol Huruf

Pada tulisan ini akan dibahas mengenai bagaimana cara untuk menonaktifkan fungsi tombol huruf pada sebuah TextBox. Hal ini biasanya diperlukan pada saat menginputkan data yang berupa angka (Number), misalnya untuk menginputkan jumlah mahasiswa. Biasanya jika tombol huruf ini tidak dinonaktifkan maka akan terjadi error pada saat pengolahan data. Contohnya pada saat menjumlahkan dua atau lebih bilangan. Jika salah satu atau keduanya berupa huruf, maka akan terjadi error pada outputnya. Untuk memulainya ikuti langkah-langkah berikut ini.

Buka Visual Basic 6.0 kemudian buat sebuah project baru (Standard Exe). Aturlah properties form sesuai dengan kinginan anda. Tambahkan sebuah TexBox dan ubah propertiesnya dengan mengganti Name menjadi txtAngka.

Klik ganda pada TexBox txtAngka kemudian ketikkan kode berikut ini pada event KeyPress:

Private Sub txtAngka_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then 'jika tombol yang ditekan adalah backspace
Exit Sub
ElseIf KeyAscii <> 57 Then 'jika tombolnya adalah huruf
KeyAscii = 0
End If
End Sub

Jika kode diatas sudah diketikkan dengan benar, kemudian simpan project ini dan coba jalankan. Coba masukkan sebuah angka dan perhatikan hasilnya. Selanjutnya coba ketikkan sebuah huruf kemudian perhatikan apa yang akan terjadi.

Jika anda mengetikkan kode dengan benar, maka pada saat mengetikkan huruf, huruf yang diketikkan tidak akan muncul dan jika mengetikkan angka, maka akan tampil sesuai dengan angka yang diketikkan.

Semoga tulisan ini dapat bermanfaat bagi orang yang membutuhkannya.
By: 5ut4 http://artikel32.blogspot.com

Klik disini untuk melihat artikel Visual Basic Lainnya..