DragDrop - Перетащить три элемента в бочку с нефтью и поджечь её - VB
Формулировка задачи:
Создайте проект, позволяющий пользователю перетащить три элемента в бочку с нефтью и поджечь её. Проект выполняется с использованием технологии DragDrop.
Решение задачи: «DragDrop - Перетащить три элемента в бочку с нефтью и поджечь её»
textual
Листинг программы
Option Explicit ' defaults: ' timer1.enabled=false 'timer1.interval=10 Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single) If Source = imgElem1 Then Source.Left = X Source.Top = Y End If End Sub Private Sub imgBochka_DragOver(Source As Control, X As Single, Y As Single, State As Integer) If Source = imgElem1 Then Source.Left = X + imgBochka.Left Source.Top = Y + imgBochka.Top End If End Sub Private Sub imgElem1_DragDrop(Source As Control, X As Single, Y As Single) Timer1.Enabled = True imgDim.Visible = True imgElem1.Visible = False End Sub Private Sub imgElem1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) imgElem1.Drag vbBeginDrag End Sub Private Sub Timer1_Timer() Randomize If imgDim.Top < 0 Then Timer1.Enabled = False imgDim.Visible = False End If imgDim.Move imgDim.Left - Int(9 * Rnd - 6), imgDim.Top - Int(7 * Rnd + 5) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д