List Of Buttons et methode recursive

Version imprimable

Bonsoir,

J'ajoute une serie de boutons dans une grille delimitee (Bouton introduit sur cette grille par un Drag & Drop). Ces boutons se replacent automatiquement lors de l'evenement Mouse_up qui appelle la Sub SetLocation.
Lorsque je sors de la grille, je voudrais supprimer le dernier bouton selectionne.
Voila le code que j'utilise avec un probleme que je comprends, mais je ne sais pas comment le contourner ou le resoudre (recursivite et list of buttons).

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
 
    Public Function Collision(ByVal selBtn As Button, ByVal xBtn As Button) As Boolean
        If selBtn.Bounds.IntersectsWith(xBtn.Bounds) Then
            Return True
        Else
            Return False
        End If
    End Function
 
    Public Sub SetLocation(ByVal selBtn As Button)
 
        selBtn.Left = selBtn.Left + 20
        selBtn.Top = selBtn.Top
 
        If selBtn.Left + selBtn.Width > 500 Then
            selBtn.Left = 20
            selBtn.Top = selBtn.Top + 20
        End If
 
        If selBtn.Top + selBtn.Height > 500 Then
            myPanel.Controls.Remove(selBtn)
            lstButtons.Remove(selBtn) 'PROBLEM: lstButtons modified THEN ForEach issue
            Exit Sub
        End If
 
        ' ================================================
        For Each item As Button In lstButtons
            If item Is selBtn Then Continue For
            If Collision(selBtn, item) Then
                SetLocation(selBtn)
            End If
        Next
        ' ================================================
 
    End Sub

Et oui, je modifie ma liste alors que ma boucle ForEach n'est pas terminee. J'avoue, c'est pas terrible!

C'est dommage, car j'etais assez content du code jusqu'a ce dernier probleme.

Un petit coup de pouce :ccool: serait le bienvenu!
Merci,

A+
JLuc01

01/11/2013, 10h37
shayw

Bonjour

la grille c'est un datagridview :?
01/11/2013, 12h07
JLuc01

Bonjour,

Non, en fait, la grille est representee par un Rectangle(20,20,500,500) avec des points espaces de 20 en 20.
Mais peu importe, les boutons "circulent" sur la Form. Si un Bouton se trouve en dehors de ce Rectangle, une routine (code dans l'evenement Mouse-Up) le remet a l'interieur du Rectangle.

Voila, en esperant que c'est plus clair. Mais, je pense qu'on s'eloigne du sujet.
Merci quand meme.

En fait, quand la grille (ou le Rectangle) est pleine, je veux supprimer automatiquement tout eventuel boutons qu'on pourrait ajouter :?. Pas sur de la clarte de cette phrase.

A+
JLuc01
01/11/2013, 14h35
Sehnsucht

Plutôt que de s'embêter avec un placement à la main des contrôles (avec tout un tas de calculs fastidieux) pourquoi ne pas utiliser un contrôle de mise en forme type TableLayoutPanel ou FlowLayoutPanel (qui semblerait a priori assez adapté ici) ?

Bonjour,
en poursuivant sur le sujet du Po, je pense que la boucle n'est pas bien placée.
A tester :

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
    Public Function Collision(ByVal selBtn As Button) As Boolean
 
        For Each item As Button In lstButtons
            If item Is selBtn Then
                Continue For
            End If
 
            If selBtn.Bounds.IntersectsWith(item.Bounds) Then
                Return True
            End If
        Next
 
        Return False
 
    End Function
 
    Public Sub SetLocation(ByVal selBtn As Button)
 
        selBtn.Left = selBtn.Left + 20
        selBtn.Top = selBtn.Top
 
        If selBtn.Left + selBtn.Width > 500 Then
            selBtn.Left = 20
            selBtn.Top = selBtn.Top + 20
        End If
 
        If selBtn.Top + selBtn.Height > 500 Then
            myPanel.Controls.Remove(selBtn)
            lstButtons.Remove(selBtn)
            Exit Sub
        End If
 
        If Collision(selBtn) Then
            SetLocation(selBtn)
        End If
 
    End Sub

bonjour

Citation:

En fait, quand la grille (ou le Rectangle) est pleine, je veux supprimer automatiquement tout eventuel boutons qu'on pourrait ajouter . Pas sur de la clarte de cette phrase.

La seule signification de "plein" pour une grille surface de dessin ne peut etre que => etre complemetement pave de boutons espaces de 20...
Mais si elle est totalement pave le deplacement des boutons sera limite sur une distance de 20 alors que les boutons ont mettons une taille superieure 40x30...
Mauvais si c'est unjeu...
Pour s' assurer que les boutonts circulent avec fluidite ,il faudrait un espacement entre buttons superieur à Math.Max(40,30)= 40..
Apres cela l'espacement +20 que tu ajoutes devrait etre remplace par un espacement de : Math.Max(button.width,button.height)+ 20....
Pour avoir un espacement encore plus confortable tu peux utiliser l'api Rectangle.Union(rect1,rect2) ...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private unionRect As Rectangle Private penBack As Pen = New Pen(Brushes.Red, 2.0) Private Rectangle Function TotalSurface() as Rectangle Dim gr As Graphics = Panel1.CreateGraphics() Dim btn As Button = lstButtons(0) unionRect = btn.Bounds For i As Integer = 1 To lstButtons.Count - 1 btn = lstButtons(i) unionRect = Rectangle.Union(unionRect, btn.Bounds) Next Dim gr As Graphics = Panel1.CreateGraphics() gr.DrawRectangle(penBack, unionRect) gr.Dispose() return unionRect End Function
Avant d'ajouter un bouton tu appelles ce Function qui te renvoie un rectangle et tu verifies si tu n'as pas atteints un width de 500 ou un height de 500....

bon code.....

Bonjour a tous,

Sensucht, j'introduis les boutons dynamiquement (qui peuvent aussi bouger avec la souris), donc je ne vois pas l'interet des LayoutPanels. Mais, peut-etre, mon explication de base n'etait pas terrible.

Chrismonoye, cela ne marche pas. En plus, la function Collision utilise la methode Intersect qui compare 2 boutons, donc 2 parametres sont necessaires dans cette fonctions.

Mabrouki, je ne suis pas sur de tout comprendre, mais je jeterais un oeil sur la methode Union.

Toutefois, mon probleme est maintenant resolu (voir code ci-dessous), mais cela ressemble un peu a du bricolage. Enfin, ca marche.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Dim a As Boolean = False (en dehors de la Sub) If selBtn.Top + selBtn.Height > 500 Then myPanel.Controls.Remove(selBtn) lstButtons.Remove(selBtn) a = True Exit Sub End If For Each item As Button In lstButtons If item Is selBtn Then Continue For If Collision(selBtn, item) Then SetLocation(selBtn) If a = True Then Exit For End If Next
Merci quand meme pour vos suggestions.

Si toutefois, vous avez quelquechose de mieux (en terme de programmation), je suis preneur (parce que des Exit Sub ou Exit For, c'est pas terrible, meme si ca marche).

A+
JLuc01