Rotation d'une image a l'angle voulu !

Soyez le premier à donner votre avis sur cette source.

Vue 6 408 fois - Téléchargée 1 160 fois

Description

pour faire tourner votre image tres facilement avec le nivo de precision voulu !

Source / Exemple :


Private Sub Command1_Click()
Rotation Picture1, Picture2, 90, 10 'apeller du sub| picture1 = image a tourner, picture2= image de fin, 90 = la rotation en degrer, 10 la precision
End Sub

Sub Rotation(Picture1 As PictureBox, Picture2 As PictureBox, Angle As Long, Precision As Long)
Picture1.AutoRedraw = True
Picture2.AutoRedraw = True
r = Atn(1) * 4 / 180
If Picture1.Width > Picture1.Height Then
Picture2.Width = Picture1.Width + (Picture1.Width / 2)
Picture2.Height = Picture1.Width + (Picture1.Width / 2)
Else
Picture2.Width = Picture1.Height + (Picture1.Height / 2)
Picture2.Height = Picture1.Height + (Picture1.Height / 2)
End If
centrex1 = Picture1.ScaleWidth / 2
centrey1 = Picture1.ScaleHeight / 2
centrex2 = Picture2.ScaleWidth / 2
centrey2 = Picture2.ScaleHeight / 2
For y = 0 To Picture1.ScaleHeight Step Precision
For x = 0.0001 To Picture1.ScaleWidth Step Precision
p = Picture1.Point(x, y)
wx = x - centrex1
wy = y - centrey1
a = Atn(wy / wx) / r + Angle
If x > centrex1 Then a = a + 180
t = Sqr(wx * wx + wy * wy)
DoEvents
rx = centrex2 - Cos(a * r) * t
ry = centrey2 - Sin(a * r) * t
Picture2.PSet (rx, ry), p
Next
Next
End Sub

Conclusion :


et voila soyer simpa et laisser des commentairessssssssss ;-) :-) !

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

WolfSpirit
Messages postés
20
Date d'inscription
mardi 9 avril 2002
Statut
Membre
Dernière intervention
18 septembre 2008
-
C un pe long mais c pas mal :)
intello2001
Messages postés
102
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
9 septembre 2003
-
merci (long mais efficasse !!!)
Gadot
Messages postés
7
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
8 novembre 2002
-
Code interressant qui peut être optimisé en suprimant AutoRedraw sur Picture 1 et 2. Cela rend l'affichage beaucoup plus rapide (cela reste cependant encore bien lent ...)
Merci pour cette source.
Gadot
oeildedinde
Messages postés
29
Date d'inscription
dimanche 8 juin 2003
Statut
Membre
Dernière intervention
16 janvier 2013
-
Salut en virant le doevents ,encore plus rapide
titilleuse
Messages postés
1
Date d'inscription
mercredi 27 août 2003
Statut
Membre
Dernière intervention
27 janvier 2004
-
Merci pour cette source, c'est exactement ce que je cherchais !
et avec les optimisations, c'est nickel !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.