Как перетаскивать объекты на форме только по определенным направлениям

@Rayrat89 · Регистрация: 14.06.2012

Author24 — интернет-сервис помощи студентам

Имеется группа объектов которые можно перетаскивать по форме (использованы Button)
Использован вот такой код:

VB.NET

 Private Sub Button_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        If Button.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
 
 AddHandler (Button1.MouseMove), AddressOf Button_MouseMove
        Me.Controls.Add(Button1)
        AddHandler (Button2.MouseMove), AddressOf Button_MouseMove
        Me.Controls.Add(Button2)
        AddHandler (Button1.MouseMove), AddressOf Button_MouseMove
        Me.Controls.Add(Button1)
        AddHandler (Button3.MouseMove), AddressOf Button_MouseMove
        Me.Controls.Add(Button3)
        AddHandler (Button3.MouseMove), AddressOf Button_MouseMove
        .........

Как можно прицепить эти объекты к определенным маршрутам? чтобы можно было перемещать их по определенным путям, линиям (чтобы они как бы скользили по ним)

Подскажите пожалуйста варианты решения, направление действий)
Буду рад любой информации
Заранее спасибо)

	14.12.2012, 10:22