Перемещение мышью картинки на форме - VB

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

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

напишите пожалуйста программу передвигающая картинку по форме курсором, причём должно сохраятся расстояние от курсора до картинки

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

textual
Листинг программы
Dim xp, yp, t, l
 
Private Sub Form_Load()
Picture1.MousePointer = 15
End Sub
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
yp = Y: xp = X
End If
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
With Picture1
t = .Top
l = .Left
.Move l + X - xp, t + Y - yp
End With
End If
End Sub

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

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