Drag&Drop дляTreeView в VBScript

[Михаил Валерьевич]

Имееться ActiveX элемент treeView, вставленый в html страницу.

Надо реализовать для него обработку событий Drag&Drop.

Можно ли сделать это средствами VBScript?

[RayShade]

А средствами чего еще это можно сделать Да, естественно.

Предположим что объект вставлен так:

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

<object id="g_Previewer" name = "TreeView"
    classid="CLSID:8F565123C-9876-4913-9D45-10887C0DD18E"     width="600" height="500">
</object>


Тогда в странице можно написать:

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

<script for="TreeView" event="onDragDrop" language="VBScript">
        msgbox "Drag&Drop event"
</script>


Примечание: Классайдишник взят с потолка просто Так что пример вот именно в таком виде работать не станет

[Михаил Валерьевич]

Нашел пример для базы данных access, который реализует Drag&Drop для TreeView и попробовал его использовать.

Вот процедура обработки события DragOver:

Sub trView_OLEDragOver(Data,Effect,Button,xShift,x,y,State)
if trView.SelectedItem is Nothing then
Set trView.SelectedItem=trView.HitTest(x,y)
end if
set trView.DropHighlight=trView.HitTest(x,y)
End sub

Сама процедура обработки вызывается, но метод HitTest работает неверно. Он должен возвращать объект node, над которым сейчас находиться курсор, а возвращает всегда корневой node.

Почему HitTest не работает?
И можно ли определить объект node, над которым находиться курсор,
без метода HitTest?