VB.Net Pertemuan ke-6

Cara Penggunaan ListView

Buatlah Form seperti gambar dibawah ini:

Setelah itu masukan Source code dibawah ini:

Public Class Form1

    Dim isitext(4) As String

    Dim mListItem As ListViewItem

    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

        Call bersih()

        Call isiCombo()

        Call setTampilan()

    End Sub

 Sub bersih()

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        ComboBox1.Text = "Teknik Informatika"

    End Sub

    Sub isiCombo()

        ComboBox1.Items.Add("Teknik Informatika")

        ComboBox1.Items.Add("Sistem Informasi")

        ComboBox1.Items.Add("Komputer Akutansi")

        ComboBox1.Items.Add("Teknik Komputer")

        ComboBox1.Items.Add("Management Informatika")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If Button1.Text = "Tambah" Then

            Button1.Text = "Simpan"

            Button2.Enabled = False

            Button3.Enabled = False

            Button4.Text = "Batal"

            TextBox1.Focus()

        Else

            isitext(0) = Trim(TextBox1.Text)

            isitext(1) = Trim(TextBox2.Text)

            isitext(2) = Trim(TextBox3.Text)

            isitext(3) = Microsoft.VisualBasic.Left(Trim(ComboBox1.Text), 25)

            mListItem = New ListViewItem(isitext)

            ListView1.Items.Add(mListItem)

            Call bersih()

            TextBox1.Focus()

        End If

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        If Button4.Text = "Keluar" Then

            Me.Close()

        Else

            Call bersih()

            Call normal()

        End If

    End Sub

    Sub normal()

        Button1.Text = "Tambah"

        Button1.Enabled = True

        Button2.Enabled = True

        Button2.Text = "Ubah"

        Button3.Enabled = True

        Button3.Text = "Hapus"

        Button4.Text = "Keluar"

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If Button2.Text = "Ubah" Then

            Button1.Enabled = False

            Button2.Text = "Simpan"

            Button3.Enabled = False

            Button4.Text = "Batal"

        Else

        End If

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        If Button3.Text = "Hapus" Then

            Button3.Text = "OK"

            Button1.Enabled = False

            Button3.Enabled = False

            Button4.Text = "Batal"

        Else

        End If

    End Sub

    Sub setTampilan()

        ListView1.View = View.Details

        ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)

        ListView1.Columns.Add("Nama", 100, HorizontalAlignment.Left)

        ListView1.Columns.Add("Alamat", 100, HorizontalAlignment.Left)

        ListView1.Columns.Add("Jurusan", 100, HorizontalAlignment.Left)

    End Sub

    Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged

        TextBox1.Text = e.Item.Text

    End Sub

End Class

Jika telah selesai membuat source code diatas lalu kita Running,Maka akan menghasilkan form seperti gambar dibawah ini :

Terima Kasih,,selamat mencoba semoga bermanfaat.