OBJEK
|
PROPERTIES
|
VALUE
|
FORM
|
name
|
frmlistview
|
Caption
|
ListView
|
|
BorderStyle
|
3-fixed dialog
|
|
StartUpPosition
|
centerscreen
|
|
Label1
|
name
|
Label1
|
caption
|
NIM
|
|
Label2
|
Name
|
Label2
|
Caption
|
NAMA
|
|
Label3
|
Name
|
Label3
|
Caption
|
ALAMAT
|
|
Label4
|
name
|
Label4
|
Caption
|
AGAMA
|
|
Label5
|
Name
|
Label5
|
Caption
|
KELAS
|
|
Textbox1
|
Name
|
Txtnim
|
Textbox2
|
name
|
txtnama
|
Textbox3
|
name
|
txtalamat
|
Combobox1
|
name
|
cmbagama
|
Combobox2
|
Name
|
cmdkelas
|
Listview1
|
name
|
Listview1
|
Command1
|
name
|
cmdOKe
|
caption
|
OKE
|
|
Command2
|
name
|
CmdBatal
|
caption
|
KOSONGKAN
|
|
Command3
|
Name
|
cmdselesai
|
Caption
|
SELESAI
|
-
Langkah Untuk Menambah Listview1 : Project >> Components… / Ctl+T
>> centang Microsoft windows Common Controls 6.0 (SP6) >> klick Apply >> klick OK
-
JIka berhasil maka pada ToolBox muncul ListView.
Koda Program :
Dim itmx As
ListItem
Private Sub
cmdBatal_Click()
txtnim.Text
= ""
txtNama.Text
= ""
txtAlamat.Text
= ""
cmbAgama.Text
= ""
cmbKelas.Text
= ""
txtnim.SetFocus
End Sub
Private Sub
cmdOke_Click()
Set itmx =
ListView1.ListItems.Add(, , txtnim.Text)
itmx.SubItems(1)
= txtNama.Text
itmx.SubItems(2)
= txtAlamat.Text
itmx.SubItems(3)
= cmbAgama.Text
itmx.SubItems(4)
= cmbKelas.Text
End Sub
Private Sub
cmdSelesai_Click()
Unload Me
End Sub
Private Sub
Form_Activate()
txtnim.SetFocus
'membuat
head colom pada listview
ListView1.ColumnHeaders.Add
, , "NIM", 1500
ListView1.ColumnHeaders.Add
, , "NAMA", 3000
ListView1.ColumnHeaders.Add
, , "ALAMAT", 3000
ListView1.ColumnHeaders.Add
, , "AGAMA", 2000
ListView1.ColumnHeaders.Add
, , "KELAS", 1000
'menjadikan
listview sebagai report
ListView1.View
= lvwReport
'Menampilkan
batas-batas kolom
ListView1.GridLines
= True
End Sub
Private Sub
Form_Load()
data_combo
End Sub
Private Sub
data_combo()
cmbKelas.AddItem
"A"
cmbKelas.AddItem
"B"
cmbKelas.AddItem
"C"
cmbKelas.AddItem
"D"
'======================'
cmbAgama.AddItem
"Islam"
cmbAgama.AddItem
"Kristen Protestan"
cmbAgama.AddItem
"Katolik"
cmbAgama.AddItem
"Hindu Budha"
End Sub
Untuk teman2 yang ingin sewa hosting atau beli domain bisa disini iya : Link
dan gunakan Kode Kupon Berikut : YBNBLOG20 untuk mendapatkan potongan 5%
*KEJUJURAN ADALAH KEBIJAKSANAAN YANG PALING BAIK *
0 Comments