Comme le topic l'indique il permet d'effectuer un scrolling vers le haut ou le bas pendant un Drag&drop
ce bout de code utilise la fonction sendmessage
Source / Exemple :
Private Sub Xtree_OLEDragOver(Data As Object, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer)
Dim oTree As TreeView
Set oTree = Me!Xtree.Object
' si pas de node selectionné, selectionner le 1er node déplacé
If oTree.SelectedItem Is Nothing Then Set oTree.SelectedItem = oTree.HitTest(x, y)
'garde le node tant qu'il n'y a pas de collé effectué
Set oTree.DropHighlight = oTree.HitTest(x, y)
'-----------------------------------
'effectue un scroll quand arrive vers l'un des deux bords
If Y > 9150 Then
SendMessage Xtree.hwnd, 277&, 1&, vbNull ' Scroll haut
Else
If Y < 50 Then
SendMessage Xtree.hwnd, 277&, 0&, vbNull 'Scroll vers le bas
End If
End If
End Sub
Conclusion :
Il suffis d'integres la dernier partie "effectue un scroll quand arrive vers l'un des deux bords" dans un treeview deja fait
@+
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.