Discussion :

[Claude_Azoulai]

Bonjour à tous

J'aimerais pouvoir retourner horizontalement ou verticalement une photo dans un contrôle Image (ou un autre).
Malheureusement, la directive Move n'accepte pas de paramètres négatifs pour Width ou Height.
Ce n'est pas super important pour moi, mais ça serait plus spectaculairei.

Quelqu'un connait-il une solution ?

Merci de votre réponse.

Claude Azoulai

[Delbeke]

Il faut utiliser PaintPicture
Inspire toi de l'exemple ci-dessous

Code :

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

1
2
3
4
5
6
7
 
Private Sub Command1_Click()
  Dim Pct As StdPicture
  Set Pct = LoadPicture("c:\test1.jpg")
  Picture1.PaintPicture Pct, 0, Picture1.Height, Picture1.Width, -Picture1.Height
  Picture1.Refresh
End Sub

[Claude_Azoulai]

Bonjour Delbeke

Merci de ta réponse rapide.
J'ai essayé et ça fonctionne.

Claude Azoulai