[VB] zoom image

Bonjour,

Je possède une image dans un formulaire (une carte) et deux boutons (zoom- et zoom+)

Je souhaite en cliquant sur un bouton zoomer sur ma carte mais je ne sais pas quel code utilisé en vb sur clic.

Quequ'un pourrait-il m'aider? Grand merci d'avance

Salut,

Fais un tour sur la page d'Arkham.
Peut être y trouveras tu une réponse.
http://arkham46.developpez.com

;)

Merci je fais potasser la dessus

Bjr,

Ou ici avec gdiplus : http://www.developpez.net/forums/sho...d.php?t=208634

Je ne connais malheureusement pas de solution simple pour zoomer une image dans Access...

Bonjour

Va éplucher le code cette contribution http://www.developpez.net/forums/sho...d.php?t=366355, cela peut te donner une astuce.

Starec

Si c'est juste pour une image on peut faire un dérivé à la "Leban" :

Un Formulaire-->FrmSommet
Dans la zone de détail-->une image intégrée gif* 4x4 mode affichage-->zoom
Dans l'en tête 2 boutons :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub CmdMoins_Click() Dim intWidth As Integer Dim intHeight As Integer   With Me![Image] intWidth = .Width intHeight = .Height   .Width = intWidth / 1.01 .Height = intHeight / 1.01 .SizeMode = acOLESizeZoom End With   DoEvents End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub CmdPlus_Click() Dim intWidth As Integer Dim intHeight As Integer   With Me![Image] intWidth = .Width intHeight = .Height   .Width = intWidth * 1.01 .Height = intHeight * 1.01 .SizeMode = acOLESizeZoom End With   DoEvents End Sub

---

1.01 peut devenir 1.05 au choix de chacun.

Cordialement.

Ps : Pas d'ostracisme-->Gif, Jpg, BMP, etc. sont OK

ClImage et gdiplus m'ont été très utiles. Les deux assemblés mon permis d'atteindre mon objectif.

Merci beaucoup pour votre aide.