Source Code VB 6.0-Warna Latar Listview

Warna Latar ListView

- Source Code ini Untuk mengubah warna latar teks dari ListView

- Langkah-Langkah :

1. Buat 1 Project baru dengan 1 Form, 1 Module, dan1 ListView.

2. ListView dapat Anda ambil dari component bernama  "Microsoft Windows Common Controls 5.0 (SP2)" dengan cara klik kanan di Toolbox lalu pilih component tsb.

3. Copy-kan coding berikut ke dalam editor form & module

//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//

// Kode ini di Form//

Private Sub Form_Load()

    ListView1.ListItems.Add , , "Hello, Masino Sinaga....."

    Call SendMessage(ListView1.hwnd, LVM_SETTEXTBKCOLOR, 0&, vbGreen)

End Sub

//Akhir kode di Form/