Clic dans une zone deffini sur une image

**patoch76** · 28/04/2006, 16h19

Bonjour

Peut t'on definir une zone sur une image pour faire un clic dessus et acceder a une autre image ?

Merci pour la reponse

**Theocourant** · 28/04/2006, 16h29

Salut,

C'est possible mais en ajoutant un contrôle image judicieusement placé qui permettra de cliquer dessus pour ouvrir la seconde image.

Un petit conseil, en plus : modifie l'icône au niveau du nouveau contrôle et comme cela tu pourras voir clairement la zone de clic.

+

Théo

**patoch76** · 28/04/2006, 16h39

Houaaaa j'ai plus de 100 zone a faire ca represente du boulot

**Theocourant** · 28/04/2006, 16h47

Envoyé par patoch76

Houaaaa j'ai plus de 100 zone a faire ca represente du boulot

Bon courage

Théo

**jmfmarques** · 28/04/2006, 18h19

Une picturebox est un contenant et les coordonnées des points qui y sont situés sont relatives non à la Form mais à la pictureBox, ce qui facilité grandement la tâche, ce qui n'est pas le cas avec un contrôle image. Tout le reste n'est que calcul arithmétique.

**ouskel'n'or** · 30/04/2006, 10h34

Avec une image, tu peux utiliser le MouseDown de l'image

Envoyé par L'aide

X Coordonnée X du pointeur de la souris selon les coordonnées client de l'objet graphique.
Y Coordonnée Y du pointeur de la souris selon les coordonnées client de l'objet graphique.

Pour l'exemple, j'ai placé une image de 200 * 200 dans une form
Pour des facilités de calculs, j'ai pris des carrés de 20 * 20
Dans MouseDown, j'ai mis ce code

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Private Sub Image1_MouseDown(ByVal Button As Integer, _
                             ByVal Shift As Integer, _
                             ByVal X As Single, _
                             ByVal Y As Single)
Select Case X
    Case 0 To 20
        i = 1
    Case 20 To 40
        i = 2
    Case 40 To 60
        i = 3
    Case 60 To 80
        i = 4
    Case 80 To 100
        i = 5
    Case 100 To 120
        i = 6
    Case 120 To 140
        i = 7
    Case 140 To 160
        i = 8
    Case 160 To 180
        i = 9
    Case 180 To 200
        i = 10
End Select
 
Select Case Y
    Case 0 To 20
        j = 1
    Case 20 To 40
        j = 2
    Case 40 To 60
        j = 3
    Case 60 To 80
        j = 4
    Case 80 To 100
        j = 5
    Case 100 To 120
        j = 6
    Case 120 To 140
        j = 7
    Case 140 To 160
        j = 8
    Case 160 To 180
        j = 9
    Case 180 To 200
        j = 10
End Select
MsgBox "Je suis dans le carré " & i & " x " & j
End Sub