ROTATION D'UNE IMAGE EN SON CENTRE
scortex84
Messages postés
379
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
20 avril 2011
-
18 août 2005 à 18:50
guilleto Messages postés 256 Date d'inscription jeudi 23 octobre 2003 Statut Membre Dernière intervention 20 mars 2013 - 6 déc. 2010 à 09:22
guilleto Messages postés 256 Date d'inscription jeudi 23 octobre 2003 Statut Membre Dernière intervention 20 mars 2013 - 6 déc. 2010 à 09:22
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/33250-rotation-d-une-image-en-son-centre
https://codes-sources.commentcamarche.net/source/33250-rotation-d-une-image-en-son-centre
6 déc. 2010 à 09:22
Je voudrais savoir si sur un PictureBox utilisant déjà le système de G en tant que Graphics il est possible d'ajouter du texte incliné à N ° ?
Si oui, Comment fait-on cela ?
Par avance merci
Olivier
28 sept. 2010 à 07:35
Car lors de la rotation elle redeviens en mode "Original"...
En tout cas merci pour ce code qui m'est d'une très grande utilitée...
16 juin 2010 à 12:14
16 juin 2010 à 12:13
7 avril 2010 à 21:39
26 mars 2009 à 11:29
Alors si ça marche, c'est l'essentiel !!!!!!!!!!
25 mars 2009 à 10:49
Ce morceau de code m'est très utile, mais j'ai beau essayer j'ai du mal a comprendre comment vous êtes arrivé a cette formule mathématique (notamment le sqrt(2) qui semble sortir de nul part)
Pourriez vous me l'expliquer le plus en détail possible? car je n'aime pas utiliser quelques chose que je ne comprend pas ^^
Cordialement,
KiTe
1 déc. 2008 à 17:56
1 déc. 2008 à 17:56
30 nov. 2008 à 13:31
coment tu la fait?
29 nov. 2008 à 01:04
13 nov. 2008 à 12:53
Sub Rotation(ByVal AngleDegre As Integer, ByVal picBox As PictureBox)
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 Cote As Integer = picBox.Image.Width
'on mémorise l'image présente dans la picture box
Dim IMG As Image = picBox.Image
'définition de la picturebox comme espace de dessin
G = picBox.CreateGraphics()
'on efface
G.Clear(Me.BackColor)
'on transforme l'angle en radians
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) * (Cote) * Math.Sin(Angle / 2) * Math.Cos(Math.PI / 4 + Angle / 2)
Dim PosY As Single = -Math.Sqrt(2) * (Cote) * 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, Cote, Cote)
'on libère !
G.Dispose()
End Sub
13 nov. 2008 à 12:49
juste une remarque :
Function Rotation(ByVal AngleDegre As Integer)
pourquoi une function puisque aucune valeur n'est renvoyée , il fallait donc utiliser un Sub !
8/10 pour la fonctionalité ( sais même pas si c'est dans le dico mais tant pis )
4 oct. 2007 à 15:01
Cela sert à libérer la ressource employée par la variable 'Graphics'. Et donc libérer de la mémoire si je ne me trompe pas.
10 juil. 2007 à 12:26
# 'on libère !
# G.Dispose()
cela sert à quoi de libérer?
6 juil. 2007 à 18:43
cette source est trés intéressante et correspondant a ce que je recherche, j'ai juste un petit soucis :
lorsque j'utilise ta source avec mon propre bmp, celui ci se retrouve déformer lors de la rotation !
As tu une idée de ce qui provoque cela ?
en tous cas, bravo.
12 sept. 2006 à 19:04
Mais mon problème est réglé, j'ai trouvé la solution. Merci quand même.
www.et1-vb.net
Pleins de logiciels et codes-sources vb.net !
12 sept. 2006 à 19:01
C'est peut être bien du MaPictureBox.Image.Save(...)
..., ça peut être pas mal de truc sympa apparement, mais une chaîne du nom du fichier suffit.
Tout est dans la msdn ! En français en plus.
http://msdn.microsoft.com/library/fre/default.asp
1 sept. 2006 à 13:42
Est-ce possible de pouvoir enregistrer l'image (ayant subit la rotation) ?
Merci.
12 août 2006 à 18:56
Je tiens à te faire remarquer ricounet qu'il y a une faut dans ton code. Elle est toute petite et m'a fait perdre beaucoup de temps. Elle se trouve à la ligne 24. Il faut remplacer la valeur "Largeur" par "Hauteur" sinon l'image fait une rotation mais elle est rognée. D'ou le problème de Xav88.
Merci toute de même pour ce code très utile.
15 juin 2006 à 17:31
Quelqu'un connaitrait-il un code similaire à celui-ci permettant la rotation d'image carrée sous vb6 ?
Merci d'avance!!!
LN...hyper débutante en fait...
22 mars 2006 à 12:31
Ton code est bien pratique...Mais quand je fait tourner une image carrée elle se retrouve rognée sur les angles. Quelqu'un a-t-il une solution à ce problème ?
Merci davance
Xav
8 févr. 2006 à 10:14
J cherche ou trouver le fichier de l image met j n ai pas trouve
Biensur je peut metre mon image a tourner, la oui je retrouve la trace dans la property du picturebox??
qui m aide.
Guy van der Velden
13 oct. 2005 à 15:59
11 oct. 2005 à 14:34
25 août 2005 à 19:18
25 août 2005 à 16:10
# G.Clear(Me.BackColor)
pourquoi pas mettre
G.Clear(PictureBox1.BackColor) ?
car si on met ce petit code sympatoche dans un module le Me n'est pas autorisé ..
18 août 2005 à 18:50
Vraiment bien ! Bravo !
Seb.