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