Β Β Untuk para pengguna Visual Basic.Net 2010 kali ini saya akan memberikan Tutorial Visual Basic 2010 yang membahas tentang cara menggunakan ListView tools. bagaimana cara menambah, mengedit ataupun menghapus item yang ada di dalamnya. semoga bermanfaat.Β
Listing Code Program :
Β Public Class FrmListView
Β Β Dim Baris As Integer = 0
Β Β Dim BarisEdit As Integer = 0
Β Β Private Sub FrmListView_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Β Β Β 'Mengatur ListView
Β Β Β ListView1.View = View.Details
Β Β Β ListView1.FullRowSelect = True
Β Β Β ListView1.GridLines = True
Β
Β Β Β ListView1.Columns.Add("Nama Lengkap", 150)
Β Β Β ListView1.Columns.Add("Alamat", 200)
Β Β End Sub
Β Β Private Sub BtnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTambah.Click
Β Β Β ListView1.Items.Add(TextBox1.Text)
Β Β Β ListView1.Items(Baris).SubItems.Add(TextBox2.Text)
Β Β Β Baris += 1
Β Β End Sub
Β Β Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click
Β Β Β ListView1.Items(BarisEdit).Text = TextBox1.Text Β Β ListView1.Items(BarisEdit).SubItems(1).Text = TextBox2.Text
Β Β End Sub
Β Β Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged)
Β Β Β BarisEdit = ListView1.FocusedItem.Index
Β Β End Sub
Β Β Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
Β Β Β ListView1.Items(BarisEdit).Remove()
Β Β End Sub
End ClassΒ
Β Β
Β Β Β Β Β Β Β Β Β Β Β Β Β Β Β Β Β Β Β
