Перетаскивание объектов на форме мышью - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д