Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta| Pregunta: | 5135 - COMO PASAR UNA IMAGEN ALMACENADA EN UN ARRAY A PICTUREBOX |
| Autor: | Pedro Molina |
| Tengo una imagen en un array de bytes. Necesito pasarla a un picturebox. Lo he intentado con StretchDIBits y con BitBlt, pero no he sido capaz. No sé si estará mal la declaración de la función o qué. DECLARACIÓN: Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Declare Function StretchDIBits Lib "gdi32" (ByVal hDC As Long, ByVal DestX As Long, ByVal DestY As Long, ByVal wDestWidth As Long, ByVal wDestHeight As Long, ByVal SrcX As Long, ByVal SrcY As Long, ByVal wSrcWidth As Long, ByVal wSrcHeight As Long, ByVal lpBits As Long, BitsInfo As BITMAPINFO, ByVal wUsage As Long, ByVal dwRop As Long) As Long USO: With frmWebComm.Picture1 .ScaleMode = vbPixels result = StretchDIBits(.hDC, 0, 0, 160, 120, 0, 0, 160, 120, VideoData(0), bm, dib_rgb_colors, srccopy) ´result = BitBlt(.hDC, 0, 0, 160, 120, VideoData(0), 0, 0, srccopy) END WITH Os agradezco la ayuda. Un saludo. | |