Hola amigos.
Estoy agregando la visualización de fotos en un panel en el que agrego por código una serie de picturebox donde les cargo la imagen de la foto pero es lento.
Estoy usando el siguiente código para lograr la carga de imágenes 128 o 256 pixeles de lado:
Pero al ser tan lento no lo puedo implementar para representar muchas imágenes.
Alguien podría sugerir alternativas mas eficientes.
Muchas gracias de antemano.
Estoy agregando la visualización de fotos en un panel en el que agrego por código una serie de picturebox donde les cargo la imagen de la foto pero es lento.
Estoy usando el siguiente código para lograr la carga de imágenes 128 o 256 pixeles de lado:
Código:
Public Function CanvasPic(sFile As String, iSize As Integer) As Picture
Dim pic As Picture
Dim img As Image
Dim sc As Float
Dim H, W As Integer
If Exist(sFile) Then
img = Image.Load(sFile)
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
pic = img.Stretch(W, H).Picture
Endif
Return pic
EndPero al ser tan lento no lo puedo implementar para representar muchas imágenes.
Alguien podría sugerir alternativas mas eficientes.
Muchas gracias de antemano.
1 Saludo.