Discussion :

[Patolonche]

Bonjour

je suis en train développer la partie graphique ("paint" si on veut) d'une application sous VB.NET avec Visual Studio 2010. Elle permet de réaliser des shapes (lignes/cercles/rectangles) dans une picturebox. Comme on ne peut pas s'amuser à déclarer 1000 shapes en espérant que l'utilisateur n'en dessinera pas plus, j'ai declaré une shape temporaire pour chaque type (lignes/cercles/rectangles) qui sera stockée dans une collection de shapes (List of Shape) à chaque fois qu'on termine de dessiner une shape. Ainsi, je peux aller m'adresser (par exemple) au troisième rectangles de la collection de rectangleshapes...etc.

Mon problème est que j'aimerais pouvoir déplacer ces shapes à la souris, et je n'y arrive pas. J'utilise les événements mousedown/mousemove/mouseup pour dessiner mes shapes mais ces événements sont incompatibles avec mes collections de shapes.

Y aurait-il moyen, lorsque l'on clique sur une shape, de reconnaitre le type de shape ainsi que son index à l'interieur de la collection? Si cet événement est possible, je pourrais faire en sorte que la shape concernée suive le curseur.

Demandez moi les parties de mon code que vous voulez si besoin, j’essaierai de vous trier ce qui vous intéresse.

PS : Je n'ai pas énormément d'experience en VB.NET

Merci pour votre aide

[Pichar]

Bonjour,
A mon avis, si les Shapes se retrouvent sous forme d'image dans un PictureBox, cela va être quasiment impossible de retrouver la référence de la shape en cliquant sur la PictureBox.
L'utilisation d'une PictureBox est elle impérative ?
Si non, je ferais celà :
1°) Créer un panel qui contiendra les Shapes, ainsi qu'un ShapeContainer dont le Parent sera la panel.
2°) Créer dynamiquement les shapes dans le container, en spécifiant dans le Tag de la shape son type et son N° dans le type. Du texte fera l'affaire (ex "Rectangle___00001"). Chaque Shape sera rangé dans un tableau (ex Dim ShRectangle_Array() as RectangleShape)
3°) Pour éviter de faire croitre inutilement le nombre de shapes d'un type, associer un tableau des shapes utilisées par type (Dim ListeRectanglesUtilisés() as Boolean)
4°) Quand on clic sur une shape (event clic), récupérer le TAG du sender, et ainsi retrouver son type et son N°
5°) Si on supprime une shape, il suffit de faire ShRectangle_Array(N° de shape extrait).Parent=Nothing et de positionner ListeRectanglesUtilisés(N) en question)=False.
6°) lors de la création suivante on récupèrera on cherchera une entrée inutilisée de la table ListeRectanglesUtilisés.

Pour chaque Shape d'un même type, il faudra gérer les événements MouseDown et MouseMove à minima.
Après MouseMove ou suppression d'une Shape, je pense qu'il faut faire un Refresh du panel contenant ...le container.

Cela répond-t-il à la question? Ai je été clair ?

[Patolonche]

Je suis malheureusement obligé d'utiliser une picturebox pour l'instant, mais nos idées se rejoignent sur le shape container (j'en utilise un, que j'ai appelé 'canvas', voir code ci-dessous).

Je suis intéressé par le fait de récuperer le TAG du sender lorsque l'on clique sur une shape, mais le problème est toujours là : comment reconnaitre qu'on clique sur une shape? Mes shape font parties de listes qui m’empêchent de les atteindre avec les événements, c'est ce genre d'événements dont le receveur peut-être dans une liste qui réglerait mon problème.


