PB : creer un event shape_click

Version imprimable

17/10/2007, 11h18
jonathanpro

PB : creer un event shape_click

bonjour,

je me decide à demander de l'aide pour mon petit projet de planning.
j'aurais besoin de creer un evenement shape_click..

cad mon fichier excel contient des shape (principalement des rectangles)
et je voudrais lorsque qu'on selectionne (simple click) une shape, une macro se lance ..

pouvez vous m'aider ??

je vous remercie d'avance

un pauvre .. jojo qui s'enerve devant son pc
17/10/2007, 14h14
LeForestier

Bonjour,
Tu est dans le forum VB6, tu aurrais interèt à poster dans VBA Excel./
Toutefois, les shapes n'ont pas d'événement clic sauf (en VB6) s'il sont opaques.
A+
17/10/2007, 14h31
ucfoutu

Citation:

Envoyé par LeForestier

Toutefois, les shapes n'ont pas d'événement clic sauf (en VB6) s'il sont opaques.
A+

Bonjour,

J'ai sûrement de sérieuses lacunes !

J'aimerais bien profiter de la chose ...

Quel évènement (click ou autre) VB un contrôle Shape VB (un vrai) est-il donc capable de subir, opaque ou non ?
Je suis très intéressé.
17/10/2007, 14h55
LeForestier

Euuuh oui, je n'aurai pas du spécifié opaque, très façile en VB6 de détecter un clic sur un shape.
17/10/2007, 15h21
ucfoutu

oui, surement,

mais pas avec un événement click du contrôle mais :
- en repérant, sur son container : la position par rapport à l'angle supérieur gauche du container
- en comparant ces coordonnées avec celle du contrôle
- en repérant l'évènement de la souris

Le tout : avec des fonctions de l'API de Windows et (faut que je regarde, alors) peut-être un timer en plus .

Nous n'en sommes plus à un évènement click du contrôle Shape ...
Dommage (je croyais que j'allais apprendre une chose qui m'avait échappé).
17/10/2007, 17h12
hpfx

En effet,
il y a aussi une autre solution (tout aussi lourde mais sans Timer ni API)....
accrochez-vous : se faire son propre controle myshape (CTL) qui lui interceptera les events et sera capable de les renvoyer proprement.
et pour le dessin du rectangle, 4 "line" dans le controle...

J'ai pas dis que ca serait genial hein ;)

Bonjour, hpfx,

mais non...:lol: (je voulais juste voir les réactions !)

Bon :

Un contrôle Shape est on ne peut plus inerte ! C'est tout simplement comme s'il était absent ...
Lorsque l'on clique sur lui, c'est sur son conteneur, que l'on clique.

Dans ces conditions : nul besoin d'un timer, mais d'une petite fonction de rien du tout !

La preuve ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Option Explicit Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 1 And shpclic(Shape1, x, y) Then MsgBox "cliqué" End If End Sub Private Function shpclic(quoi As Shape, XX As Single, YY As Single) As Boolean shpclic = False If XX < quoi.Left Then Exit Function If YY < quoi.Top Then Exit Function If XX > quoi.Left + quoi.Width Then Exit Function If YY > quoi.Top + quoi.Height Then Exit Function shpclic = True End Function
Je peux te faire également le double-clic, déplacer avec un glisser/déposer, etc...:lol:

Sur un Form, un Schape, un Label

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Form_Load()
Shape1.BackStyle = 1: Shape1.BorderWidth = 7
Shape1.Move 330, 240, 2355, 1635
Label1.BackStyle = 0: Label1.Caption = ""
Label1.Move 330, 240, 2355, 1635
Shape1.ZOrder'Shape1 même au premier plan, le label est toujours "vu"
Me.Height = 3105: Me.Width = 3675
Me.Caption = "Clicquer sur le Shape"
End Sub
 
Private Sub Label1_Click()
If Me.Caption = "Coucou" Then
 Me.Caption = "A que recoucou"
 Else
 Me.Caption = "Coucou"
End If
End Sub

Moi j'aime bien les Labels pour detecter les cliques :lol:

17/10/2007, 18h00
ucfoutu

Bonjour Progelect,

Bonne idée également
J'y avais également pensé mais l'avais écarté en gardant à l'esprit que très vraisemblablement le demandeur était en train de développer un jeu et que, s'il tel était bien le cas, il lui faudrait penser à déplacer le label en même temps que le shape .

Je me suis également dit qu'il avait probablement plusieurs shapes dans un jeu et qu'il était alors plus prudent de faire une petite fonction paramétrée.

Ceci étant dit : je souhaite qu'il travaille un peu lui aussi. J'ai donc volontairement limité mon exemple. A lui de nous montrer comment il va savoir utiliser le mouse-down intelligemment pour ne pas risquer d'avoir un "clic" résultant d'un mouse_down hors de la Shape et d'un Mouse_up... sur la shape (c'est facile, mais on va le laisser réfléchir... hein ...);)
18/10/2007, 00h44
zazaraignée

Tout à fait d'accord avec toi, ProgElecT.

Surtout qu'un Label possède déjà toute une panoplie d'événements dont le bon vieux Click. Il a aussi une bordure, une transparence ou une opacité, un style 3d ou 2d... Sympathique, non? Et je crois que les Shapes de notre ami sont rectangulaires... alors... pourquoi se priver des Labels ?

Mais si c'est dans Excel, comme l'a fait remarquer LeForestier... Alors là, ces Shapes là répondent aux événements tout naturellement. Et on peut leur lier une macro directement dans l'environnement Excel. Même pas besoin de coder! Sympathique, non? Alors pourquoi se fatiguer avec tout ça?

À moins que jonathanpro désire que son bouton exécute telle ou telle macro ou bout de code externe selon le cas... Bien alors, il faut créer une macro dans un module séparé. Dans la section déclaration, on inclus le fichier contenant le code (compilé de préférence, une DLL par exemple), ou encore on importe un module .bas dans le projet Excel, et on appelle depuis notre macro telle macro, ou telle procédure, ou telle fonction selon le résultat des tests de la macro. Puis c'est cette macro qu'on lie au Shape.

Mais là, je présume, j'extrapole, j'affabule... Il faudrait que notre ami précise sa pensée.
18/10/2007, 09h37
hpfx

Citation:

Envoyé par ucfoutu

Bonjour, hpfx,
mais non...:lol: (je voulais juste voir les réactions !)

bien vu, j'ai marché dedans ;)
pas mal ton code interressant si tu as un ou deux shape a gerer sinon il faut faire une fonction plus generique si on en a un grand nombre (un truc parametrable comme tu dis).

ProgElecT : pas mal le coup du label en tant que shape.

ceci dis j'ai honte mais j'ai déjà fais un faux controle pour simuler un comportement.. un peu comme j'ai dis dasn mon poste :oops: mais je ne regrete pas, c'est formateur.
18/10/2007, 11h36
ucfoutu

Mais...
1) tu n'as pas à "avoir honte" (c'est un sentiment réservé à ceux qui ne font rien et ne tentent rien, ce qui n'est apparemment pas ton cas)
2) tu n'as certainement pas perdu ton temps (rien n'est inutile... et surtout pas l'entraînement...)

Amitiés