Convertir Arreglo de bytes a imagen para PictureBox

[pkj]

He buscado y buscado y no he encontrado el modo simple, así que aquí te dejo lo que he preparado al final. Creo que algo así ya lo había visto, pero en fin, si es así, pues lo he vuelto a hacer.

Código :

Sub LoadPictureConMatrizDeBytes(ByRef MatrizDeBytes() As Byte, ByRef ControlImage As Object, Optional FormatoDeLaImagen As String)
  Dim Fichero As String
  Dim numFichero As Integer
  If Trim$(FormatoDeLaImagen)="" then
    Fichero = Environ("temp") & "\ImagenTemporal.jpg"
  Else
    Fichero = Environ("temp") & "\ImagenTemporal." & FormatoDeLaImagen
  Endif
  numFichero = FreeFile
  Open Fichero For Output As #numFichero
    Print #numFichero, MatrizDeBytes()
  Close #numFichero
  ControlImage.Picture = LoadPicture(Fichero)
  Kill Fichero
End Sub
 

Puedes cargar cualquier objeto que admita LoadPicture.

Para cargar un image p.ej pondremos:

LoadPictureConMatrizDeBytes TuMatriz, TuControlImage

Saludos

PD: Quizá quieras incluir el formato de la imagen cargada en la matriz.
Voy a Modificar el código para admitir eso de modo opcional.

Ahora puedes usar esta línea:
LoadPictureConMatrizDeBytes TuMatriz, TuControlImage
o esta otra según te interese.
LoadPictureConMatrizDeBytes TuMatriz, TuControlImage, "jpg"
Si no incluyes formato se usara "jpg" por defecto.

PD2: Ahora que estoy probando creo que no importa que pongas la extensión correcta o ni siguiera hace falta poner ninguna extensión al fichero temporal. Mi jpg lo está cargando como bmp y sin extensión ninguna.