Чем заменить метод Render для IpictureDisp?

[Alexanbar]

Есть картинка (bmp).
Если её отрисовываешь на Picturebox с помощью метода REnder, всё в порядке.
Но если делаешь вот это:

Код: Выделить всё

Dim NMLVCD As NMLVCUSTOMDRAW
dim rct as RECT
......

iPic.Render NMLVCD.nmcd.hdc, _
                                CLng(rct.Right - dltx), _
                                CLng(rct.Bottom - dlty), _
                                CLng(picW), -CLng(picH), _
                                0, _
                                0, _
                                PixelToHimetric(picW), _
                                PixelToHimetric(picH), _
                                0

Ничего не получается. Как я понял, не нравится NMLVCD.nmcd.hdc. Стоит вместо этого поставить ч-л ещё, ругань пропадает, но и рисовать не рисуется.

[Alexanbar]

Ну вроде разобрался. StretchBLT надо использовать

[alibek]

Обычно вместо Render рекомендуется использовать PaintPicture.

[Alexanbar]

Так PaintPicture - это метод Picturebox-a, а если его нет?

Код: Выделить всё

Public Sub StretchBMP(hHandle As Long, _
     hdc As Long, ByVal x As Long, ByVal y As Long, _
     ByVal nWidthPixels As Long, ByVal nHeightPixels As Long, _
     ByVal xSrc As Long, ByVal ySrc As Long, _
     ByVal cxSrc As Long, ByVal cySrc As Long, _
     Optional ByVal dwRop As Long)
On Error GoTo errorHandler

Dim srcDC As Long
Dim oldDC As Long
Dim Ret As Long

srcDC = CreateCompatibleDC(0)
If srcDC <> 0 Then
    oldDC = SelectObject(srcDC, hHandle)
    If oldDC <> 0 Then
        'Now do the copy
        Ret = StretchBlt(hdc, x, y, nWidthPixels, nHeightPixels, _
            srcDC, xSrc, ySrc, cxSrc, cySrc, dwRop)
        'Clean up the device contexts
        Call SelectObject(srcDC, oldDC)
    End If
    Call DeleteDC(srcDC)
End If


errorHandler:
End Sub