谁能解答这个位图问题StretchDIBits？

Declare Function StretchDIBits Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal dx As Long, ByVal dy As Long, ByVal SrcX As Long, ByVal SrcY As Long, ByVal wSrcWidth As Long, ByVal wSrcHeight As Long, lpBits As Any, lpBitsInfo As BITMAPINFO, ByVal wUsage As Long, ByVal dwRop As Long) As Long

解决方案 »

  1.   

    Declare Function StretchDIBits Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal dx As Long, ByVal dy As Long, ByVal SrcX As Long, ByVal SrcY As Long, ByVal wSrcWidth As Long, ByVal wSrcHeight As Long, lpBits As Any, lpBitsInfo As BITMAPINFO, ByVal wUsage As Long, ByVal dwRop As Long) As LongPrivate Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As LongEnd Type
    Private Const SRCCOPY = &HCC0020
    Private Const DIB_RGB_COLORS = 0
    p的定义
    dim p as picture
    rect1的定义
    dim rect1 as RECT