Перетаскивание объектов на форме мышью - VB

Узнай цену своей работы

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

Нужно сделать такое же, только в VB 6:

Решение задачи: «Перетаскивание объектов на форме мышью»

textual
Листинг программы
Const SNAP! = 500
Dim Xdown!, Ydown!, bX As Single, bY As Single
 
 
Private Sub Form_Load()
    bX = Label1.Left: bY = Label1.Top
End Sub
 
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Xdown = X: Ydown = Y
 
End Sub
 
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim l!, t!
If Button = 1 Then
    With Label1
       .Move .Left - Xdown + X, .Top - Ydown + Y
        If Abs(.Left - Label2.Left) <= SNAP And Abs(.Top - Label2.Top) <= SNAP Then
            MsgBox "Столкновение"
            .Left = bX
            .Top = bY
            '.Left = Label2.Left
            '.Top = Label2.Top
        End If
    End With
Else
    Xdown = X: Ydown = Y
End If
End Sub

Оцени полезность:

9   голосов , оценка 3.889 из 5
Похожие ответы