让listview 的背景平铺
下面的程序在vb5里可以实现,但在vb6 sp3里没有背景,如何解决?
Private Sub Form_Load()
sI = "C:\download\vb\vba\lvplay\back.gif"
Dim tLBI As LVBKIMAGE
tLBI.pszImage = sI & Chr$(0)
tLBI.cchImageMax = Len(sI) + 1
tLBI.ulFlags = LVBKIF_SOURCE_URL Or LVBKIF_STYLE_TILE
SendMessage ListView1.hwnd, LVM_SETBKIMAGE, 0, tLBI
' Set the background colour of the ListView to &HFFFFFFFF (-1)
' so it will be transparent!
SendMessageByLong ListView1.hwnd, LVM_SETTEXTBKCOLOR, 0, CLR_NONE
End Sub
下面是.bas里的部分内容
' Bitmaps in list views!
Type LVBKIMAGE
ulFlags As Long
hbm As Long
pszImage As String
cchImageMax As Long
xOffsetPercent As Long
yOffsetPercent As Long
End Type
' 4.71:
Public Const LVBKIF_SOURCE_NONE = &H0
Public Const LVBKIF_SOURCE_HBITMAP = &H1 ' Not supported
Public Const LVBKIF_SOURCE_URL = &H2
Public Const LVBKIF_SOURCE_MASK = &H3
Public Const LVBKIF_STYLE_NORMAL = &H0
Public Const LVBKIF_STYLE_TILE = &H10
Public Const LVBKIF_STYLE_MASK = &H10