Перемещаем контрол(ы) по форме

"Таскаем" контрол по форме c помощью мышки.

Перемещать будем кнопку (можно сделать практически с любым контролом).

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Cursor = Cursors.SizeAll
    End Sub
    Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
        If Control.MouseButtons = Windows.Forms.MouseButtons.Left Then
            CType(sender, Button).Left = Control.MousePosition.X - Me.Left - CType(sender, Button).Width
            CType(sender, Button).Top = Control.MousePosition.Y - Me.Top - CType(sender, Button).Height
        End If
    End Sub
End Class

Запускаем проект на исполнение и пробуем потаскать свою кнопку.

  Метки:
  Евгений
  Просмотров: 6 777
  Запись опубликована в 09:24

2 комментария

Есть что сказать? Тогда действуй!