Langkah:
1. Tambahkan komponen listview ke form dan setting propertinya :
-view = lvwReport
-tambahkan header NO, NILAI
2. pada form load ketikkan koding dbawah ini:
Private Sub Form_Load()
Dim lv As ListItem
Dim nilai As Integer‘isi data ke listview
Randomize Timer
For i = 1 To 10
Set lv = ListView1.ListItems.Add(, , i)
nilai = Int(Rnd * 100)
lv.SubItems(1) = nilai
Next‘jika nilai kurang dari 60 maka akan berwarna merah
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).SubItems(1) < 60 Then
ListView1.ListItems(i).ForeColor = vbRed
ListView1.ListItems(i).ListSubItems(1).ForeColor = vbRed
Else
ListView1.ListItems(i).ForeColor = vbBlack
ListView1.ListItems(i).ListSubItems(1).ForeColor = vbBlack
End If
NextEnd Sub
SOURCE CODE DOWNLOAD
Semoga bermanfaat.
Filed under: VISUAL BASIC
thx pak,berguna ini buat tambahan bahan buat ujian VB…hahah
siipp…..
klo ada masalah slahkan diposting saja. mungkin saya bisa bantu,
pak butuh instalan buat mbuat instalansi dr vb…
thx…
pa, gimana caranya kalo kita mau merubah warna background hanya pada record tertentu saja, misalnya pada record yg sudah expiredate saja dan bukan keseluruhan record. Mohon penjelasan dan pencerahan source codenya , Sebagai contoh spt ini :
‘— Kode ini di Form…
Private Sub Form_Load()
ListView1.ListItems.Add , , “19/04/2010″
ListView1.ListItems.Add , , “20/05/2011″
ListView1.ListItems.Add , , “20/04/2010″
Call SendMessage(ListView1.hwnd, LVM_SETTEXTBKCOLOR, 0&, vbRed)
End Sub
‘— Akhir kode di Form…
‘— Kode ini di Module…
Public Const LVM_FIRST As Long = &H1000
Public Const LVM_SETTEXTBKCOLOR As Long = (LVM_FIRST + 38)
Declare Function SendMessage Lib “user32″ Alias “SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
‘— Akhir kode di Module…
nah sy ingin hanya pada field yg sudah expiredate saja yg berwarna merah (misalnya), & yg blm expiredate tidak berubah warnanya.
sory kalo ada kalimat yg kurang dimengerti,
Terima Kasih
tinggal dicek aja isi dari listnya,
contoh:
Sub warnalist()
For i = 1 To List.ListItems.Count
Select Case List.ListItems(i).SubItems(9)
Case "Ada"
List.ListItems(i).ForeColor = vbBlack
For j = 1 To 9
List.ListItems(i).ListSubItems(j).ForeColor = vbBlack
Next
Case "Terpinjam"
List.ListItems(i).ForeColor = vbBlue
For j = 1 To 9
List.ListItems(i).ListSubItems(j).ForeColor = vbBlue
Next
Case "Rusak"
List.ListItems(i).ForeColor = vbMagenta
For j = 1 To 9
List.ListItems(i).ListSubItems(j).ForeColor = vbMagenta
Next
Case "Hilang"
List.ListItems(i).ForeColor = vbRed
For j = 1 To 9
List.ListItems(i).ListSubItems(j).ForeColor = vbRed
Next
End Select
Next
End Sub
Wah, ini tutor yang mantep & bermanfaat
terima kasih pencerahannya..
kapan2 mampir ke http://cahelhek@Wordpress.com
Wah, ini tutor yang mantep & bermanfaat
terima kasih pencerahannya..
kapan2 mampir ke http://cahelhek.WordPress.com
pa, klo colomnya di beri warna gimana caranya
warna background dari cellnya?atau warna dari tulisannya?
gan , , klo listviewnya warna-warni caranya gmn gan??
ylg dbntu ya, ,utk skripsi soalnya, ,
spt zabra color gan. .
mhn pencerahannya, ,
terima kasih
nanti ane kirim gan.email ente mana?
om bagaimana kalau random data contohnya soal dirandom dari database acess ???
dah tak buatkan kodingnya.
coba cek :http://www.mediafire.com/file/lt2bk7fi957z468/acak%20soal.rar