DragDrop - Перетащить три элемента в бочку с нефтью и поджечь её - VB

Формулировка задачи:

Создайте проект, позволяющий пользователю перетащить три элемента в бочку с нефтью и поджечь её. Проект выполняется с использованием технологии DragDrop.

Код к задаче: «DragDrop - Перетащить три элемента в бочку с нефтью и поджечь её - VB»

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

11   голосов, оценка 4.091 из 5


СОХРАНИТЬ ССЫЛКУ