Drag&Drop с моего UserControl

[Fedorfx]

Всем привет. Хочу с своего UserControla перетащить линк на свой же класс. Но что то неполучается. Могу только между формами таскать обьекты а вот как дело до User Control доходит так курсорчик в бублик превращается и не генерится события DragAndDrop

[Ennor]

У тебя линк прямо на контроле напечатан, через UserControl.Print, или же все-таки сидит в лэйбле или типа того? Тогда разреши для этого контрола OLEDragMode, и будет тебе счастье...

[Fedorfx]

Честно говоря про OleDrag и не знал вообще.
Раз просто драг не подходит в моем случае то наверно надо использовать OleDrag.
Буду благодарен за примитивный примерчик.

[Ennor]

Хм. Пример писать меня ломает, если честно, но вкратце концепция такова:
1. Ставишь у исходного контрола OLEDragMode = vbManual. После этого он может работать как DnD Source. Соотв-но, бублика при начале перетаскивания у тебя не будет.
2. Берешь свой контрол назначения и выставляешь ему OLEDropMode - а вот тут надо смотреть. Я бы попробовал поставить ему vbAutomatic и посмотрел бы, устраивает меня результат или нет. Если нет, то тогда ставишь ему все тот же мануал и прописываешь след. события:
Src_OLEStartDrag - в передаваемый объект DataObject или как он там засовываешь то, что тебе надо передать.
Dest_OLEDragOver - проверяешь, устраивает ли тебя содержимое того же объекта, но уже применительно к контролу назначения (тебе же могут перетащить не только из твоей программы, а вообще откуда угодно). Если нет - возвращаешь параметр Effect = vbEffectNone, и юзер получает бублик над контролом назначения.
Dest_OLEDragDrop - непосредственно отпускание кнопки мыши. Опять-таки проверяешь тип и содержимое дата-объекта, и если подходит, то вставляешь куда надо, иначе - отлуп.
Можно еще обработать получение фидбэка исходным контролом, но это реально нужно, если у тебя не копирование, а перемещение.

Вроде как все, в общем и целом...

[Fedorfx]

Спасибо

С механизмом разобрался.
Только я понимаю что ссылку на обьект или вариантовский тип данных не передать????
Какие есть варианты для передачи ссылки на обьект???

[Ennor]

Хе. А в каком именно формате этап ссылка выводится юзеру - уж не в виде ли HEX-адреса? Вот что выводишь, то и передавай - больше чем уверен, что тебе хватит обычного текстового формата. Ну а принимающая сторона должна знать, как именно раскрутить это дело до реального class * ...