Latihan Peggunaan ListView

Pada kesempatan kali ini kita akan membahas mengenai penggunaan ListView
Pertama tama kita buat tampilan seperti berikut










Berikut Code Programnya

Public Class LatihanListView
'membuat variabel arrray
Dim listtxt(3) As String
Dim listitem As ListViewItem

'setting kolom listview
Sub setlistview()
ListView1.View = View.Details
'untuk menentukan kolom
ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 150, HorizontalAlignment.Left)
ListView1.Columns.Add("Alamat", 200, HorizontalAlignment.Left)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'memasukkan nilai variabel array
listtxt(0) = Trim(TextBox1.Text)
listtxt(1) = Trim(TextBox2.Text)
listtxt(2) = Trim(TextBox3.Text)
'untuk memasukkan ke listview dari variabel
listitem = New ListViewItem(listtxt)
ListView1.Items.Add(listitem)
End Sub

Private Sub LatihanListView_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Call setlistview()
End Sub

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
'untuk mengambil nilai dari listview
'e >>> berasal dari ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs
TextBox4.Text = e.Item.Text
End Sub
End Class

Jika tampilan dan sintak programnya sudah dibuat maka selanjutnya jika dijalankan programnya akan ditampilkan seperti











Coba masukkan data, misal seperti berikut ini,











Maka data yang dientry setelah di klik tombol simpan maka akan ditampilkan di dalam listview, kemudian coba klik NPM, maka pilihan tersebut akan ditampilkan di TextBox sebelah kanan tengah.

Latihan Form Input Data

Kali ini kita akan membuat form input data mahasiswa.
Untuk lebih jelasnya kita ikuti langkah sebagai berikut:
1. buka program VB anda
2. buat project baru dan buat design form yang kita inginkan misalnya seperti di bawah ini














3. masukkan code program seperti ini

Public Class Form1

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call isicombo() ' memanggil methode isicombo
Call bersih() ' memanggil methode bersih
End Sub

Sub isicombo() ' memasukkan data ke dalam combo box
ComboBox1.Items.Add("06. Teknik Informatika")
ComboBox1.Items.Add("07. Sistem Informasi")
ComboBox1.Items.Add("26. Manajemen informasi")
ComboBox1.Items.Add("67. Komputer Akuntansi")
ComboBox1.Items.Add("05. Teknik Komputer")
End Sub

Sub bersih() ' menghapus semua data yang dientri dalam textbox
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
ComboBox1.Text = "06. Teknik Informatika" ' data ini menjadi default di combo box
End Sub

Sub normal() ' kondisi normal dari tombol tombol
Button1.Text = "Tambah"
Button1.Enabled = True
Button2.Text = "Ubah"
Button2.Enabled = True
Button3.Text = "Hapus"
Button3.Enabled = True
Button4.Text = "Keluar"
Button4.Enabled = True
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Tambah" Then
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus() 'kursor akan ke textbox1
Else
ListBox1.Items.Add(Trim(TextBox1.Text) + " " + Trim(TextBox2.Text) + " " + Trim(TextBox3.Text) + " " + Trim(TextBox4.Text) + " " + Trim(ComboBox1.Text))
Button1.Text = "Simpan"
End If
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'untuk keluar dan batal
If Button4.Text = "Keluar" Then
Me.Close() ' menutup form diri sendiri (keluar)
Else
Call bersih()
Call normal()
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Text = "Ubah" Then
Button1.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button3.Text = "Hapus" Then
Button1.Enabled = False
Button2.Enabled = False
Button3.Text = "Ok"
Button4.Enabled = False
End If
End Sub
End Class

4. jika program dijalankan sebagai berikut