1 Сентябрь 2008

Как перемещать Image мышью?

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


Оставить комментарий

Я не робот.