1
Сентябрь
2008
Как перемещать Image мышью?
Как перемещать Image мышью?
Нажали и зацепили координаты, дале при перемещении мыши меняется координата верхнего левого угла image и картинка перемещается за указателем.
Option Explicit Dim downX, downY Private Sub Image1_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) downX = X downY = Y End Sub Private Sub Image1_MouseMove(Button As Integer, _ Shift As Integer, X As Single, Y As Single) If Button = 1 Then Image1.Left = Image1.Left + X - downX Image1.Top = Image1.Top + Y - downY End If End Sub