Bonjour à tous,
J'ai trouver un code pour faire une rotation de mon image dans une picturebox et je souhaiterais pouvoir l'enregistrer par la suite ''à l'envers'' mais l'image reste à son état initial.
Quand je fais par exemple picturebox2.image = picturebox1.image,
l'image copier dans l'autre picturebox est celle d'origine .
Voici le code:
Function Rotation(ByVal AngleDegre As Integer)
Dim G As Graphics
Dim Largeur As Integer = 200
Dim Hauteur As Integer = 200
Dim IMG As Image = Form1.pb_apercu.Image
G = Form1.pb_apercu.CreateGraphics()
G.Clear(Form1.BackColor)
Dim Angle As Double = AngleDegre / 180 * Math.PI
Dim PosX As Single = Math.Sqrt(2) * (Largeur) * Math.Sin(Angle / 2) * Math.Cos(Math.PI / 4 + Angle / 2)
Dim PosY As Single = -Math.Sqrt(2) * (Largeur) * Math.Sin(Angle / 2) * Math.Cos(Math.PI / 4 - Angle / 2)
G.RotateTransform(AngleDegre)
G.DrawImage(IMG, PosX, PosY, Largeur, Hauteur)
G.Dispose()
End Function
Merci à vous.