Halaman

Selasa, 22 Mei 2012

Menggunakan ListBox pada VB2010

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

2 komentar:

  1. kalo misalnya kita punya data di file text lain. cara menampilkannya di lisbox gimana gan ?
    makasih..

    BalasHapus
  2. Trus button cari nya mana? Hadehh copas kok gk tanggung jawab nihh, nanggung

    BalasHapus