Kasih Nomer Pada Listview di VB 2008 tanpa Database

Sudah lama juga admin tidak menulis dalam blog. karena sibuk aktifitas kegitan yang padat dan deatline yang terus bermunculan sepanjang hari ini.

hari ini admin ingin menulis nih tentang list view yang mana kasih nomer ini bertujuan untuk tampil cantik aja daftar listview kita. :)

pertama-tama buka project vb dan design vbnya seperti dibawah ini :

Tulisan yang berwarna merah merupakan nama dari masing-masing komponen tersebut.

oke jadi pada saat kita telah mengisikan npm,nama,alamat maka kita klik tombol masukan kedalam Listview maka textbox npm, nama, alamat maka akan terhapus dan berpindah kedalam listview dengan menggunakan nomer.

pertama-tama kita double klik pada form kosong dan ketikan kode seperti dibawah ini :

  With lv
            .Columns.Add("No", 30, HorizontalAlignment.Center)
            .Columns.Add("NPM", 120, HorizontalAlignment.Center)
            .Columns.Add("Nama", 120, HorizontalAlignment.Left)
            .Columns.Add("Alamat", 180, HorizontalAlignment.Left)
            .GridLines = True
            .FullRowSelect = True
            .View = View.Details
        End With

Kedua double klik btn_masuklv dan ketikan kode dibawah ini:

  Dim isi As New ListViewItem
        Dim angka As Integer
        With isi
            For i = 0 To lv.Items.Count
                angka = i
                angka += 1
                .Text = angka
            Next
            .SubItems.Add(npm.Text)
            .SubItems.Add(nama.Text)
            .SubItems.Add(alamat.Text)
            lv.Items.Add(isi)
        End With

        npm.Text = ""
        nama.Text = ""
        alamat.Text = ""

Setelah itu tekan F5 untuk menjalankan aplikasi ini.
maka hasilnya akan seperti dibawah ini setelah menginputkan 3 mahasiswa

Selamat Mencoba ya... :)