Make your own free website on Tripod.com
Set ListView Text Background Color

Preparations

Add 1 ListView Control to your form.

Module Code

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

Form Code

Private Sub Form_Load()
    ListView1.ListItems.Add , , "Hello"
    Call SendMessage(ListView1.hwnd, LVM_SETTEXTBKCOLOR, 0&, vbRed)
End Sub

Go Back