Bonjour,
voilà un bout de code qui execute une rotation d'un picturebox, mais l'image initiale reste tout le temps, comment faire pour la faire disparaitre?.

code:

Function

Rotation1(ByVal AngleDegre AsInteger)

Dim G As Graphics

'on mémorise la longueur de l'image

'je pars de l'hypothèse que j'utilise une image carré

Dim Largeur AsInteger = AxTransPictureCtl1.Picture.Width

Dim Hauteur AsInteger = AxTransPictureCtl1.Picture.Height

'on mémorise l'image présente dans la picture box

Dim IMG = AxTransPictureCtl1.Picture

'définition de la picturebox comme espace de dessin

G = AxTransPictureCtl1.CreateGraphics()

'on efface

'G.Clear(Me.BackColor)

'on transforme l'angle en radians

Dim Angle AsDouble = AngleDegre / 180 * Math.PI

'on calcule les nouvelles coord X et Y de l'image

Dim PosX AsSingle = Math.Sqrt(2) * (Largeur) * Math.Sin(Angle / 2) * Math.Cos(Math.PI / 4 + Angle / 2)

Dim PosY AsSingle = -Math.Sqrt(2) * (Largeur) * Math.Sin(Angle / 2) * Math.Cos(Math.PI / 4 - Angle / 2)

'on fait la rotation

G.RotateTransform(AngleDegre)

'on dessine l'image rotée aux nouvelles coordonnées

G.DrawImage(IMG, PosX, PosY, Largeur, Hauteur)

'on libère !

G.Dispose()

EndFunction

 

PrivateSub AxTransPictureCtl1_MouseUpEvent(ByVal sender AsObject, ByVal e As AxTransPicture.__TransPictureCtl_MouseUpEvent) Handles AxTransPictureCtl1.MouseUpEvent

If e.button = 1 Then

For i = angle1 To angle1 + 90

Rotation1(i)

'Sleep(10)

Next i

angle1 = angle1 + 90

ElseIf e.button = 2 Then

For j = angle1 To angle1 - 90 Step -1

Rotation1(j)

'Sleep(10)

Next j

angle1 = angle1 - 90

EndIf

EndSub

J'ai rajouté un
G.Clear(AxTransPictureCtl1.BackColor)
avant le G.Draw et l'image initiale est effacée...
Mais je vois en commentaire un G.Clear(Me.BackColor) en commentaire... Donc j'imagine que tu as déjà essayé ?

Julien.

PS : J'ai utilisé ton code un peu autrement dans le Paint de la pictursBox, peut-être est-ce à cause de ca mais je vois pas le rapport ? Je te colle mes modifs ici, ma pictureBox s'appelle Pic, et j'utilise un timer à 40 pour actualiser l'image...

    Private Sub Pic_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Pic.Paint

        Dim AngleDegre As Single = DateAndTime.Timer * 100

        'on mémorise la longueur de l'image

        'je pars de l'hypothèse que j'utilise une image carrée

        Dim Largeur As Integer = Pic.Image.Width

        Dim Hauteur As Integer = Pic.Image.Height

        'on mémorise l'image présente dans la picture box

        Dim IMG As System.Drawing.Image = Pic.Image

        Dim Angle As Double = AngleDegre / 180 * Math.PI

        'on calcule les nouvelles coord X et Y de l'image

        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)

        'on fait la rotation
        e.Graphics.Clear(Pic.BackColor)
        e.Graphics.RotateTransform(AngleDegre)

        'on dessine l'image rotée aux nouvelles coordonnées

        e.Graphics.DrawImage(IMG, PosX, PosY, Largeur, Hauteur)
    End Sub

    Private Sub Tmr_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tmr.Tick
        Pic.Refresh()
    End Sub

Salut,

Ce code à l'air bien :

http://www.vbfrance.com/codes/ROTATION-IMAGE-SON-CENTRE_33250.aspx