Listbox berfungsi sebagai media untuk menampilkan data-data yang kita inputkan pada beberapa control box, seperti textbox, combobox, checkbox dan lain sebagainya. Pada bagian bagian ini kita akan membuat beberapa fungsi dari listbox.
1. Menambahkan item pada listbox dari textbox.
Tambahkan 1 textbox, 1 listbox dan 1 button ke dalam form. Kemudian masukkan code berikut:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Add(TextBox1.Text)
MsgBox("Data telah ditambahkan", MsgBoxStyle.Information, "Perhatian")
TextBox1.Text = ""
TextBox1.Focus()
End Sub
End Class
Ketika user mengklik button Tambah, maka item yang ada pada textbox akan ditambahkan ke dalam listbox.
2. Menghapus item dari listbox
• Menghapus item yang diseleksi
Tambahkan 1 button ke dalm form sebelumnya, kemudian masukkan code berikut:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Remove(ListBox1.SelectedItem)
MsgBox("Data telah dihapus", MsgBoxStyle.Exclamation, "Perhatian")
TextBox1.Focus()
End Sub
Klik salah item pada listbox, kemudian klik tombol hapus.
• Menghapus semua item
Tambahkan 1 button ke dalm form sebelumnya, kemudian masukkan code berikut:
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ListBox1.Items.Clear()
MsgBox("Semua data telah dihapus", MsgBoxStyle.Exclamation, "Perhatian")
TextBox1.Focus()
End Sub
Klik salah item pada listbox, kemudian klik tombol hapus.
3. Mencari item pada listbox
Masukkan 1 textbox, 2 listbox dan 3 button ke dalam form. Kemudian masukkan code berikut:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Add(TextBox1.Text)
TextBox1.Text = ""
TextBox1.Focus()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox2.Items.Clear()
Dim count As Integer = (ListBox1.Items.Count - 1)
Dim words As String
For a = 0 To count
words = ListBox1.Items.Item(a)
If InStr(words.ToLower, TextBox1.Text.ToLower) Then
ListBox2.Items.Add(words)
End If
Next
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ListBox2.Items.Clear()
TextBox1.Focus()
End Sub
End Class
Masukkan item yang akan dicari ke dalam textbox, kemudian klik tombol Cari
Untuk mendapatkan file pdf-nya, klik download
kalo misalnya kita punya data di file text lain. cara menampilkannya di lisbox gimana gan ?
BalasHapusmakasih..
Trus button cari nya mana? Hadehh copas kok gk tanggung jawab nihh, nanggung
BalasHapus