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

Soyez le premier à donner votre avis sur cette source.

Vue 5 155 fois - Téléchargée 526 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

Messages postés
124
Date d'inscription
vendredi 25 avril 2003
Statut
Membre
Dernière intervention
31 mai 2008

te la pete pas 007 on a comprit que tété une m.... !
Messages postés
24
Date d'inscription
jeudi 20 juin 2002
Statut
Membre
Dernière intervention
1 janvier 2007

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 !!!
Messages postés
36
Date d'inscription
samedi 17 août 2002
Statut
Membre
Dernière intervention
16 septembre 2005

Sa vas pas te crever un oeil !

Pour la source , rien a dire s'est nickel
Messages postés
24
Date d'inscription
jeudi 20 juin 2002
Statut
Membre
Dernière intervention
1 janvier 2007

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.