Utiliser mousemove avec une ellipse (cercle)

Version imprimable

Bonjour,
mon problème est le suivant: la fonction mousemove ne marche pas avec les ellipse que j'ai créer et ki me permettent d'ouvrir mes userforms.
en fait je veu utiliser la fonction mousemove afin d'afficher une image illustrative lorsque la souris passe sur une ellipse. Voila le code que j'ai tapé:

Option Explicit
Dim indice As Integer

Code:

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Private Sub Ellipseparametre_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Not indice = 1 Then
    [groupeparametre].Visible = True
    Call reinitialiser(indice)
    indice = 1
  End If
End Sub
 
Private Sub Ellipseinventaire_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Not indice = 2 Then
    [groupeinventaire].Visible = True
    Call reinitialiser(indice)
    indice = 2
  End If
End Sub
 
Private Sub Ellipseboncommande_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Not indice = 3 Then
    [groupeboncommande].Visible = True
    Call reinitialiser(indice)
    indice = 3
  End If
End Sub
 
Private Sub Ellipsesecurite_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Not indice = 4 Then
    [groupesecurite].Visible = True
    Call reinitialiser(indice)
    indice = 4
  End If
End Sub
 
Private Sub Ellipsecontrole_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Not indice = 5 Then
    [groupecontrole].Visible = True
    Call reinitialiser(indice)
    indice = 5
  End If
End Sub
 
Private Sub Ellipsemateriau_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Not indice = 6 Then
    [groupemateriau].Visible = True
    Call reinitialiser(indice)
    indice = 6
  End If
End Sub
 
Function convertIntBool(ByVal X As Integer) As Boolean
  If X = 0 Then
  convertIntBool = False
  End If
  If X = 1 Then
  convertIntBool = True
  End If
End Function
 
Sub reinitialiser(ByVal e As Integer)
  If e = 1 Then [groupeparametre].Visible = False
  If e = 2 Then [groupeinventaire].Visible = False
  If e = 3 Then [groupeboncommande].Visible = False
  If e = 4 Then [groupesecurite].Visible = False
  If e = 5 Then [groupecontrole].Visible = False
  If e = 6 Then [groupemateriau].Visible = False
End Sub

merci d'avance!!

27/05/2008, 21h23
ouskel'n'or

Je vais déjà te passer une adresse http://www.developpez.net/forums/sho...d.php?t=553797
Pour ta question : Où mets-tu tes ellipses ? Dans un userform ou dans un feuille de calculs ?
Dans une feuille de calcul, les objets n'ont pas d'événement mousemove.
Doivent-elles être modifiables ?
28/05/2008, 00h04
vietzims

merci beaucoup
en fait les objets sont sur une feuille de calcul.
c'est certainement pour ça que ca ne marche pas.
mais alors il faut nécessairement créer un formulaire??
28/05/2008, 00h20
ouskel'n'or

Je viens juste d'apprendre par hasard que je t'avais dit une bêtise :oops:
Regarde ici et ouvre le fichier joint. Cet animal de fring me tourne en ridicule :evil: C'est bien de lui ! ;)
Peut-être la solution proposée te conviendra-t-elle...
Bonne chance
28/05/2008, 00h52
fring

Non non mon cher Ousk, tu as tout à fait raison, les formes automatiques n'acceptent pas l'évènement MouseMove, mon exemple utilise un contrôle ce qui n'est pas vraiment ressemblant à une ellipse ;)

EDIT : ci-joint un petit bricolage qui pourrait peut-être convenir

Ellipse.zip
28/05/2008, 11h03
ouskel'n'or

1 pièce(s) jointe(s)

Bon. Pour me racheter, j'ai trituré le code de fring afin de pouvoir redimensionner l'ellipse.
Ce que j'ai fait est très empirique et demande que le clic de la souris reste appuyé pour redimensionner l'image... si c'est bien ce que tu veux faire... parce que dans le fond du fond, "on ne sait toujours pas ce que tu veux fabriquer avec"

Dans le label, sont affichés les largeur et hauteur de l'ellipse. Tu sauras calculer ses rayons ? :mouarf:

Comment ça marche ?
Tu déplaces la souris "MouseDown" dans l'ellipse
Vers la droite ça l'agrandit en X
Vers la gauche ça la réduit en X
Vers le bas, ça l'agandit en Y
Vers le haut, ça la réduit...

Les paramètres de déplacements sont là aussi empiriques, à toi d'adapter.
Pièce jointe 30923
Bonne journée

je vous remercie, j'ai réussi à le faire. En tout cas merci. voila le code que j'ai utiliser. cependant j'ai laissé tomber les ellipses, lol.

Code:

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Option Explicit
 Dim indice As Integer
 
Private Sub parbtn_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Not indice = 1 Then
    [groupeparametre].Visible = True
    Call effacerEcran(indice)
    indice = 1
  End If
End Sub
 
Private Sub etatbtn_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Not indice = 2 Then
    [groupeinventaire].Visible = True
    Call effacerEcran(indice)
    indice = 2
  End If
End Sub
 
Private Sub cmdbtn_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Not indice = 3 Then
    [groupeboncommande].Visible = True
    Call effacerEcran(indice)
    indice = 3
  End If
End Sub
 
Private Sub Secubtn_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Not indice = 4 Then
    [groupesecurite].Visible = True
    Call effacerEcran(indice)
    indice = 4
  End If
End Sub
 
Private Sub ctrlbtn_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Not indice = 5 Then
    [groupecontrole].Visible = True
    Call effacerEcran(indice)
    indice = 5
  End If
End Sub
 
Private Sub materiaubtn_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Not indice = 6 Then
    [groupemateriau].Visible = True
    Call effacerEcran(indice)
    indice = 6
  End If
End Sub
 
Function convertIntBool(ByVal X As Integer) As Boolean
  If X = 0 Then
  convertIntBool = False
  End If
  If X = 1 Then
  convertIntBool = True
  End If
End Function
 
Sub effacerEcran(ByVal e As Integer)
  If e = 1 Then [groupeparametre].Visible = False
  If e = 2 Then [groupeinventaire].Visible = False
  If e = 3 Then [groupeboncommande].Visible = False
  If e = 4 Then [groupesecurite].Visible = False
  If e = 5 Then [groupecontrole].Visible = False
  If e = 6 Then [groupemateriau].Visible = False
End Sub

31/05/2008, 21h42
AlainTech

Citation:

Envoyé par vietzims

j'ai réussi à le faire.

Si ton problème est résolu, bouton :resolu:?

Merci