Discussion :

[syldudu]

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

[Lou Pitchoun]

Salut,

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

[syldudu]

Merci je fais potasser la dessus

[Arkham46]

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...

[Invité]

Bonjour

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

Starec

[francishop]

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 :

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

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 :

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
 
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

[syldudu]

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

Merci beaucoup pour votre aide.