Tree View and DragDrop

[Zedder]

Народ! Два вопроса для очень умных:

1. Как при событии DragOver на TreeView подсвечивать
элементы, над которыми проходит курсор.
(типа так, как это делается в проводнике)?

2. Как из ListView на форме, который отображает список файлов,
перекинуть DragDrop в проводник файл/группу файлов.
Что-то надо передать объекту Data, но что?
Принять из проводника строку с путем к файлу получается.

Буду благодарен любой информации или примеру.
Заранее спасибо.)?

[Vi]

Q: Как при событии DragOver на TreeView подсвечивать элементы, над которыми проходит курсор. (типа так, как это делается в проводнике)?

A: Для этого есть свойство DropHighlight. Как правило, оно устанавливается через HitTest метод.

Код: Выделить всё

Private Sub TreeView_OLEDragOver(...
  ...
  If (State And vbLeave) = vbLeave Then
    ' покидаем TreeView
    Set TreeView.DropHighlight = Nothing
    Effect = vbDropEffectNone
  Else
    If Effect <> vbDropEffectNone Then
      Set TreeView.DropHighlight = ctlCldata.HitTest(x, y)
      If TreeView.DropHighlight Is Nothing Then
        Effect = vbDropEffectNone
      End If
      ...
    End If
  End If
  ...
End Sub


Q: Как из ListView на форме, который отображает список файлов, перекинуть DragDrop в проводник файл/группу файлов. Что-то надо передать объекту Data, но что?

A: Для этого служит специальный формат vbCFFiles. Его можно установить двояко - или сразу, или по требованию.

Сразу:

Код: Выделить всё

Private Sub TreeView_OLEStartDrag(...
  ...
  Call Data.Clear
  Call Data.SetData(, vbCFFiles)
    Call Data.Files.Add("DraggedFile1") ' можно и циклом
    Call Data.Files.Add("DraggedFile2")
    Call Data.Files.Add("DraggedFile3")
    ...
End Sub


По требованию

Код: Выделить всё

Private Sub TreeView_OLEStartDrag(...
  ...
  Call Data.Clear
  Call Data.SetData(, vbCFFiles)
  ...
End Sub

Private Sub TreeView_OLESetData(...
  If DataFormat = vbCFFiles Then
    Call Data.Files.Add("DraggedFile1") ' можно и циклом
    Call Data.Files.Add("DraggedFile2")
    Call Data.Files.Add("DraggedFile3")
    ...
  End If


[Sebas]

А у меня чёто OLEDragOver не генериться.
В чём фишка?

[Cyrax]

А у меня чёто OLEDragOver не генериться.
В чём фишка?

если мне склероз не изменяет, свойство OLEDragMode должно быть Auto тогда контрол сам будет события Drag'n'Drop обрабатывать а тебе будет сообщать об этом

[Sebas]

Стоит!
Не пашет(((

[Cyrax]

Стоит!
Не пашет(((

и менять естсественно пробовал...
хотя наврал я... вот щас смотрю код и свойства TreeView - Manual должно быть...
на старом форуме посмотрите, я там как-то оставлял пример (и не я один) по драгндропу в TreeView

[Sebas]

Вообщем лох я!
вместо OLEDragOver - DragOver обрабатывал!

Спасибо!

[Cyrax]