Discussion :

[-N4w4k-]

Bonjour,
j'essaie de créer un docking panel depuis quelques jours mais j'ai petit un probleme:

Quels evenements sont les plus appropriés pour gérer le drag & drop de mes petites fenetres dockables ?
J'utilise les events Form.Move et Form.MouseCaptureChanged parce que j'ai rien trouvé de mieux.. Les events Form.DragEnter et DragLeave ont l'air d'être le top mais je n'arrive pas à le mettre en place..

Merci d'avance pour votre aide

[-N4w4k-]

Bon comme personne me m'aime D: je me suis debrouillé autrement.
J'ai caché la bordure de ma petite fenetre dockable et je lui ai ajouté un panel en guise de controlbox ce qui me permet d'avoir les events mousedown et mouseup sur ce panel. Le seul probleme maintenant, c'est que les evenements mouseup et mousedown ne declenche pas toutes les methodes que je veux et je ne comprend pas pourquoi..


Ici, seul les methodes DragContent et PanelText_MouseDown fonctionnent mais pas DropContent:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
        Dim dockContent As New DockContent()
        AddHandler dockContent.PanelText.MouseDown, AddressOf DragContent
        AddHandler dockContent.PanelText.MouseUp, AddressOf DropContent
        AddHandler dockContent.PanelText.MouseDown, AddressOf dockContent.PanelText_MouseDown

Si j'essaie ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
        Dim dockContent As New DockContent()
        AddHandler dockContent.PanelText.MouseDown, AddressOf DragContent
        AddHandler dockContent.PanelText.MouseUp, AddressOf DropContent
        'AddHandler dockContent.PanelText.MouseDown, AddressOf dockContent.PanelText_MouseDown

et bah DragContent et DropContent marchent..

Qu'ai je oublié??

[zebrette]

salut,

il doit y avoir une erreur ou une boucle dans ton handler dockContent.PanelText_MouseDown, on peut voir son code?

comme ce handler est déclanché en premier (mouse down se produit avant mouse up) il empeche les autres de se déclencher... essai de mettre des stop dans ton code sur les deux handler de mouse down et regarde comment ils agissent.

après c'est vrai que les mouse click et les drag drop c'est les events les plus chiant à corriger...

zebrette

[-N4w4k-]

Du coup j'ai zapper la methode PanelText_MouseDown pendant quelques jours puis j'ai essayé autrement et ca marche. Petite précision j'ai fait en sorte qu'on puisse deplacer la form avec l'evenement MouseMove sur un icone et non plus sur mon panel (mon controlBox):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
 
    Private Sub icoMove_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles icoMove.MouseMove
        Dim ico As PictureBox = sender
        Dim content As DockContent = ico.Parent.Parent
        If e.Button = Windows.Forms.MouseButtons.Left Then
 
            content.Dock = DockStyle.None
            Location = New Point(MousePosition.X - icoMove.Location.X - 15, MousePosition.Y - icoMove.Location.Y - 80)
 
        End If
    End Sub

En tout cas merci pour ta réponse zebrette, il devait y avoir une c***** dans le paté au niveau de ma méthode PanelText_MouseDown! En fait ma méthode lancait une autre méthode que je ne connaissais pas (New IntPtr() je crois) (trouvée sur internet), qui marchait, mais pas totalement apparement.. Tandis que la c'est moi qu'à réfléchi :p

Maintenant j'ai un autre soucis ^^ En fait j'instancie mes dockContents à partir de form de base, ou je copie les controls existants de la form dans le dockContent. Jusque la pas de soucis, mais je viens de réagir au fait que les controls sont copiés, leurs evenements aussi, mais pas les evenements liés a la form de base (form_load, form_close, etc..).
Savez vous comment copier les evenements d'un control a un autre?
(ex: form_load -> dockContent_load ^^)

Je continue de chercher

mic.carrer

[-N4w4k-]

Bonjour,

Je reviens vers vous car j'avais réussi à contourner un problème auquel je n'avais pas de solution: le "drag" d'une form mdichildren et son "drop", en enlevant la bordure de la form puis en observant les events mousedown et mouseup sur un panel. Ca faisait une fenetre personnalisée qui m'allait très bien.

Seulement je dois revenir sur fenetre type "windows" (contrainte professionnelle) et donc au drag & drop d'une mdichild.. Il y a bien les events locationchanged ou encore move pour le drag mais je n'arrive pas à trouver pour le drop..
Est ce que quelqu'un pourrait m'aiguiller sur la marche à suivre (quels events je dois utiliser) ?

[zebrette]

Bonjour,

Eh bien pour ma part j'utilise trois événements, les standards je pense:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
    Private Sub OriginControl_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles OriginControl.MouseDown
            sender.DoDragDrop(Objet a inclure dans le drop, DragDropEffects.Copy Or DragDropEffects.Move)
    End Sub
 
    Private Sub TargetControl_DragOver(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TargetControl.DragOver
            e.Effect = DragDropEffects.Copy'/None...
    End Sub
 
    Private Sub TargetControl_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TargetControl.DragDrop
            'faire quelque chose, par exemple récupérer les objets du drop, coller...
    End Sub

et il ne faut pas oublier d'activer le support du dragdrop sur les controles utilisés (AllowDrop ou quelquechose comme ca)

[-N4w4k-]

Bonjour zebrette et merci pour ta réponse,

oui je connais ces évènements la, je les ai utilisés pour des listbox, des treeview mais la ce que je voudrais c'est faire un drag and drop d'une form contenu dans un panel, ... et j'y arrive pas avec les events dont tu me parles (l'event mouse_down ne s'applique pas pour un click sur la titlebar).

J'ai procédé autrement, en détectant directement les messages windows que recoit la form (en redefinissant la méthode WndProc):

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
Public Class FormContent
 
    Private IsMoving As Boolean = False
    Public Event FormDragged()
    Public Event FormDropped()
 
    Protected Overrides Sub WndProc(ByRef WndMsg As System.Windows.Forms.Message)
 
        If WndMsg.Msg = Messages.Constants.WM_MOVING And Not IsMoving Then
            IsMoving = True
            RaiseEvent FormDragged()
        ElseIf WndMsg.Msg = Messages.Constants.WM_EXITSIZEMOVE And IsMoving Then
            IsMoving = False
            RaiseEvent FormDropped()
        End If
 
        MyBase.WndProc(WndMsg)
    End Sub
 
End Class

Comme ca je detecte quand une form commence a bouger puis quand elle s'arrete.. un peu tordu mais ca marche.
Si vous avez une autre solution, je suis toujours preneur!