déclarer variable withevents

Bonjour,

J'essaye décrire un petit programme tant bien que mal, je me débrouille mais cette fois ci j'aurai vraiment besoin d'une aide extérieure.

J'ai écrit mon premier message hier, et le problème a été résolu en 15min grâce à un membre.

Mon nouveau problème est celui-ci:

Mon programme comporte une form dans laquelle se trouve un chart.

J'ai créé un évènement chart_mousedown pour insérer une shape sur le chart lorsque je clique sur la souris. Les shape insérées s'appellent shape1 et shape2
Jusque là tout va bien.

Maintenant, imaginons que l'emplacement des shape ne me convienne pas et que je souhaite les déplacer. J'aimerais pouvoir sélectionner la shape1 ou la shape2 puis la déplacer où je veux sur mon chart.

Je pense devoir utiliser des évènement

shape1_mousedown....

puis

shape1_mousemove...

et enfin

shape1_mouseup....

Les shape1 et shape2 étant créées une fois le programme lancé, je ne parvient pas à écrire le code

Code:

---

1 2	Private Sub shape1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles shape1.MouseDown

---

sans qu'il me génère une erreur après le Handles :

Citation:

---

Erreur 1 La clause Handles requiert une variable WithEvents définie dans le type conteneur ou l'un de ses types de base.

---

J'espère avoir été clair.

Merci à vous!

En fait, j'ai inséré un bout de code me permettant de sélectionner la shape que je veux bouger.

Code:

---

1 2 3 4 5 6

Public Sub SelectShape(ByVal shape As Microsoft.VisualBasic.PowerPacks.Shape) ' Select the control, if it can be selected. If shape.CanSelect Then shape.Select()   End If

---

Mais comment récupérer le shape.select() dans un évènement type MouseDown etc...

Merci.

handles signifie que la méthode précitée sera déclenchée sur les évènements suivant handles (on peut en mettre plusieurs sur la même sub)
on appelle ca s'abonner à un évènement

on a le droit d'écrire handles seulement sur les variables déclarée avec withevents

pour ca il faut remplacer ta ligne qui doit ressembler à ca :

Code:

---

private shape1 as new shape

---

par

Code:

---

private withevents shape1 as new shape

---

quand on veut s'abonner à un évènement pendant l'exécution (sur une variable instancier dans une sub par exemple) il existe addhandler

Code:

---

addhandler instance.event, addressof lasub

---

pour retirer un abonnement ajouté avec addhandler il faut remplacer addhandler par removehandler



pour le déplacement c'est bien le principe, sur mousedown noter quelque part qu'on est en train de déplacer, sur mousemove si on est en train de déplacer on modifie x ou y selon le delta
et sur mouseup on not qu'on est plus en déplacement

EDIT : Devancé par Pol63, toujours aussi rapide :ccool:

Bonjour,

dans votre class, vous devez avoir une variable nommée shape1 de cette manière :

Code:

---

Private shape1 as shape

---

il vous faut, comme marqué dans votre message, rajouter WithEvents devant le nom de la variable :

Code:

---

Private WithEvents shape1 as shape

---

Un petit lien pour vous aider à comprendre : FAQ

Je vous remercie beaucoup pour ces précieux conseils.:ccool:
Je vais mettre ça en application et vous tiens au courant des résultats.

Alors j'ai essayé avec un ptit bout de code et ça marche:ccool:

Mais ceci a soulevé un autre problème : l'affection de noms à mes shape.

J'ai l'impression de ne plus y rien comprendre.

avec l'évènement MouseDown de mon chart1, voici le code pour ajouter une shape à chaque clique de souris :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Public Sub Chart1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Chart1.MouseDown   nclick = nclick + 1 'numéro du click de souris   '-----------------ajout du point sur le graph--------------------     Dim ax As Single = e.X Dim ay As Single = e.Y   Dim canvas As New ShapeContainer   canvas.Parent = Me.Chart1   theShape.Parent = canvas theShape.Name = "theShape" & nclick theShape.Size = New System.Drawing.Size(10, 10) theShape.BackStyle = BackStyle.Opaque theShape.BackColor = Color.Blue theShape.BorderColor = Color.Blue theShape.Location = New System.Drawing.Point(ax - 5, ay - 5)

---

problème, avec withevents je ne peux déclarer que theShape, comment dois-je faire pour créer un évènement mousedown sur le theshape2 ou theShape3...

Merci

Code:

---

1 2 3 4 5 6 7 8

private withevents theshape1 as shape private withevents theshape2 as shape   private sub theshape1_mousedown(...) handles theshape1.mousedown end sub   private sub theshape2_mousedown(...) handles theshape2.mousedown end sub

---

tu peux regrouper tous les mousedown sur un seule sub via

Code:

---

private sub theshape1_mousedown(...) handles theshape1.mousedown, thespahe2.mousedown

---

il faudra alors utiliser sender qui contiendra l'instance de theshape ayant levé l'évènement

Merci pour votre réponse, mais j'avais essayé cette méthode sans entière satisfaction.

En effet lorsque j'écris le code suivant

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

Private WithEvents theShape1, theShape2, theShape3, theShape4 As New OvalShape .'blabla . Public Sub Chart1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Chart1.MouseDown .'blabla . . dim theShape as new OvalShape   theShape.name=("theShape" & i) 'très important car boucle sur le i . .'blabla . end sub   Private Sub theShape1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles theShape1.MouseDown   ' AddHandler theShape.MouseDown, AddressOf theShape_MouseDown   theShape1.BackStyle = BackStyle.Opaque theShape1.BackColor = Color.Blue theShape1.BorderColor = Color.Blue End Sub

