Faire pivoter un image avec picturebox (vt ou hz).

Soyez le premier à donner votre avis sur cette source.

Vue 5 425 fois - Téléchargée 557 fois

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

Ajouter un commentaire Commentaires
lebarn Messages postés 124 Date d'inscription vendredi 25 avril 2003 Statut Membre Dernière intervention 31 mai 2008
30 avril 2004 à 22:07
te la pete pas 007 on a comprit que tété une m.... !
cs_007 Messages postés 24 Date d'inscription jeudi 20 juin 2002 Statut Membre Dernière intervention 1 janvier 2007
10 août 2003 à 18:43
Non, mais ca fout un peu la honte quand t'es en colo en Norvege a un truc hyper serieux sur les fusees et que pendant la pause t'as ca qui apparait sur le video projecteur devant tout un tas d'intellos !!!
cs_RJLFRANCE Messages postés 36 Date d'inscription samedi 17 août 2002 Statut Membre Dernière intervention 16 septembre 2005
10 août 2003 à 14:06
Sa vas pas te crever un oeil !

Pour la source , rien a dire s'est nickel
cs_007 Messages postés 24 Date d'inscription jeudi 20 juin 2002 Statut Membre Dernière intervention 1 janvier 2007
8 août 2003 à 20:53
T'aurais pu mettre une autre image !!!
J'étais en train de regarder ta source sur le vidéoprojecteur devant tout un tas de gars !!!

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.