recadrer une image dans une picture box?????????????,Résolu

Question

salut 

voila ce que je veux c'est recadrer une image qui est dans une picture box (c:	emp.bmp)

ou alors la recadrer directement sans m&#234;me passer par une picture box (ce serait encore mieux) enfin je veux surtout la m&#233;thode qui est la plus rapide...

imaginons que l'image fasse 234*60

et que je veuille obtenir l'image qui fasse 100 * 40

(s&#233;lection situ&#233; &#224; 40 du bord gauche et &#224; 10 du haut voir si dessus)

et avoit au final &#231;&#224;

(et que la nouvelle image soit ensuite enregistr&#233; sous c:	emp2.bmp)

merci d'avance

Utilisateur anonyme · Accepted Answer

Bonjour,



Voil&#224; une solution



Private Sub cmd1_Click()



Dim ImgPath As String,ImgPathDest as string

ImgPath = "C:	emp.bmp"

ImgPathDest  = "C:	emp2.bmp"



Dim Img As Picture

Set Img = LoadPicture(ImgPath)



Dim ImgSourceWidth As Integer

Dim ImgSourceHeight As Integer



Dim SelectX As Integer, SelectY As Integer, SelectWidth As Integer, SelectHeight As Integer

SelectX = 40

SelectY = 10

SelectWidth = 100

SelectHeight = 40



pic1.ScaleMode = 3

pic1.AutoRedraw = True

pic1.PaintPicture Img, 0, 0, SelectWidth, SelectHeight, SelectX, SelectY, SelectWidth, SelectHeight





pic1.Picture = pic1.Image

pic1.Width = SelectWidth * 15

pic1.Height = SelectHeight * 15

SavePicture pic1.Image, ImgPathDest  



End Sub


ChRB
 
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

Recadrer une image dans une picture box?????????????,

1 réponse

Discussions similaires