374 / 12 / 3
Регистрация: 07.12.2012
Сообщений: 169
1

Перетаскивание объекта по форме и "прилипание" его к другому объекту

07.12.2012, 19:27. Показов 1385. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
вот если взять такой код
Visual Basic
1
2
3
4
5
6
7
8
Private Sub Image3_DragDrop(Source As Control, x As Single, y As Single)
'приклейка
Image3.Picture = Source.Picture
End Sub
Private Sub Image4_MouseDown(button As Integer, shift As Integer, x As Single, y As Single)
'перетаскивание
If button = 1 Then Call Image4.Drag(vbBeginDrag)
End Sub
то он хорошо, приклеивается , но по форме очень не красиво перетаскивается (окантовка объекта тащится только).
ПРИ использовании красивого перетаскивания
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Image4_MouseDown(button As Integer, shift As Integer, x As Single, y As Single)
      m_Dragging = True
     m_StartX = x
    m_StartY = y
End Sub
 
Private Sub Image4_MouseMove(button As Integer, shift As Integer, x As Single, y As Single)
 If m_Dragging Then
    Image4.Move _
          Image4.Left + (x - m_StartX), _
          Image4.Top + (y - m_StartY)
   End If
 End Sub
 
Private Sub Image4_MouseUp(button As Integer, shift As Integer, x As Single, y As Single)
   If m_Dragging Then m_Dragging = False
End Sub
но уже при этом коде не работает присваивание картинки в другую
то есть этот кусок
Visual Basic
1
2
3
Private Sub Image3_DragDrop(Source As Control, x As Single, y As Single)
Image3.Picture = Source.Picture
End Sub
как сделать красивое перетаскивание + приклеивание ?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.12.2012, 19:27
Ответы с готовыми решениями:

Поворот объекта к другому объекту
В игре есть помощник и враги. Помощник идёт к врагу, и уничтожает его. Но ему надо поворачиваться к...

Притягивание объекта к другому объекту
Кристалл спавнится на месте врага. Как реализовать плавное движение кристалла к игроку и...

Движение 1 объекта к другому объекту
Как делать так, чтобы объект 1 считывал координаты объекта 2 и двигался к нему?

Движение объекта к другому объекту
На углу экрана(без разница где) стоит маленькое изображение коробки, а на других местах другие...

4
179 / 57 / 0
Регистрация: 10.07.2012
Сообщений: 347
Записей в блоге: 2
07.12.2012, 19:40 2
Это исходник тебе поможет
Вложения
Тип файла: rar 1.rar (3.5 Кб, 49 просмотров)
0
179 / 57 / 0
Регистрация: 10.07.2012
Сообщений: 347
Записей в блоге: 2
07.12.2012, 19:42 3
В место одного Image используй Picture
0
374 / 12 / 3
Регистрация: 07.12.2012
Сообщений: 169
07.12.2012, 20:13  [ТС] 4
так ну то что в архиве, мне понравилось.
но желательно сделать в image т.к. пикчер особо не оформишь (прозрачный нужен объект куда запихиваем)

Добавлено через 4 минуты
СПАСИБО
ВОПРОС РЕШЕН)
ПИКЧЕР МЕНЯЕМ НА IMAGE И ВСЕ НОРМИК
0
374 / 12 / 3
Регистрация: 07.12.2012
Сообщений: 169
12.12.2012, 19:25  [ТС] 5
Простите вопрос не решился.
все нормально работает с одним объектом. то есть 1 imgage пихнуть в несколько других.
но мне надо 5 разных имаджев пихнуть в 15других ?
тогда встает вопрос.
Visual Basic
1
2
3
4
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Image1.Left = X 
Image1.Top = Y 
End Sub
и вот как прописать для 5 штук?
теперь:
Visual Basic
1
2
3
4
Private Sub Image2_DragDrop(Source As Control, X As Single, Y As Single)
Image2.Picture = Image1.Picture
'Image2.Picture = Image3.Picture
End Sub
при перетаскивании image3 в image2 может залезть первый, а это не есть хорошо.
ВООБЩЕМ задача: перетаскиванием засунуть некоторое число объектов(например 5штук) в другие(20штук), произвольно. заранее спасибо.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.12.2012, 19:25
Помогаю со студенческими работами здесь

Прикрепление позиции объекта к другому объекту
Если объект А на х = 10, у = 10, z = 10, то объект Б должен быть на х = 10, у = 10, z = 20, то...

Как сделать перемещение объекта к другому объекту
Я еще новичок, но... Надо чтобы при нажатии на объект1 он находил бы на сцене объект2 и...

Почему допустимо создавать объект по другому объекту, но нельзя присваивать уже созданный объект, другому созданному объекту?
Это можно : Array a(10); a.set(0,5); Array b(a); А это нельзя : Array a(10); Array b(20);...

Как присвоить значения из одного объекта другому объекту?
у меня два объекта, мне надо присвоить значения из одного объекта другому объекту, как это можно...

Почему конструктор вызывается при присвоении объекта другому объекту
оператор+ выполняется нормально, но когда уже переменная в sum, на след шаге она вызывает...

Перетаскивание объекта по форме
Здравствуйте! Требуется реализовать динамическое создание объекта с возможностью менять его...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru