Sv: drag & drop med treeview

drag & drop med treeview

Postades av 2000-11-07 13:13:00 - Lena Lundin, i forum komponenter, Tråden har 1 Kommentarer och lästs av 1230 personer

Hej

*suck* Nu börjar jag tröttna på det här...

Håller på och försöker få ordning på ett drag & drop problem..

Om jag i oledragoverlägger in koden:
If Not dragNode Is Nothing Then
' ' If no node is selected, select the first node you dragged over.
If Tw1.SelectedItem Is Nothing Then
Set Tw1.SelectedItem = Tw1.HitTest(X, Y)
End If
' ' Highlight the node being dragged over as a potential drop target.
Set hilitNode = Tw1.HitTest(X, Y)
Tw1.DropHighlight = Tw1.HitTest(X, Y)
End If
Set Tw1.DropHighlight = Nothing
'Set hilitNode = Tw1.HitTest(X, Y)

så markeras raden jag är över, och allt borde vara bra,men istället för att markera raden så står den och blinkar mellan noden jag drar i och noden jag vill dra till...

Problem 2 är att PLÖTSLIGT beroende på något som jag inte lyckats hitta så har koden under oledragover, som skulle göra så att scrollningen fungerade slutat fungera...

Set Tw1.DropHighlight = Tw1.HitTest(X, Y)
mfX = X
mfY = Y

If Y > 0 And Y < 100 Then 'scroll up
m_iScrollDir = -1
Timer1.Enabled = True
ElseIf Y > (Tw1.Height - 200) And Y < Tw1.Height Then
'scroll down
m_iScrollDir = 1
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
Set Tw1.DropHighlight = Nothing

Jag vet att det är något lätt, men om ni kan komma på något som verkar vara fel så får ni gärna hjälpa mig..

Svara