UserControl PictureBox контейнер

[djalex777]

Всем доброго времени суток! Давно не писал ничего на VB6, но вот понадобилось...

Есть UserControl, на нём (в нём) есть PictureBox. У UserControl свойство ControlContainer выставлено в True. Задача - при добавлении элементов в дизайнере (IDE) VB6 на UserControl сделать так чтобы они добавлялись в PictureBox. Т.е. чтобы {ObjectToAdd}.Container = PictureBox. Пробовал перехватывать Drop на UserControl и переустанавливать свойство Container для объекта в нужный мне, но получаю ошибку 'Invalid Object Use' Что делаю не так?

[bon818]

Пробовал перехватывать Drop на UserControl и переустанавливать свойство Container для объекта в нужный мне

Наверно как-то можно, но DragDrop в UserControl'е , без OLE не работает почему-то.
По мне так проще на API.
Form

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

'Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub UserControlX_DragDrop(Source As Control, X As Single, Y As Single)
    SetParent Source.hwnd, UserControlX.GetPictureHnd
End Sub

UserControl

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

Function GetPictureHnd() As Long
    GetPictureHnd = Picture1.hwnd
End Function

[Хакер]

Наверно как-то можно, но DragDrop в UserControl'е , без OLE не работает почему-то.

DragDrop вообще не причём. Set ChildControl.Container = PbWithinUC не сработает в любом случае, даже если выполнять это не по драгу, а по клику кнопки.

По мне так проще на API.

Это очевидный трюк, но это, должно быть не менее очевидно, ещё и неправильный путь. Потому что дочерний контрол по прежнему думает, что его родитель — другой объект.

[bon818]

Да Source.Parent.Caption возвращает бывшего родителя.
А так GetParent(Source.hwnd) то все норм и меня бы это устроило, наверное.
А как правильно то?

[djalex777]

Пробовал я через SetParent, но лично у меня IDE сразу "падает" при вызове этой функции, помимо того, что написал Хакер. Кроме того, как быть в этом случае с Label...

[bon818]

Ну если нет ничего другого, то как вариант создать контрол в нужном месте с параметрами из Source Control.
Или даже так
Private Sub xxxxx_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
UserControlX Data, "value1= Caption"
End Sub

[Хакер]

помимо того, что написал Xakep.

Остерегайтесь подделок.

А как правильно то?

Тут в двух словах не выразишь, а кроме того, прежде чем писать, нужно провести небольшое исследование, чтобы не оказалось, что написанное не относится к ситуации. Будет время — попробую написать/исследовать.