Form ListView

Mengisi data dengan menggunakan ListView

Public Class Form1

    Dim isitext(4) As String

    Dim item As ListViewItem

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

        Call bersih()

        Call isikombo()

        Call tampilan()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Sub bersih()

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        ComboBox1.Text = " 06 Teknik Informatika "

    End Sub

    Sub isikombo()

        ComboBox1.Items.Add(" 06 Teknik Informatika ")

        ComboBox1.Items.Add(" 07 Sistem Informasi ")

        ComboBox1.Items.Add(" 67 Komputer Akuntansi ")

        ComboBox1.Items.Add(" 05 Teknik Komputer ")

        ComboBox1.Items.Add(" 26 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),2)

            item = New ListViewItem(isitext)

            ListView1.Items.Add(item)

            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.Text = "ubah"

        Button2.Enabled = "true"

        Button3.Text = "hapus"

        Button3.Enabled = "true"

        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

            Button2.Text = "simpan"

            Button1.Enabled = "false"

            Button3.Enabled = "false"

            Button4.Text = "batal"

            TextBox1.Focus()

        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 = "simpan"

            Button1.Enabled = "false"

            Button2.Enabled = "false"

            Button4.Text = "batal"

            TextBox1.Focus()

        Else

        End If

    End Sub

    Sub tampilan()

        ListView1.View = View.Details

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

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

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

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

    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