Membuat List View

Pada kesempatan kali ini saya akan membuat sebuah  Form yang datanya akan muncul di List View  pertama kita buat dahulu Form seperti dibawah ini.
 
Setelah selesai kita masukkan sekarang Code, pertama Double clik Form kemudian ubah Method menjadi “ Declaration” kemudian masukkan jumlah Array yang di inginkan.

Public Class Form2

    'Membuat Variabel Array
    Dim listtxt(3) As String
    Dim listitem As ListViewItem

Setelah selesai membuat Code diatas kita lanjutkan dengan membuat Code untuk Button Simpan  dengan Method Click

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Masukkan Nilai ke Variabel Array
        listtxt(0) = Trim(TextBox1.Text)
        listtxt(1) = Trim(TextBox2.Text)
        listtxt(2) = Trim(TextBox3.Text)

        'Untuk Memasukkan ke List View dari Variabel

        listitem = New ListViewItem(listtxt)
        ListView1.Items.Add(listitem)
    End Sub
'Setting Kolom List View
    Sub setlistview()
        ListView1.View = View.Details


        'Untuk Menentukan Kolom
        ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)
        ListView1.Columns.Add("Nama", 200, HorizontalAlignment.Center)
        ListView1.Columns.Add("Alamat", 200,HorizontalAlignment.Center)

    End Sub


Setelah selesai memasukkan Code diatas dilanjutkan dengan memasukkan Code untuk mengambil data  “ List View” jangan  lupa ubah Method dengan “ ItemSelectionChange”

    Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object,

ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
        'Mengambil nilai dari Listview

        TextBox4.Text = e.Item.Text
    End Sub

Setelah itu kita masukkan Code untuk memanggil data yang sudah diinput di TextBox

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

    End Sub


Setelah selesai semua hasil Outputnya sebagai  berikut 

0 komentar:

Posting Komentar

Semangat Never Die

Diberdayakan oleh Blogger.

Cari Blog Ini