Listview - Biodata

Public Class biodata

    Private Sub biodata_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        ListView1.View = View.Details

        ListView1.GridLines = True

        ListView1.FullRowSelect = True

        'Menambahkan judul kolom

        ListView1.Columns.Add("Nama", 80)

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

        ListView1.Columns.Add("No KTP", 80)

        ListView1.Columns.Add("Tgl Lahir", 80)

        ListView1.Columns.Add("Umur", 80)

        ListView1.Columns.Add("Jns Kelamin", 80)

        ListView1.Columns.Add("Agama", 80)

        ListView1.Columns.Add("Makes", 80)

        RadioButton1.Checked = True

    End Sub

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

        Dim arr(8) As String

        Dim item As ListViewItem

        'baris 1

        arr(0) = TextBox1.Text

        arr(1) = TextBox2.Text

        arr(2) = MaskedTextBox1.Text

        arr(3) = CDate(DateTimePicker1.Value)

        arr(4) = NumericUpDown1.Value

        If RadioButton2.Checked = True Then

            arr(5) = RadioButton2.Text

        Else

            arr(5) = RadioButton1.Text

        End If

        arr(6) = ComboBox1.Text

        If CheckBox1.Checked = True AndAlso CheckBox2.Checked = False AndAlso CheckBox3.Checked = False Then

            arr(7) = CheckBox1.Text

        ElseIf CheckBox1.Checked = False AndAlso CheckBox2.Checked = True AndAlso CheckBox3.Checked = False Then

            arr(7) = CheckBox2.Text

        ElseIf CheckBox1.Checked = False AndAlso CheckBox2.Checked = False AndAlso CheckBox3.Checked = True Then

            arr(7) = CheckBox3.Text

        ElseIf CheckBox1.Checked = True AndAlso CheckBox2.Checked = True AndAlso CheckBox3.Checked = False Then

            arr(7) = CheckBox1.Text & "," & CheckBox2.Text

        ElseIf CheckBox1.Checked = True AndAlso CheckBox2.Checked = False AndAlso CheckBox3.Checked = True Then

            arr(7) = CheckBox1.Text & "," & CheckBox3.Text

        ElseIf CheckBox1.Checked = False AndAlso CheckBox2.Checked = True AndAlso CheckBox3.Checked = True Then

            arr(7) = CheckBox2.Text & "," & CheckBox3.Text

        ElseIf CheckBox1.Checked = True AndAlso CheckBox2.Checked = True AndAlso CheckBox3.Checked = True Then

            arr(7) = CheckBox1.Text & "," & CheckBox2.Text & "," & CheckBox3.Text

        Else

            arr(7) = ""

        End If

       

        item = New ListViewItem(arr)

        ListView1.Items.Add(item)

        TextBox1.Clear()

        TextBox2.Clear()

        MaskedTextBox1.Clear()

        NumericUpDown1.Value = 0

        ComboBox1.Text = ""

        CheckBox1.Checked = False

        CheckBox2.Checked = False

        CheckBox3.Checked = False

    End Sub

End Class