Begini, banyak yang mengira bahwa listview itu adalah listbox, tentu ini adalah hal yang berbeda, listview tidak sama dengan listbox kalau mau di hubungkan menurut saya sih bahwa ListView adalah gabungan dari ListBox, karena ListView memungkinkan dapat menampilkan data yang berbentuk 2 dimensi. ini saya kasih screenshoot ListView dan ListBoxnya :
ListView
Saya akan mencoba menerangkan dan mencoba membuat sebuah aplikasi yang dapat menambah, mengedit, dan menghapus data dengan ListView. Nah silahkan buka Visual Studionya dan new project dan beri nama ListView lalu buat tampilan seperti ini :
Codingnya:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Npm.Items.Add("13111101")
Npm.Items.Add("13021102")
Npm.Items.Add("12111103")
Jurusan.Items.Add("Teknik Informatika")
Jurusan.Items.Add("Design Grafis")
Jurusan.Items.Add("Manajemen Informatika")
Jenjang.Items.Add("S1")
Jenjang.Items.Add("D3")
Jenjang.Items.Add("D1")
KodeDosen.Items.Add("001")
KodeDosen.Items.Add("002")
KodeDosen.Items.Add("003")
KodeDosen.Items.Add("004")
KodeDosen.Items.Add("005")
kodemakul.Items.Add("101")
kodemakul.Items.Add("102")
kodemakul.Items.Add("103")
kodemakul.Items.Add("104")
kodemakul.Items.Add("105")
Call BuatTabel()
End Sub
Private Sub Npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Npm.SelectedIndexChanged
If Npm.Text = "13111101" Then
Nama.Text = "Yefani Filliang"
ElseIf Npm.Text = "13021102" Then
Nama.Text = "Cherly Anggreani"
ElseIf Npm.Text = "12111103" Then
Nama.Text = "Dedy Ratundang"
End If
End Sub
Sub BuatTabel()
LV.Columns.Add("Npm", 80, HorizontalAlignment.Center)
LV.Columns.Add("Nama", 110, HorizontalAlignment.Center)
LV.Columns.Add("Jurusan", 120, HorizontalAlignment.Center)
LV.Columns.Add("Jenjang", 130, HorizontalAlignment.Center)
LV.Columns.Add("Nilai Kehadiran", 140, HorizontalAlignment.Center)
LV.Columns.Add("Nilai Tugas/Quiz", 150, HorizontalAlignment.Center)
LV.Columns.Add("Nilai UTS", 160, HorizontalAlignment.Center)
LV.Columns.Add("Nilai UAS", 170, HorizontalAlignment.Center)
LV.Columns.Add("Total Nilai", 120, HorizontalAlignment.Center)
LV.Columns.Add("Keterangan", 120, HorizontalAlignment.Center)
LV.View = View.Details
LV.FullRowSelect = True
LV.GridLines = True
End Sub
Sub ISITABEL()
Dim ISI As New ListViewItem
ISI.Text = (Npm.Text)
ISI.SubItems.Add(Nama.Text)
ISI.SubItems.Add(Jurusan.Text)
ISI.SubItems.Add(Jenjang.Text)
ISI.SubItems.Add(NK.Text)
ISI.SubItems.Add(NT.Text)
ISI.SubItems.Add(Nut.Text)
ISI.SubItems.Add(Nua.Text)
ISI.SubItems.Add(TN.Text)
ISI.SubItems.Add(ket.Text)
LV.Items.Add(ISI)
End Sub
Private Sub Jurusan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jurusan.SelectedIndexChanged
Jenjang.Items.Clear()
Select Case Jurusan.Text
Case "Teknik Informatika"
Jenjang.Items.Add("S1")
Case "Design Grafis"
Jenjang.Items.Add("D1")
Case "Manajemen Informatika"
Jenjang.Items.Add("D3")
End Select
End Sub
Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
TN.Text = 0.1 * NK.Text + 0.15 * NT.Text + 0.3 * Nut.Text + 0.45 * Nua.Text
If TN.Text >= 50 Then
ket.Text = "Lulus"
Else
ket.Text = "Gagal"
End If
If TN.Text >= 80 Then
Nilaihuruf.Text = "A"
ElseIf TN.Text >= 70 Then
Nilaihuruf.Text = "B"
ElseIf TN.Text >= 60 Then
Nilaihuruf.Text = "C"
ElseIf TN.Text >= 50 Then
Nilaihuruf.Text = "D"
Else
Nilaihuruf.Text = "E"
End If
End Sub
Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
Call ISITABEL()
End Sub
Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
Npm.Text = ""
Nama.Text = ""
Jurusan.Text = ""
Jenjang.Text = ""
NK.Text = ""
NT.Text = ""
Nut.Text = ""
Nua.Text = ""
TN.Text = ""
KodeDosen.Text = ""
kodemakul.Text = ""
NamaDosen.Text = ""
Makul.Text = ""
Nilaihuruf.Text = ""
ket.Text = ""
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
Me.Close()
End Sub
Private Sub btnHSD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHSD.Click
LV.Items.Clear()
End Sub
Private Sub BtnHD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHD.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub KodeDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeDosen.SelectedIndexChanged
If KodeDosen.Text = "001" Then
NamaDosen.Text = "Mesran Aan,M.Kom"
ElseIf KodeDosen.Text = "002" Then
NamaDosen.Text = "Yogi Finanda,ST,M.Kom"
ElseIf KodeDosen.Text = "003" Then
NamaDosen.Text = "Khairun Abdilah,M.Kom"
ElseIf KodeDosen.Text = "002" Then
NamaDosen.Text = "Rapika,SE,S.Kom"
ElseIf KodeDosen.Text = "002" Then
NamaDosen.Text = "Yuli,M.Kom"
End If
End Sub
Private Sub kodemakul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodemakul.SelectedIndexChanged
If kodemakul.Text = "101" Then
Makul.Text = "Pemograman Visual"
ElseIf kodemakul.Text = "102" Then
Makul.Text = "Sistem Basis Data"
ElseIf kodemakul.Text = "103" Then
Makul.Text = "Sistem Operasi"
ElseIf kodemakul.Text = "104" Then
Makul.Text = "Struktur Data"
ElseIf kodemakul.Text = "105" Then
Makul.Text = "Arkom"
End If
End Sub
End Class
Dan ini Hasilnya:
Jika kalian ingin mengedit isinya sebelum disimpan , klik button Bersih yg ada di Group Box , Begitu juga ketika kalian ingin meghapus data yang berada di Listview satu persatu , kalian hanya tinggal mengklik button Hapus Data yang di pilih pada Group Box , Begitu Juga Hapus Semua Data ketika kalian Ingin menghapus semua data yang ingin kalian Hapus Semuanya pada Listview.
2 comments:
thanks a lot Indah
Kl untuk vba excel ada tidak cara untuk edit listview dari textbook..
Kesana keaini tidak menemukan bantuan
Post a Comment