Membatasi Jenis Karakter yang Boleh Diinput Pada TextBox – Kode VB Net

Misalkan Anda mempunyai Kontrol TextBox untuk mengisi nilai mata uang, pastinya TextBox tersebut hanya boleh diisi dengan karakter angka saja. Maka dari itu untuk mengurangi resiko kesalahan pengisian, perlu dibuat kode khusus untuk membatasi jenis karakter yang boleh diketikkan di TextBox.
Berikut pilihan kode untuk membatasi karakter di TextBox yang harus ditulis di event TextBox1_KeyPress :

Baca lebih lanjut

Menambahkan WaterMark Pada TextBox – Kode VB Net

Watermark adalah teks yang muncul ketika suatu Kontrol TextBox sedang kosong atau tidak diisi. Watermark biasanya digunakan untuk memberikan informasi tambahan terhadap kegunaan sebuah Kontrol tersebut. Berikut contoh pembuatannya :

  • Buat Project baru dengan 1 Form dan 1 Module
  • Tambahkan Kontrol ke Form1 : 3 TextBox (TextBox1 s/d TextBox3), 1 ComboBox (ComboBox1)
  • Tulis kode ini di event Form1_Load :

Baca lebih lanjut

Mencari Teks Tertentu Pada Sekumpulan Item ListBox – Kode VB Net

Contoh berikut ini akan menunjukkan bagaimana melakukan proses mencari item di Kontrol ListBox. Ikuti langkah-langkah pembuatannya berikut ini :

  • Buat Project baru dengan 1 Form
  • Tambahkan Kontrol ke Form1 : 1 TextBox (TextBox1), 1 ListBox (ListBox1)
  • Tulis kode ini di event Form1_Load :

Baca lebih lanjut

Mengurutkan Item Pada ListBox Secara Descending – Kode VB Net

Untuk mengurutkan item-item yang ada di Kontrol ListBox, caranya cukup mengubah nilai properti Sorted = True. Tapi cara ini hanya berfungsi untuk mengurutkan item secara ascending (A-Z). Namun bila Anda ingin mengurutkan item secara descending (Z-A), maka gunakan kode berikut :

Baca lebih lanjut

Menghapus Duplikat Item Pada ListBox – Kode VB Net

Bila Anda mempunyai Kontrol ListBox yang mempunyai item-item yang terduplikasi / sama dan ingin menghapus item yang terduplikasi tersebut, maka bisa menggunakan kode seperti ini :


Dim ar(ListBox1.Items.Count - 1) As Object

ListBox1.Items.CopyTo(ar, 0)
ListBox1.Items.Clear()

Dim i As Integer
For i = 0 To UBound(ar)
If Not ListBox1.Items.Contains(ar(i)) Then
ListBox1.Items.Add(ar(i))
End If
Next