J'ai trié mon code pour vous partager les parties concernées, peut-être cela vous aidera à comprendre comment je procède :

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
 
    Private Sub DmdPictureBox_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DmdPictureBox.MouseDown
        down = True ' checks if the mouse button is pressed
        canvas.Parent = Me  ' Set the form as the parent of the ShapeContainer
 
        If LineChoice = True Then 'Entered if you clicked Draw Line
            TempLine = New LineShape ' Set the shape of the form as a line
            TempLine.Parent = canvas ' Set the ShapeContainer as the parent of the LineShape
            TempLine.Parent.Parent = DmdPictureBox
            TempLine.BorderColor = Color.Black 'indicates the border color to use
            TempLine.BorderStyle = Drawing2D.DashStyle.Solid 'indicates the way to use the border color (solid)
            ptA = New Point(e.X, e.Y) 'Gets the cursor's x and y position and register it as a starting point
            TempLine.StartPoint = ptA 'sets the starting point
            TempLine.EndPoint = ptA 'set the ending point which doesn't exit yet because we still haven't moved or released the mouse button -->Next sub
            TempLine.BorderWidth = linesize
        ElseIf RectangleChoice = True Then 'Entered if you chose Draw Rectangle, only the different lines will be explaine
            ptA = New Point(e.X, e.Y)
            TempRectangle = New RectangleShape
            TempRectangle.Parent = canvas
            TempRectangle.Parent.Parent = DmdPictureBox
            TempRectangle.BorderColor = Color.Black
            TempRectangle.BackColor = Color.Black 'indicates the backcolor to use
            TempRectangle.BackStyle = PowerPacks.BackStyle.Opaque 'indicates the way to use the backcolor (opaque so that it's not transparent)
            TempRectangle.BorderStyle = Drawing2D.DashStyle.Solid
            TempRectangleX1 = e.X 'sets the x coordinate or the cursor as the top left x coordinate of the rectangle
            TempRectangleY1 = e.Y 'set the y coordinate of the cursor as the top left y coordinate of the rectangle
        ElseIf OvalChoice = True Then 'Entered if you chose Draw Oval, , only the different lines will be explained
            TempOval = New OvalShape
            TempOval.Parent = canvas
            TempOval.Parent.Parent = DmdPictureBox
            TempOval.BorderColor = Color.Black
            TempOval.BackColor = Color.Black
            TempOval.BackStyle = PowerPacks.BackStyle.Opaque
            TempOval.BorderStyle = Drawing2D.DashStyle.Solid
            ptA = New Point(e.X, e.Y) 'set the location where the clicked was made as the top left point of the oval (basically his position)
            TempOvalX1 = e.X 'will be used in a calculation later
            TempOvalY1 = e.Y 'will be used in a calculation later
        End If
    End Sub
 
 Private Sub DmdPictureBox_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DmdPictureBox.MouseMove
        If down = True Then 'Needs the mouse button to be pressed
            If LineChoice = True Then
                TempLine.X2 = e.X 'this line and the following one make the coordinates of the ending point follow the coordinates of the cursor while it's moving
                TempLine.Y2 = e.Y 'see line above
            ElseIf RectangleChoice = True Then
                TempRectangleX2 = e.X 'this line and the following one make the coordinates of the bottom right of the rectangle follow the coordinates of the cursor while it's moving
                TempRectangleY2 = e.Y 'see line above
                TempRectangle.Location = ptA 'needed so that the program remembers the starting point (location of the rectangle) while moving the ending point (bottom right point)
                TempRectangle.Width = TempRectangleX2 - TempRectangleX1 'calculates the width of the rectangle by substracting the ending point x coordinates to the starting point x coordinate
                TempRectangle.Height = TempRectangleY2 - TempRectangleY1 'calculates the height of the rectangle by substracting the ending point y coordinates to the starting point y coordinate
            ElseIf OvalChoice = True Then
                TempOvalX2 = e.X 'this line and the following one make the coordinates of the bottom right of the oval follow the coordinates of the cursor while it's moving
                TempOvalY2 = e.Y 'see line above
                TempOval.Width = TempOvalX2 - TempOvalX1 'calculates the width of the oval by substracting the ending point x coordinates to the starting point x coordinate
                TempOval.Height = TempOvalY2 - TempOvalY1 'calculates the width of the oval by substracting the ending point x coordinates to the starting point x coordinate
                TempOval.Location = New Point(ptA) 'needed so that the program remembers the starting point (location of the oval) while moving the ending point (bottom right point)
                TempOval.Size = New System.Drawing.Size(TempOval.Width, TempOval.Height) 'receives the result of the calcultions above (width and height) and shows the resulting oval
            End If
        End If
    End Sub
    Private Sub DmdPictureBox_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DmdPictureBox.MouseUp
        down = False 'checks if the mouse button isn't pressed
 
        If LineChoice = True Then
            ptB = New Point(e.X, e.Y) 'set the x and y coordinates of the cursor as the x and y coordinates of the line ending point
            lines.Add(TempLine)
            LineCounter = LineCounter + 1
        ElseIf RectangleChoice = True Then
            TempRectangleX2 = e.X 'sets the x coordinate of the cursor as the bottom right x coordinate of the rectangle
            TempRectangleY2 = e.Y 'sets the y coordinate of the cursor as the bottom right y coordinate of the rectangle
            rectangles.Add(TempRectangle)
            RectangleCounter = RectangleCounter + 1
        ElseIf OvalChoice = True Then
            TempOvalX2 = e.X 'sets the x coordinate of the cursor as the bottom right x coordinate of the oval
            TempOvalY2 = e.Y 'sets the x coordinate of the cursor as the bottom right y coordinate of the oval
            ovals.Add(TempOval)
            OvalCounter = OvalCounter + 1
        End If
    End Sub

[Pichar]

Au vu du code, canvas (ShapeContainer) a pour Parent la PictureBox qui est utilisé comme le panel dont je parlais plus haut.
Il faut donc s'en tenir à un tableau des Lines (idems autres types de formes) et l'interfacer avec la liste (en première approche, il s'agirait d'une ListBox, mais je n'en comprends pas l'utilisation).
Lors de chaque création de ligne, il faut lui ajouter :
un Tag de Type String et de forme tttnnnnnn avec ttt= "RCT" ou "LIN" ou "OVL" et nnnnnn représente le N° de la forme pour le type
Les Handlers (AddHandler) de gestion des événements MouseDown et MouseMove pour traiter chaque Shape

Ecrire les Sub de traitement des événements MouseDown (dans lequel on extrait de sender.Tag le type et le N° de la forme), et MouseMove pour déplacement (par exemple) de la shape.
Cordialement