Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [VB6] Drag Drop картинку в приемник КАК

Автор: nasty 10.5.2007, 16:28

Помогите, пожалуйста.
Делаю проект. Неодходимо, чтобы при переносе рисунков (PictureBox (1), (2), (3) и т.д. находятся все в объекте Frame) они вставали на то место, которое им указывается мышкой, в объекте-приемнике, также PictureBox. Изначально в приемнике выведен текст со специально пропущенными под картинки местами.
Пишу для источника:

Код


Private Sub pctPicture_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
Source.Move X, Y
Source.Container = pctTail
End Sub

Для приемника:

Код


Private Sub pctTail_DragDrop(Source As Control, X As Single, Y As Single)
pctPicture.Container = pctTail
End Sub

Метод Container явно не так написан smile

Но не знаю, как правильно? Без Container'a рисунок переносится, однако при этом весь текст стирается, остается лишь пустой приемник с маленьким перенесенным рисунком в левом верхнем углу, а такой вариант, понимаете, не устраивает... Текст должен оставаться, а рисунок - перемещаться не в угол, а в то место, на котором отпускается клавиша мышки. Как?...