Discussion :

[adelion7015]

Bonjour,

j'ai deux boutons ZOOM + :

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

Et ZOOM - :

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

Et une carte géographique dans un sous formulaire, si les boutons étaient dans le sous formulaire, le problème ne se serait posé, mais au ZOOM + le bouton se retrouverait au milieu de la carte, le résultat n'est très beau a voir.

Il y aurait moyen de commander le ZOOM de l'image qui se trouve dans le sous formulaire a partir du formulaire ?

Merci.
Cordialement.

[tee_grandbois]

Bonsoir,
essaie de remplacer Me![Image] par Me![nomdusousformulaire].form.[Image]

[adelion7015]

Bonsoir,

parfais ça marche.
Merci.

Cordialement.