Voici une petite fonction vite faite qui te permet de charger une image dans un picturebox en faisant un strech de l'image a la taille du picturebox, mais surtout de definir une bordure transparente autour de l'image !!!
Function ChargeImage(Destination As PictureBox, bordure As Integer, path As String)
Dim pic As StdPicture
Set pic = LoadPicture(path)
Destination.AutoRedraw = True
Destination.Cls
Destination.PaintPicture pic, bordure, bordure, Destination.ScaleWidth - bordure * 2, Destination.ScaleHeight - bordure * 2
End Function
|
Pour l'utiliser dans ton code, exemple :
ChargeImage Picture1, 100, "c:\image.jpg"
|
Voila ++
Ps: tu peu aussi la modifier afin de définir une bordure de taille differente pour le bas droite etc.... la je l'ai fait uniforme...