fonction pour redimensionner une image( Temps de lecture estimé à Moins d'une minute)
J 'ai découvert une fonction super pratique pour redimensionner n 'importe quelle image.
il vous suffit d 'écrire ce code :
Private Function Iresize($file As String, s As Integer) As Picture
Dim i As Image
i = Picture[$pic & $file].Image.Stretch(s, s)
Return i.Picture
End
et d 'appeler cette fonction simplement comme ceci :
Dim monimage as picture
monimage = iresize(monfichierimage, tailleenpixel)
exemple :
monimage = iresize( icone.png , 32)
Voilà pour aujourd 'hui.