Faire pivoter un image avec picturebox (vt ou hz).
Description
Pour faire pivoter un image verticalement, horizontalement ou les deux en même temps.
Source / Exemple :
' Picture1(0,1,2,3).AutoRedraw = True
' Picture1(0,1,2,3).AutoSize = True
' Pour faire pivoter un image
' verticalement, horizontalement
' ou les deux en même temps.
Dim W1 As Integer
Dim H1 As Integer
Dim W2 As Integer
Dim H2 As Integer
Dim X1 As Integer
Dim Y1 As Integer
Dim X2 As Integer
Dim Y2 As Integer
W1 = Picture1(0).Width
H1 = Picture1(0).Height
W2 = W1
H2 = H1
' Horizontalement
' W1 est négatif.
' X1 Faut déplace l'image vers la droite pour la voir.
X1 = W1 - 80
Y1 = 0
Picture1(1).PaintPicture Picture1(0).Picture, _
X1, Y1, -W1, H1, _
0, 0, W2, H2
' Verticalement
' H1 est négatif.
' Y1 Faut déplacer l'image vers le bas pour la voir.
X1 = 0
Y1 = H1 - 80
Picture1(2).PaintPicture Picture1(0).Picture, _
X1, Y1, W1, -H1, _
0, 0, W2, H2
' Les deux en même temps
' X1 et Y1 est négatif.
' X1 et Y1 : Faut déplacer l'image vers la droite et vers le bas.
X1 = W1 - 80
Y1 = H1 - 80
Picture1(3).PaintPicture Picture1(0).Picture, _
X1, Y1, -W1, -H1, _
0, 0, W2, H2
Codes Sources
A voir également
- Faire pivoter un image avec picturebox (vt ou hz).
- Convolution image - Conseils pratiques -Java
- Fpdf image ✓ - Forum PHP
- Vectoriser une image photoshop ✓ - Forum Graphisme/design
- Inverser une image photoshop - Forum Graphisme/design
- Form image ✓ - Forum Visual Basic
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.