Another treeview Q, please help!

[jmswe]

When dragging a node near the bottom border of the treeview it automatically scrolls down. But it doesent scroll up when im near the top!..

Is there some setting to make it do this?

Thanks in advance!

 

[jmswe]

Phew! Solved it after some more digging and thinking..

Add this to your dragover sub:

Private Sub TreeView2_OLEDragOver(data As Object, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
Dim nodNode As node


Set nodNode = treeview2.HitTest(X, Y)

If nodNode Is Nothing Then
Debug.Print ("Nothing&quot

Else


If Not nodNode.Index = treeview2.Nodes.count Then nodNode.Next.EnsureVisible
If Not nodNode.Index = 1 Then nodNode.Previous.EnsureVisible

nodNode.Selected = True
nodNode.EnsureVisible
End If

End Sub

Works like a charm

 

[jmswe]

Dough!

Found out that this wont work if you are dragging a child node.. then you will get an errror..

Does anyone know of a simple and reliable way to do this??