Menggunkan Object ListView Visual Basic 2010 (VB2010)

¨       Buat project baru dengan cara File-> New Project

¨       Berinama project  sesuka anda
Buat rancangan form seperti gambar di bawah ini;

 Tabel Object Property

¨

¨       Buat deklarasi

    Dim MyListText(10) As String

    Dim MyListItem As ListViewItem

¨       Double klik pada Form, ketikan kode program berikut

        '======== MEMBUAT HEDER KOLOM PASA LISTVIEW =============

        ListView1.Clear() 'Menghapus data yang ada dari ListView

'PENTING - Mengatur pandangan ke Detail untuk memungkinkan tabulasi (modus kolom)

              ListView1.View = View.Details
 

        'Tambahkan ukuran Kolom ListView dan Judul

        ListView1.Columns.Add("Kolom 1", 100, HorizontalAlignment.Left)

        ListView1.Columns.Add("Kolom 2", 100, HorizontalAlignment.Left)

        ListView1.Columns.Add("Kolom 3", 100, HorizontalAlignment.Left)

¨       Double klik pada tombol Add, Ketikkan kode program seperti di bawah ini

        'Menampilkan catatan di ListViewBox

        MyListText(0) = "Text1"

        MyListText(1) = "Text2"

        MyListText(2) = "Text3"

        MyListItem = New ListViewItem(MyListText)

        ListView1.Items.Add(MyListItem)

 

¨       Double klik pada tombol Add By Textbox, Ketikkan kode program seperti di bawah ini

        'Menampilkan catatan di ListViewBox

        MyListText(0) = TextBox1.Text

        MyListText(1) = TextBox2.Text

        MyListText(2) = TextBox3.Text

        MyListItem = New ListViewItem(MyListText)

        ListView1.Items.Add(MyListItem)

        'menghapus textbox setelah di input

        TextBox1.Clear()

        TextBox2.Clear()

        TextBox3.Clear()

¨       Double klik pada tombol Remove, Ketikkan kode program seperti di bawah ini

 'untuk menghapus satu item

        'ListView1.Items.RemoveAt(ListView1.SelectedItems(0).Index)

        'untuk Remove Multiple Selected Items

        For Each LVItem As ListViewItem In ListView1.SelectedItems

            LVItem.Remove()

        Next

¨       Double klik pada tombol Clear, Ketikkan kode program seperti di bawah ini

ListView1.Items.Clear()

¨        Double klik pada ListView, Ketikkan kode program seperti di bawah ini

'menampilkan item data ke textbox

With Me.ListView1

            Dim i As Integer

            For Each item As ListViewItem In ListView1.SelectedItems

                i = item.Index

            Next

            Dim innercounter As Integer = 0

            For Each subItem As ListViewItem.ListViewSubItem In ListView1.Items(i).SubItems

                Dim myString As String = ListView1.Items(i).SubItems(innercounter).Text

                Select Case innercounter

                    Case 0

                        TextBox1.Text = myString

                    Case 1

                        TextBox2.Text = myString

                    Case 3

                        TextBox3.Text = myString

                End Select

                innercounter += 1

            Next

        End With

 

Tekan F5 untuk melihat hasilnya

      Download : Sample Project
Download : E-Book Visual Basic 2010