Подскажите, плиз.

[Druid-2004]

Есть форма. На ней размещена картинка. Как сделать так, чтобы эту картинку можно было бы таскать по форме, цепляя ее мышкой, но так, чтобы при перетаскивании, картинка не превращалась в рамку, а чтобы ее было видно при перетаскивании.

Заранее, очень благодарен за помощь.
... Буду благодарен за пример.

[GSerg]

Код: Выделить всё

Option Explicit

Private InMotion As Boolean, pX As Long, pY As Long

Private Sub Form_Load()
  Picture1.Picture = LoadPicture("D:\Dist\!wallpaper\Wallpaper\Ïîëåò.jpg")
  Picture1.ScaleMode = vbPixels
  Me.ScaleMode = vbPixels
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = vbLeftButton Then InMotion = True: pX = X: pY = Y
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If InMotion Then Picture1.Move Picture1.Left + X - pX, Picture1.Top + Y - pY
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  InMotion = False
End Sub

[tyomitch]

У меня проще

Код: Выделить всё

Option Explicit
Dim dx As Single, dy As Single

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If (Button And vbLeftButton) Then dx = X: dy = Y
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If (Button And vbLeftButton) Then Picture1.Move Picture1.Left + X - dx, Picture1.Top + Y - dy
End Sub

Что самое интересное, набирал я это одновременно с тобой. Захотел послать, смотрю - а ты уже своё послал

[GSerg]

Зато у меня быстрее работает, поскольку каждый раз проверяется значение одной переменной (раз), а вычисления не single, а long (два)

[Druid-2004]

Пасиба, большое... прям не знаю, как благадарить..

[Egor_moscow]

А можно было и через апи реализовать.......

[GSerg]

А зачем?

[Egor_moscow]

ну не знаю по мне так лучше будет тем более что там всего-то 3 строчки