Membuat ListView pada VB.Net

Dalampostingan kali inisayaakanmembahasbagaimanalangkah-langkahmembuatlistviewpada VB.Net. Berikutlangkah-langkahnya

ü  Buka Microsoft Visual Studio 2008

ü  Pilih Visual Basic

ü  SetelahtampiljendelaVB.Netnyapilih menu file – New  - Project

ü  Desain  form seperticontohberikut

Toolbox	Properties
Label	Text = NPM
textbox	Name = NPM
Label	Text = Nama
textbox	Name = Nama
Label	Text = Jenjang
ComboBox	Name = Jenjang
Label	Text = Jurusan
ComboBox	Name =Jurusan
Button	Text = Input Name = Btn_Input
Button	Text = Clear Item Name = Btn_Clear_Item
Button	Text = Clear All Name = Btn_Clear_all
Button	Text = Cancel Name = Btn_Cancel
Button	Text = Exit Name = Btn_exit
ListView	Name = LV

Setelahselesaimendesain form nyadoubleklikpadaformnya, kemudianketikkan  listing codeberikutini :

PublicClass List_View

Sub Buat_Tabel()

        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Nama Lengkap", 150, HorizontalAlignment.Left)

        LV.Columns.Add("Jenjang", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Jurusan", 150, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

        LV.BackColor = Color.CornflowerBlue

EndSub

Sub Isi_Tabel()

Dim isi AsNew ListViewItem

        isi.Text = NPM.Text

        isi.SubItems.Add(Nama.Text)

        isi.SubItems.Add(Jenjang.Text)

        isi.SubItems.Add(Jurusan.Text)

        LV.Items.Add(isi)

EndSub

'Sub Isi_Nama()

'    Dim y As String

'    y = Nama.Text

'    If NPM.Text = "1011210" Then

'        Nama.Text = "Lesmardin Hasugian"

'    ElseIf NPM.Text = "1011205" Then

'        Nama.Text = "Freddy Tua marbun"

'    ElseIf NPM.Text = "1011502" Then

'        Nama.Text = "Tetty Sipahutar"

'    ElseIf NPM.Text = "1011409" Then

'        Nama.Text = "Padri Pramana"

'    ElseIf NPM.Text = "1011139" Then

'        Nama.Text = "Pebriana Sihombing"

'    ElseIf NPM.Text = "1011877" Then

'        Nama.Text = "Nani Petra Nainggolan"

'    End If

'End Sub

Sub Bersih()

        NPM.Text = ""

        Nama.Text = ""

        Jenjang.Text = ""

        Jurusan.Text = ""

        NPM.Focus()

EndSub

PrivateSub List_View_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

Call Buat_Tabel()

        NPM.Focus()

        Jenjang.Items.Add("S1")

        Jenjang.Items.Add("D3")

EndSub

PrivateSub Btninput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_input.Click

Call Isi_Tabel()

Call bersih()

        NPM.Focus()

EndSub

PrivateSub Btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_exit.Click

Dim x AsString

        x = MsgBox("Apa Anda Yakin Untuk Keluar??", MsgBoxStyle.OkCancel)

If x = vbOK Then

Me.Close()

Else

            MsgBox("Silahkan Lanjut")

            NPM.Focus()

EndIf

EndSub

PrivateSub Btn_Clear_item_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Clear_item.Click

        LV.Items.Remove(LV.SelectedItems(0))

        NPM.Focus()

EndSub

PrivateSub Btn_clear_all_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_clear_all.Click

        LV.Items.Clear()

        NPM.Focus()

EndSub

PrivateSub NPM_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NPM.KeyPress

'If Asc(e.KeyChar) = 13 Then

'    Call Isi_Nama()

'    Dim x As String

'    'Tahun.Text = "20" & Microsoft.VisualBasic.Left(NPM.Text, 2)

'    x = Microsoft.VisualBasic.Mid(NPM.Text, 3, 1)

'    If x = "1" Then

'        Jenjang.Text = "Strata I"

'    ElseIf x = "2" Then

'        Jenjang.Text = "Diploma III"

'    ElseIf x = "3" Then

'        Jenjang.Text = "Diploma I"

'    End If

'    x = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)

'    If x = "11" Then

'        Jurusan.Text = "Teknik Informatika"

'    ElseIf x = "22" Then

'        Jurusan.Text = "Sistem Informasi"

'    ElseIf x = "33" Then

'        Jurusan.Text = "Teknik Komputer"

'    ElseIf x = "44" Then

'        Jurusan.Text = "Akuntansi"

'    End If

'End If

EndSub

PrivateSub Nama_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Nama.KeyPress

If Asc(e.KeyChar) = 13 Then

            Btn_input.Focus()

EndIf

EndSub

PrivateSub NPM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.TextChanged

EndSub

PrivateSub Btn_Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Cancel.Click

Call Bersih()

EndSub

PrivateSub Jenjang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jenjang.SelectedIndexChanged

        Jurusan.Items.Clear()

If Jenjang.Text = "S1"Then

            Jurusan.Items.Add("Teknik Informatika")

            Jurusan.Items.Add("Sistem Informatika")

ElseIf Jenjang.Text = "D3"Then

            Jurusan.Items.Add("Management Informatika")

            Jurusan.Items.Add("Komputerisasi Akuntansi")

EndIf

EndSub

PrivateSub Jurusan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jurusan.SelectedIndexChanged

EndSub

EndClass

Ket :

PadaPrivateSub Jenjang_SelectedIndexChanged ini berfungsi ketika kita pilih S1 maka jenjangnya hanya muncul “Teknik Informatika” dan “Sistem Informatika” begitu juga dengan D3

Selamat mencoba ………