Cual es la forma mas rapida y eficiente de cargar imagenes en un control.

Código:

Public Sub Button1_Click()



  Dim pic As Picture

  Dim img As Image

  Dim sc As Float

  Dim H, W As Integer

  Dim sFile As String

  Dim iSize As Integer = 256

  sFile = "/home/Comun/Fondos/187641361_4511982512149288_4569997526716770034_n.jpg"

  If Exist(sFile) Then

    Print Now

    img = Image.Load(sFile)

    Print Now

    Print "-------------------------------"

    If img.W >= img.H Then

      sc = img.H / img.W

      W = iSize

      H = iSize * sc

    Else

      sc = img.W / img.H

      W = iSize * sc

      H = iSize

    Endif

    Print Now

    pic = img.Stretch(W, H).Picture

    Print Now

    Print "== == == == == == == == == == == == == == == == == =="

    PictureBox1.Picture = pic

  Endif



End

Código:

' Gambas module file

Library "libMagickWand-6.Q16:6.0.0"



Private Enum MagickFalse = 0, MagickTrue

Private Enum UndefinedFilter = 0, PointFilter, BoxFilter, TriangleFilter, HermiteFilter,

  HanningFilter, HammingFilter, BlackmanFilter, GaussianFilter, QuadraticFilter,

  CubicFilter, CatromFilter, MitchellFilter, JincFilter, SincFilter, SincFastFilter,

  KaiserFilter, WelshFilter, ParzenFilter, BohmanFilter, BartlettFilter, LagrangeFilter,

  LanczosFilter, LanczosSharpFilter, Lanczos2Filter, Lanczos2SharpFilter, RobidouxFilter,

  RobidouxSharpFilter, CosineFilter, SplineFilter, LanczosRadiusFilter, SentinelFilter



Public Struct Swand

  id As Integer

  char As String

  images As Pointer

  image_info As String

  exception As String

  insert_before As Boolean

  image_pending As Boolean

  bdebug As Boolean

  signature As Integer

End Struct



' void MagickWandGenesis(void)

' Initializes the MagickWand environment.

Private Extern MagickWandGenesis()



' MagickWand *NewMagickWand(void)

' Returns a wand required for all other methods in the API.

Private Extern NewMagickWand() As Pointer



' MagickBooleanType MagickReadImage(MagickWand *wand,const char *filename)

' Reads an image or image sequence.

Private Extern MagickReadImage(wand As Pointer, filename As String) As Boolean



' MagickBooleanType MagickResizeImage(MagickWand *wand, const size_t columns,const size_t rows,const FilterType filter)

' Scales an image to the desired dimensions with a filter.

Private Extern MagickResizeImage(wand As Pointer, columns As Long, rows As Long, filter As Integer, blur As Float) As Boolean



' MagickBooleanType MagickWriteImages(MagickWand *wand, const char *filename,const MagickBooleanType adjoin)

' Writes an image or image sequence.

Private Extern MagickWriteImages(wand As Pointer, filename As String, adjoin As Boolean) As Boolean



' MagickWand *DestroyMagickWand(MagickWand *wand)

' Deallocates memory associated with an MagickWand.

Private Extern DestroyMagickWand(wand As Pointer) As Pointer



' void MagickWandTerminus(void)

' Terminates the MagickWand environment.

Private Extern MagickWandTerminus()



Public Function Image(jpg As String) As Image



  Dim bo As Boolean

  Dim magickwand As Pointer

  Dim w As New Swand

  Dim fileimmagine, nuovofile As String

  Dim img As Image



  MagickWandGenesis()



  magickwand = NewMagickWand()



  bo = MagickReadImage(magickwand, jpg)

  If bo = MagickFalse Then

    Error.Raise("Impossibile caricare il file immagine !")

    Chiude(magickwand)

  Endif



  ' Ridimensiona l'immagine:

  MagickResizeImage(magickwand, 106, 80, LanczosFilter, 1.0)



  bo = MagickWriteImages(magickwand, nuovofile, MagickTrue)

  If bo = MagickFalse Then

    Error.Raise("Impossibile creare il nuovo file dell'immagine ridimensionata !")

    Chiude(magickwand)

  Else

    w = magickwand

    img = w.images

  Endif



  Chiude(magickwand)



  If img Then

    Return img

  Else

    Return Null

  Endif



End



Private Procedure Chiude(mw As Pointer)



  ' Libera la memoria e chiude la libreria "ImageMagick":

  DestroyMagickWand(mw)

  Wait 0.01

  MagickWandTerminus()



End