Scrolling Access Treeview
Posted on 2006-07-08
I'm using the Northwind code on my projects Treeview and it is working well....But I cant scroll if the item is above or below the visible boundry...I've searched the comments and it looks like .EnsureVisible on DragOver is the way to go, but I'm not having much success...
I'm using the following code:
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
'Create a reference to the TreeView control.
Set oTree = Me!xTree.Object
'If no node is selected, select the first node you dragged over.
If oTree.SelectedItem Is Nothing Then
Set oTree.SelectedItem = oTree.HitTest(x, y)
'Highlight the node being dragged over as a potential drop target.
Set oTree.DropHighlight = oTree.HitTest(x, y)
Can anyone help me figure out how to wrap .EnsureVisible into this??
Lost in the forest