Bonjour,
Je voudrais faire un drag and drop de tabpages dans un tabcontrol mais même avec les exemples je n'y arrive pas. J'ai toujours un interdit qui se ballade quand j'essaye de glisser ma tab et du coup pas de drop possible.
J'ai mis les propriétés allowdrop de mes tabpages et de mon tabcontrol à true mais pas mieux. Je suis donc reparti d'un exemple basique mais toujours pas. Si vous voyez ce que j'ai oublié.

Merci

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
    Public Shared Sub Onglet_Mouse_Down(ByVal sender As System.Object, ByVal e As MouseEventArgs)
        MouseIsDown = True
    End Sub
 
    Public Shared Sub Onglet_Mouse_Up(ByVal sender As System.Object, ByVal e As MouseEventArgs)
        MouseIsDown = False
    End Sub
 
    Public Shared Sub Onglet_Mouse_Move(ByVal sender As System.Object, ByVal e As MouseEventArgs)
        Dim controleur As TabControl = sender
        Dim onglet As TabPage = controleur.SelectedTab
        If MouseIsDown Then
            controleur.DoDragDrop(onglet, DragDropEffects.Move)
        End If
        MouseIsDown = False
    End Sub