Drag&Drop su TreeView

WorldWideWeb

Utente Attivo
6 Apr 2008
78
0
6
Calabria
Salve.
Il mio scopo è quello di copiare il testo dei nodi di una treeview su di una RichTextBox tramite trascinamento
(drag&drop)

Codice VB6:

Private Sub tvwTabelle_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then tvwTabelle.OLEDrag
End Sub

Private Sub tvwTabelle_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
tvwTabelle.OLEDrag
End Sub

Private Sub tvwTabelle_OLEDragOver(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer)
If Data.GetFormat(vbCFText) Then
Effect = Effect And vbDropEffectCopy
Else
Effect = vbDropEffectNone
End If

End Sub

Private Sub tvwTabelle_OLEStartDrag(Data As MSComctlLib.DataObject, AllowedEffects As Long)
Dim testo As String
testo = tvwTabelle.SelectedItem.Text
Data.SetData CStr(testo), vbCFText

AllowedEffects = vbDropEffectMove Or vbDropEffectCopy

End Sub



Il problema è che dopo aver fatto il drag&drop (funziona bene), ritornando sulla treeview, per selezionare un
nuovo nodo devo fare per forza il doppio click su di esso, altrimenti il focus ritorna sull'ultimo nodo trascinato!
Bhò??