PEMROGRAMAN VISUAL LISTVIEW
Public Class Form1
Private
Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
NIK.Items.Add("001")
NIK.Items.Add("002")
NIK.Items.Add("003")
Jabatan.Items.Add("Mandor")
Jabatan.Items.Add("Kepala Bagian")
Jabatan.Items.Add("Staf")
Status.Items.Add("Menikah")
Status.Items.Add("Tidak Menikah")
End
Sub
Private
Sub NIK_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
NIK.SelectedIndexChanged
Select
Case NIK.Text
Case
"001" : Nama.Text = "Yeni"
Case
"002" : Nama.Text = "Halimah"
Case
"003" : Nama.Text = "Desi"
End
Select
End
Sub
Postingan
