请问:谁会实现在listbox中添加背景图片?

Question

请问:谁会实现在listbox中添加背景图片?

Answer 1

我没做过，但是好像API可以做到吧

Answer 2

要不然你就自己做一个ActiveX控件

Answer 3

Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As LongPrivate Const SRCCOPY = &HCC0020
Private Const SRCPAINT = &HEE0086
Private Const SRCAND = &H8800C6
Private Const SRCINVERT = &H660046
    Sub Form_Load()
    Dim i As Integer
    Picture1.Picture = LoadPicture("C:\My Documents\My Pictures\银行卡.jpg") '载入图像    Picture1.ScaleMode = 3 '像素单位
    
    
    List1.ForeColor = vbRed
    For i = 1 To 10
        List1.AddItem i
    Next i    
    End Sub    Private Sub Command1_Click()
    Dim mhDC As Long
     
    mhDC = GetDC(List1.hwnd)    Call BitBlt(mhDC, 0, 0, List1.Width, List1.Height, Picture1.hdc, 0, 0, SRCAND) '调用BitBlt    Call ReleaseDC(List1.hwnd, mhDC)
    End Sub