Discussion :

[VicomteRaoul]

Bonjour !!

Par le code est-il possible de pivoter une image contenue dans un UserForm de 90° ?

Merci pour votre aide !

Raoul

[Heureux-oli]

Salut,

Je pense que oui, je ne l'ai jamais fait il faut utiliser GDI.

http://arkham46.developpez.com/
Regarde sur cette page, c'est notre maître API.

[VicomteRaoul]

Merci Heureux-oli !

Effectivement Arkham maîtrise le sujet !

Alors en suivant ses exemples j'ai fait comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
Private O As ClgDi32
 
Private Sub UserForm_Initialize()
 
Set O = New ClgDi32
 
' Chargement d'une image de fond
O.OpenFile ThisDocument.Path & "\Baleineau.jpg"
' Affiche l'image
O.RepaintControl Me.Image0
 
End Sub
 
Private Sub CommandButton1_Click()
 
O.Rotate (90)
 
' Affiche l'image
O.RepaintControl Me.Image0
 
End Sub

Et j'obtiens bien une rotation de l'image ainsi associée au contrôle Image0.

Le truc c'est que maintenant en voyant tout ce que GDI permet de faire j'ai envie d'aller beaucoup plus loin... Et faire pivoter d'autres images contenue dans le contrôle Image0

Je n'ai pas compris en fait dans l'exemple d'utilisation de la fonction Rotate ce qu'était lReturn...

Dois-je m'adresser directement à l'auteur ?

Merci !

Raoul

[Sepia]

Salut,

Il faut que tu ailles regarder l'API de GDI pour connaître les noms, les paramètres possibles et/ou attendus et les valeurs de retour et le mieux reste d'interroger M$ directement sur sa base dédiés aux développeurs

@+

[Arkham46]

Je n'ai pas compris en fait dans l'exemple d'utilisation de la fonction Rotate ce qu'était lReturn...

Bjr,

Sauf mention contraire, les fonctions renvoient un booléen pour notifier le bon déroulement de la fonction.
lReturn contient donc True si la rotation s'est correctement déroulée, ou False s'il y a eu une erreur.

je croyais l'avoir noté en intro mais non

[Guy Lepoint]

Après recherche la solution la moins complexe me semble être d'utiliser WIA (Windows Image Acquisition)

Elle a été implémentée et mise à jour par Daniel Pineault, CARDA Consultants Inc.

https://www.devhut.net/vba-wia-rotate-an-image/