Cara Menambahkan Data ke dalam ListView di VB.NET

Hai sobat kali ini saya akan mempostingkan tentang Cara Menambahkan Data ke dalam ListView di VB.NET pada Microsoft Visual Studio 2010 dimana kode barang nantinya akan menambah secara autonumber. Karena saya tidak suka bertele-tele maka langsung saja saya contohkan tampilan formnya kurang lebih seperti gambar di bawah :

Full Script :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load

        Dim arr(4, 1) As String

        arr(0, 0) = "Kode Barang"

        arr(0, 1) = "Nama Barng"

        arr(1, 0) = "Jenis"

        arr(1, 1) = "Satuan"

        arr(2, 0) = "Sabun Mandi"

        arr(2, 1) = "Pasta Gigi"

        arr(3, 0) = "Pcs"

        arr(3, 1) = "Box"

        arr(4, 0) = "Lusin"

        arr(4, 1) = "Kodi"

        ListView1.GridLines = True

        ListView1.View = View.Details

        For Baris = 0 To 1

            For Kolom = 0 To 1

                ListView1.Columns.Add(arr(Baris, Kolom), 100)

            Next Kolom

        Next Baris

        For Baris = 2 To 2

            For Kolom = 0 To 1

                Cmbjenis.Items.Add(arr(Baris, Kolom))

            Next Kolom

        Next Baris

        For Baris = 3 To 4

            For Kolom = 0 To 1

                CmbSatuan.Items.Add(arr(Baris, Kolom))

            Next Kolom

        Next Baris

    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles BtnSimpan.Click

        Dim arr(4) As String

        arr(1) = TxtKodeBarang.Text

        arr(2) = TxtNamaBarang.Text

        arr(3) = Cmbjenis.Text

        arr(4) = CmbSatuan.Text

        Dim listitem As ListViewItem

        listitem = New ListViewItem

        listitem = ListView1.Items.Add(arr(1))

        listitem.SubItems.Add(arr(2))

        listitem.SubItems.Add(arr(3))

        listitem.SubItems.Add(arr(4))

        TxtKodeBarang.Text = TxtKodeBarang.Text + 1

        TxtNamaBarang.Text = ""

        Cmbjenis.Text = ""

        CmbSatuan.Text = ""

        TxtNamaBarang.Focus()

    End Sub

End Class

Sekian postingan dari saya tentang Cara Menambahkan Data ke dalam ListView di VB.NET semoga bermanfaat and see you next time....

• Tweet
• Share
• Share
• Share
• Share

About Admin

Saya senang berbagi ilmu agar semua orang tidak lagi asing terhadap ilmu-ilmu yang ada pada dunia komputer. Selain itu saya juga memberikan ilmu-ilmu tentang pemrograman ke blog ini khususnya untuk yang kuliah jurusan komputer ;) ;) ;)

Related Post