OVH Cloud OVH Cloud

Créer l'évènement

3 réponses
Avatar
Patrice Henrio
J'ai créé une classe pentamino et je l'ai affublé d'un certain nombre de
propriétés et méthodes. Jusque là tout baigne.
Je voudrai maintenant rendre chacun des objets pentamino que j'ai créé (et
dessiné sur une forme avec CreatePolygonRgn) sensible au clic de souris.
Plus prosaïquement je n'ai pas compris comment créer un évènement puis le
déclencher.
J'ai bien vu RaiseEvent, mais ce que je voudrai c'est pouvoir déplacer mon
pentamino comme un label.
Je ne suis pas forcément très clair mais j'ai l'impression de buter sur
quelque chose de simple.
Merci de bien vouloir éclairer ma lanterne.

3 réponses

Avatar
François Picalausa
Hello,

Je ne suis pas sûr de comprendre ta question mais à priori, ce que tu veux
c'est ceci:

Event Click(Argument As Type)

Sub toto()
RaiseEvent Click(Valeur)
End Sub

Mais pour la déplacement je pense que ce dont tu aurais besoin c'est plutôt
que lors du déplacement sur la form, la form apelle un sub de ta classe. Ou
que la classe possède une propriété permettant de spécifier l'hwnd du
container et le sous classer...
Ou encore, pouvoir passer un certain type d'objet en tant que container et
utiliser directement l'objet...

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
Le nombre de pages d'un cours de math avant un examen tends vers
l'infini.

"Patrice Henrio" a écrit dans le
message de news:
J'ai créé une classe pentamino et je l'ai affublé d'un certain nombre
de propriétés et méthodes. Jusque là tout baigne.
Je voudrai maintenant rendre chacun des objets pentamino que j'ai
créé (et dessiné sur une forme avec CreatePolygonRgn) sensible au
clic de souris. Plus prosaïquement je n'ai pas compris comment créer
un évènement puis le déclencher.
J'ai bien vu RaiseEvent, mais ce que je voudrai c'est pouvoir
déplacer mon pentamino comme un label.
Je ne suis pas forcément très clair mais j'ai l'impression de buter
sur quelque chose de simple.
Merci de bien vouloir éclairer ma lanterne.


Avatar
ng
Salut,

Créer un UserControl ne serait-il pas préférable ?

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



Patrice Henrio a écrit :

J'ai créé une classe pentamino et je l'ai affublé d'un certain nombre
de propriétés et méthodes. Jusque là tout baigne.
Je voudrai maintenant rendre chacun des objets pentamino que j'ai
créé (et dessiné sur une forme avec CreatePolygonRgn) sensible au
clic de souris. Plus prosaïquement je n'ai pas compris comment créer
un évènement puis le déclencher.
J'ai bien vu RaiseEvent, mais ce que je voudrai c'est pouvoir
déplacer mon pentamino comme un label.
Je ne suis pas forcément très clair mais j'ai l'impression de buter
sur quelque chose de simple.
Merci de bien vouloir éclairer ma lanterne.


Avatar
Patrice Henrio
Sans doute mais je ne vois pas du tout comment faire.

"ng" a écrit dans le message de
news:O$
Salut,

Créer un UserControl ne serait-il pas préférable ?

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



Patrice Henrio a écrit :

> J'ai créé une classe pentamino et je l'ai affublé d'un certain nombre
> de propriétés et méthodes. Jusque là tout baigne.
> Je voudrai maintenant rendre chacun des objets pentamino que j'ai
> créé (et dessiné sur une forme avec CreatePolygonRgn) sensible au
> clic de souris. Plus prosaïquement je n'ai pas compris comment créer
> un évènement puis le déclencher.
> J'ai bien vu RaiseEvent, mais ce que je voudrai c'est pouvoir
> déplacer mon pentamino comme un label.
> Je ne suis pas forcément très clair mais j'ai l'impression de buter
> sur quelque chose de simple.
> Merci de bien vouloir éclairer ma lanterne.