---

ma shape est bien créée et insérée, mais l'évènement MouseDown ne fonctionne pas dessus.

En revanche si je force en remplaçant

Code:

---

1 2 3

Dim theShape as New OvalShape theShape.name=("theShape" & i ) 'i =1

---

par

Code:

---

1 2	dim theShape1 as New OvalShape

---

là l'évènement MouseDown fonctionne , mais lorsque qu'une shape est créée, elle efface et remplace l'ancienne sur le Chart.
Donc?

J'espère que vous comprenez mon problème.
Je pense que la solution est très simple mais je n'ai pas encore assez de recul sur la programmation VB pour résoudre ce problème seul.

Merci à vous.

Je vais faire plus simple :


voilà ce que je désire faire :

Lorsque je clique sur la souris, une shape s'insère, imaginons que je clique 50 fois :
-quel nom de variable donner à chaque shape?
-si possible peut-on attribuer un nom de variable dynamique (j'ai pas besoin d'en créer d'avance comme ça)
- comment affecter un évènement à chaque variable créée dynamiquement

En parcourant certains forum, j'ai vu que la commande Load () permettantd'ajouter des objets dynamiquement.

je pensais à écrire un truc du genre

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Load(theShape(nclick))   With theShape(nclick) .visible = True .Parent = canvas .Name = "theShape" & nclick .Size = New System.Drawing.Size(10, 10) .BackStyle = BackStyle.Opaque .BackColor = Color.Blue .BorderColor = Color.Blue .Location = New System.Drawing.Point(ax - 5, ay - 5) End With

---

avec en entête

Code:

---

1 2	Private WithEvents theShape As New OvalShape

---

mais il ne veut pas prendre le load. Qu'ai-je oublié de déclarer?


Merci.

si à chaque clic tu dois créer un shape, il ne faut pas déclarer des variable shape
car ca fait du code à écrire pour rien et ca limite le nombre de shape qu'on peut utiliser
il faut les créer à l'exécution, et les stocker dans une collection
le nom de la variable ne sert alors pas à grand chose

Citation:

---

Envoyé par Pol63

si à chaque clic tu dois créer un shape, il ne faut pas déclarer des variable shape
car ca fait du code à écrire pour rien et ca limite le nombre de shape qu'on peut utiliser
il faut les créer à l'exécution, et les stocker dans une collection
le nom de la variable ne sert alors pas à grand chose

---

Merci du conseil.

Même si je ne sais pas du tout comment faire, je vais me renseigner sur les "collections"

Citation:

---

Envoyé par atiroocky

-quel nom de variable donner à chaque shape?
-si possible peut-on attribuer un nom de variable dynamique (j'ai pas besoin d'en créer d'avance comme ça)

---

C'est tout à fait possible comme vous le faite, avec une variable incrémentée mais le nom n'est pas obligatoire, le système se chargeant d'en donner un...

Citation:

---

Envoyé par atiroocky

- comment affecter un évènement à chaque variable créée dynamiquement

---

Quand on vous donne un lien dans un message précédent, il faut aller voir, ça évite de poser des questions dont la réponse se trouve dedans ;)

Code:

---

AddHandler Button1.Click, AddressOf BoutonUnClick

---

Ce code est bien sur a adapter aux Shapes

Citation:

---

Envoyé par Pol63

si à chaque clic tu dois créer un shape, il ne faut pas déclarer des variable shape
car ca fait du code à écrire pour rien et ca limite le nombre de shape qu'on peut utiliser
il faut les créer à l'exécution, ... , le nom de la variable ne sert alors pas à grand chose

---

:ccool:

Citation:

---

Envoyé par Pol63

et les stocker dans une collection

---

On peux le faire mais personnellement j'utilise la collection par défaut Canvas.Children

Citation:

---

Envoyé par Sankasssss

C'est tout à fait possible comme vous le faite, avec une variable incrémentée mais le nom n'est pas obligatoire, le système se chargeant d'en donner un...

---

merci, mais je ne parviens pas à incrémenter ma variable theShape à chaque click.

J'avais vu la commande addhandler, mais pour l'utiliser il faut que je puisse incrmenter ma variable correctement.

Merci des conseils.

Avec ceci tout simplement :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

dim theShape as new Shape With theShape .visible = True .Parent = canvas .Size = New System.Drawing.Size(10, 10) .BackStyle = BackStyle.Opaque .BackColor = Color.Blue .BorderColor = Color.Blue .Location = New System.Drawing.Point(ax - 5, ay - 5) End With AddHandler theShape.MouseDown , AddressOf Chape_MouseDown

---

merci pour votre réponse!

Dernière question:

Comment différencier les shape créées (shape 1 shape 2...)?

Dans votre évènement, vous avez le sender :

Code:

---

sender As System.Object

---

Et vous avez toujours la collection de shape : Canvas.Children

Bonjour,

Pour obtenir l'object à la base de l'événement tu peux réaliser ce test dans ta Sub theShape_MouseDown :

Code:

---

1 2 3 4 5

If sender Is Shape1 Then   ElseIf sender Is Shape2 Then   End If

---

mais dans ton cas, ça ne t'avances à rien car tu crées dynamiquement tes Shape.
Ce que tu peux faire, c'est y accéder directement par le "sender"

Code:

---

Dim objSource as Shape = DirectCast(sender,Shape)

---

ainsi que tu peux travailler directement dessus et accéder aux propriétés.