Discussion :

[babylone_59]

Bonjour
Voila j'aimerai savoir comment effectuer une rotation a une image placé dans un picturebox lors d'un clic sur un boutton? Pas une simple rotation d'un angle de X° mais la faire tourner sur elle meme pendant 5-6 sec ?

J'aimerai aussi savoir si il est possible de différer le temps de réponse de quelques secondes lors d'un appui sur un bouton.
Je m'explique, par exemple lorsque j'appui sur mon boutton j'ai un numéro qui s'affiche dans un label. J'aimerai que ce nuléro s'affiche 10 secondes aprés?

J'ai trouvé ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Rotation(ByVal AngleDegre As Integer)
        Dim G As Graphics
        Dim Largeur As Integer = 300
        Dim Hauteur As Integer = 296
        Dim IMG = PictureBox1.Image
 
        G = PictureBox1.CreateGraphics()
        G.Clear(Me.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 Sub

Quand je compil il n'y a aucune erreur mais sa ne fonctionne pas.

Merci d'avance

[Pol63]

moi je remettrais l'image dans le picturebox après, sinon la prochaine fois qu'on lui demande de rafraichir son image, il va remettre la normale