Drag&Drop дляTreeView в VBScript

Программирование на Active Server Pages и VBScript.
Михаил Валерьевич
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 18.09.2003 (Чт) 13:41

Drag&Drop дляTreeView в VBScript

Сообщение Михаил Валерьевич » 18.09.2003 (Чт) 13:51

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

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

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

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 25.09.2003 (Чт) 15:20

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

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

Код: Выделить всё
<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>




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

Михаил Валерьевич
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 18.09.2003 (Чт) 13:41

Сообщение Михаил Валерьевич » 27.09.2003 (Сб) 10:18

Нашел пример для базы данных 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?


Вернуться в ASP и VBScript

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 8

    TopList