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