Assalamu'alaikum Wr Wb
Pertama, kita pilih textbox yang akan di validasi inputannya. Lalu kita masuk ke event Keypress.
2. Source Code untuk membatasi data yang diinputkan berupa Huruf,Enter, Spasi, dan backspace sebagai Berikut
3. Jika data anda berupa angka dan huruf, source codenya sebagai berikut:
4. Jika ingin menambahkan karakter lain seperti -, @ atau _ maka source codenya sebagai berikut:
Terimakasih atas kunjungannya, Selamat belajar, Tetap semangat dan jangan mudah menyerah
Wassalamu'alaikum Wr Wb
Selamat datang di web #sibukngoding.com. Pada kesempatan kali ini saya akan menjelaskan tentang cara membatasi jenis input pada textbox di vb.net.
Pada program input data, sering kali kita harus membatasi jenis input yang akan dimasukkan di textbox. Contoh jika kita ingin memasukkan data harga, maka data yang kita masukkan harus berupa angka dan tidak bisa dimasukkan huruf. Lalu jika data tersebut adalah nama, maka data yang dimasukkan harus berupa huruf, bukan angka. Dengan menggunakan VB.net, kita bisa melakukan hal tersebut. Untuk caranya adalah sebagai berikut:
Pada program input data, sering kali kita harus membatasi jenis input yang akan dimasukkan di textbox. Contoh jika kita ingin memasukkan data harga, maka data yang kita masukkan harus berupa angka dan tidak bisa dimasukkan huruf. Lalu jika data tersebut adalah nama, maka data yang dimasukkan harus berupa huruf, bukan angka. Dengan menggunakan VB.net, kita bisa melakukan hal tersebut. Untuk caranya adalah sebagai berikut:
Lalu akan muncul ke halaman source code seperti dibawah ini:
Untuk source code yang digunakan, Teman-teman bisa pilih jenis validasi
1. Source code untuk membatasi data yang akan diinputkan hanya berupa angka, enter dan backspace sebagai berikut:
Dim KeyAscii As Short = Asc(e.KeyChar)
If
(e.KeyChar Like "[0-9]"
_
OrElse
KeyAscii = Keys.Return _
OrElse
KeyAscii = Keys.Back) Then
KeyAscii = 0
End If
e.Handled = CBool(KeyAscii)
Dim KeyAscii As Short = Asc(e.KeyChar)
If
(e.KeyChar Like "[A-Z,a-z]"
_
OrElse
KeyAscii = Keys.Return _
OrElse
KeyAscii = Keys.Space _
OrElse
KeyAscii = Keys.Back) Then
KeyAscii = 0
End If
e.Handled = CBool(KeyAscii)
3. Jika data anda berupa angka dan huruf, source codenya sebagai berikut:
Dim
KeyAscii As Short
= Asc(e.KeyChar)
If
(e.KeyChar Like "[0-9]"
_
OrElse
e.KeyChar Like "[A-Z,a-z]"
_
OrElse
KeyAscii = Keys.Return _
OrElse
KeyAscii = Keys.Space _
OrElse
KeyAscii = Keys.Back) Then
KeyAscii = 0
End If
e.Handled = CBool(KeyAscii)
4. Jika ingin menambahkan karakter lain seperti -, @ atau _ maka source codenya sebagai berikut:
Dim
KeyAscii As Short
= Asc(e.KeyChar)
If
(e.KeyChar Like "[0-9]"
_
OrElse
e.KeyChar Like "[A-Z,a-z]"
_
OrElse
e.KeyChar Like "@"
_
OrElse
e.KeyChar Like "-"
_
OrElse
e.KeyChar Like "_"
_
OrElse
KeyAscii = Keys.Return _
OrElse
KeyAscii = Keys.Space _
OrElse
KeyAscii = Keys.Back) Then
KeyAscii = 0
End If
e.Handled = CBool(KeyAscii)
Contoh source code yang telah dimasukkan di vb.net
Demikianlah cara membatasi data yang akan diinputkan pada vb.net. Tentu saja masih ada tehnik lain yang bisa digunakan. Silahkan jika ada pertanyaan bisa ditanyakan lewat kolom komentar. Dan jangan lupa untuk tetap mengunjungi web sibukngoding.com untuk mendapatkan tutorial bahasa pemrograman laiinya. Semoga Bermanfaat
Terimakasih atas kunjungannya, Selamat belajar, Tetap semangat dan jangan mudah menyerah
Wassalamu'alaikum Wr Wb
Sangat membantu.. Terimakasih 😊😊😊
ReplyDeleteSama-sama 👍
Delete