Penggunaan Listview Pada Visual Basic Net 2008

Kamis, 14 Februari 2013 | 10:29 WIB | Pengirim : Mesran | Dibaca : 4292 kali | Kategori : Prog VB.NET
Penggunaan Listview Pada Visual Basic Net 2008

Artikel berikut ini membahas bagaimana penggunaan Listview pada Visual Basic.Net 2008.

Listview digunakan untuk menampung beberapa/banyak data sekaligus ke dalam suatu komponen dan bisa di proses secara keseluruhan.

Dengan menggunakan listview data bisa tertampung semua. Namun kelemahan listview yaitu jika project berhenti maka data data yang di listview akan hilang, karna sifat listveiw ini non volatile.

berikut program Penggunaan Listview Pada Visual Basic Net 2008

Design form berikut ini




Ketikkan listing program berikut ini


Public Class Form1


    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        'Untuk Keluar dari program
        End
    End Sub

    Private Sub btnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBersih.Click
        'Membersihkan isian NIP, Nama, Golongan dan Gaji
        NIP.Text = ""
        Nama.Text = ""
        Golongan.Text = ""
        Gaji.Text = ""
        'Untuk memfocuskan NIP
        NIP.Focus()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Mengisikan data ke Combo NIP

        NIP.Items.Add("4021001")
        NIP.Items.Add("4021002")
        NIP.Items.Add("4021003")
        NIP.Items.Add("4021004")

        'Mengisikan data ke Combo Golongan
        Golongan.Items.Add("IIIA")
        Golongan.Items.Add("IIIB")
        Golongan.Items.Add("IIIC")
        Golongan.Items.Add("IVA")

        Call BuatTabel()     ' untuk memaggil sub BuatTabel()
    End Sub

    Sub BuatTabel()
        'membuat colom pada listview
        LV.Columns.Add("NIP", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Golongan", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Gaji Rp.", 90, HorizontalAlignment.Right)
        'menjadikan listview detail artinnya nampak sebagai baris dan kolom
        LV.View = View.Details
        'menampilkan garis sebagai pembatas baris dan kolom
        LV.GridLines = True
        'untuk membuat seluruh satu baris tersorot saat di klik
        LV.FullRowSelect = True
    End Sub

    Private Sub NIP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIP.SelectedIndexChanged
        'Untuk menseleksi hasil pemilihan NIP
        Select Case NIP.Text
            Case "4021001" : Nama.Text = "Aldyan"
            Case "4021002" : Nama.Text = "Mesran"
            Case "4021003" : Nama.Text = "Surya Darma Nasution"
            Case "4021004" : Nama.Text = "Azanuddin"
            Case Else
                Nama.Text = ""  'Apabila tidak ada yang sama
        End Select
    End Sub

    Private Sub Golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Golongan.SelectedIndexChanged
        'Untuk menseleksi hasil pemilihan Golongan
        Select Case Golongan.Text
            Case "IIIA" : Gaji.Text = 1500000
            Case "IIIB" : Gaji.Text = 1750000
            Case "IIIC" : Gaji.Text = 1900000
            Case "IVA" : Gaji.Text = 2500000
            Case Else
                Gaji.Text = 0  'Apabila tidak ada yang sama
        End Select
    End Sub

    Private Sub btnIsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIsi.Click
        'mendefinisikan variabel listviewitem dengan nama lst
        Dim lst As New ListViewItem

        'memasukkan NIP ke teks listview
        lst.Text = NIP.Text

        'memasukkan Nama, Golongan dan Gaji sebagai Subitems dari listview
        lst.SubItems.Add(Nama.Text)
        lst.SubItems.Add(Golongan.Text)
        lst.SubItems.Add(Gaji.Text)
        'memasukkan ke listviewitem di listview
        LV.Items.Add(lst)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'menghapus semua isi yang ada di listview
        LV.Items.Clear()
    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        'menghapus isian listview yang tersorot
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

End Class


Demikianlah artikel Penggunaan Listview Pada Visual Basic Net 2008, semoga dapat membantu anda dalam belajar bahasa pemrograman.

Tag : Penggunaan Listview Pada Visual Basic Net 2008, Komponen listview, belajar bahasa pemrograman, bahasa pemrograman , bahasa pemrograman visual basic net, tempat download program


Bila bermanfaat silahkan share Penggunaan Listview Pada Visual Basic Net 2008 ini dengan teman anda, Terima kasih sebelumnya

Anda Harus Baca Artikel Ini

Berikan Komentar Anda Pada Berita Penggunaan Listview Pada Visual Basic Net 2008

Anda berada di halaman Penggunaan Listview Pada Visual Basic Net 2008, dan telah membaca artikel Penggunaan Listview Pada Visual Basic Net 2008. Artikel Penggunaan Listview Pada Visual Basic Net 2008 bisa anda peroleh pada halaman http://www.mesran.net/berita-550-penggunaan-listview-pada-visual-basic-net-2008.html . Anda bisa meng-COPY/PASTE artikel ini dengan meletakkan link Penggunaan Listview Pada Visual Basic Net 2008 sebagai sumbernya
Web Rekomendasi
Tutorial Programming Online Mesran Punya Blog

Tutorial Programming Online

Site Live Programming

Global Online Book

Bengkel Bangun

Free Download Tutorial

Global Online Book

CnC Online Shop

Mutiara Future

Share Program and Tutorial

Free Share Software and Games

 Copyright (c) 2011 - 2014 mesran.net