Pertemuan 11, 4 Mei 2015 : Tutorial Array 2D menggunakan Vb.net

saya akan membuat tutorial Array menggunakan Microsoft visual basic 2010 express. Langkah-langkahnya adalah sebagai berikut : 
1. Buka aplikasi Microsoft visual basic 2010 express ->file->New Project->Windows Form Application, isikan namanya Array Kota. Kemudian klik ok. 

Rename nama formnya menjadi Array. 
Buat tampilan formnya seperti ini 

Terdiri dari :
 -3 Label
 -3 ComboBox
-1 ListView
-3 Button
Keterangan :
ComboBox Provinsi ganti namenya menjadi cmbProv
ComboBox Kota ganti namenya menjadi cmbKota
ComboBox Kota ganti namenya menjadi cmbKec

2. Kemudian Masukan kode berikut ini :
 -Deklarasikan array berikut 

Public Class ArrayKota
    Dim arrayProv() As String = {"Jawa Barat", "Jawa Tengah", "Jawa Timur"}
    Dim arrayKotaJabar() As String = {"Cimahi", "Padalarang"}
    Dim arrayKotaJateng() As String = {"Solo", "Semarang"}
    Dim arrayKotaJatim() As String = {"Malang", "Surabaya"}
    Dim arrayKecCimahi() As String = {"Cimahi Utara", "Cimahi Selatan"}
    Dim arrayKecPadalarang() As String = {"Padalarang", "Ngamprah"}
    Dim arrayKecSemarang() As String = {"Semarang Timur", "Mijen"}
    Dim arrayKecSolo() As String = {"Pasar Kliwon", "Semanggi"}
    Dim arrayKecMalang() As String = {"Sukoharjo", "Kauman"}
    Dim arrayKecSurabaya() As String = {"Jambangan", "Sawahan"}

-Masukan kode ini di form load nya : 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cmbProv.Items.AddRange(arrayProv)
        Call Tabel()
    End Sub

-Kode untuk ComboBox Provinsi adalah sebagai berikut. 

Private Sub cmbProv_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbProv.SelectedIndexChanged
        If cmbProv.SelectedIndex = 0 Then
            cmbKota.Items.Clear()
            cmbKota.Items.AddRange(arrayKotaJabar)
        ElseIf cmbProv.SelectedIndex = 1 Then
            cmbKota.Items.Clear()
            cmbKota.Items.AddRange(arrayKotaJateng)
        ElseIf cmbProv.SelectedIndex = 2 Then
            cmbKota.Items.Clear()
            cmbKota.Items.AddRange(arrayKotaJatim)

        End If
    End Sub

-Kode untuk ComboBox Kota adalah sebagai berikut : 

Private Sub cmbKota_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbKota.SelectedIndexChanged
        If cmbKota.SelectedItem = "Cimahi" Then
            cmbKec.Items.Clear()
            cmbKec.Items.AddRange(arrayKecCimahi)
        ElseIf cmbKota.SelectedItem = "Padalarang" Then
            cmbKec.Items.Clear()
            cmbKec.Items.AddRange(arrayKecPadalarang)
        ElseIf cmbKota.SelectedItem = "Solo" Then
            cmbKec.Items.Clear()
            cmbKec.Items.AddRange(arrayKecSolo)
        ElseIf cmbKota.SelectedItem = "Semarang" Then
            cmbKec.Items.Clear()
            cmbKec.Items.AddRange(arrayKecSemarang)
        ElseIf cmbKota.SelectedItem = "Malang" Then
            cmbKec.Items.Clear()
            cmbKec.Items.AddRange(arrayKecMalang)
        ElseIf cmbKota.SelectedItem = "Surabaya" Then
            cmbKec.Items.Clear()
            cmbKec.Items.AddRange(arrayKecSurabaya)
        End If
    End Sub

-Kode untuk button Tampilkan adalah sebagai berikut : 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim lst As New ListViewItem
        lst.Text = cmbProv.Text
        lst.SubItems.Add(cmbKota.Text)
        lst.SubItems.Add(cmbKec.Text)
        ListView1.Items.Add(lst)
    End Sub

-Membuat procedure table . 

Sub Tabel()
        'membuat colom pada listview
        ListView1.Columns.Add("Provinsi", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Kota", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Kecamatan", 80, HorizontalAlignment.Center)
        'menjadikan listview detail artinnya nampak sebagai baris dan kolom
        ListView1.View = View.Details
        'menampilkan garis sebagai pembatas baris dan kolom
        ListView1.GridLines = True
        'untuk membuat seluruh satu baris tersorot saat di klik
        ListView1.FullRowSelect = True
    End Sub

-Kode untuk button Hapus adalah sebagai berikut : 

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If ListView1.SelectedItems.Count > 0 AndAlso MessageBox.Show("Apa kamu ingin menghapus data ini?", "Confirm", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then

            ListView1.SelectedItems(0).Remove()

        End If
    End Sub

-Kode untuk button Exit adalah sebagai berikut : 

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

3. Setelah semua kode telah dimasukanRun programnya. Saya ambil contoh Porvinsi Jawabarat.

Ketika button tampilkan di klik maka tampil di list view. 

Lalu untuk menghapusnya tinggal kita sorot yang ingi di hapus lalu klik button hapus. 

Kemudian muncul messagebox seperti berikut. 

Kemudian muncul messagebox seperti berikut