FormDragger Class

Public Class FormDragger
	Implements IDisposable

Dim instance As FormDragger

public ref class FormDragger : IDisposable

type FormDragger = 
    class
        interface IDisposable
    end

No code example is currently available or this language may not be supported.

Public Class Form1 : Inherits Form

    ''' <summary>
    ''' The <see cref="FormDragger"/> instance that manages the form(s) dragging.
    ''' </summary>
    Friend FormDrag As FormDragger = FormDragger.Empty

    Private Sub Test() Handles MyBase.Shown
        Me.InitializeDrag()
    End Sub

    Private Sub InitializeDrag()

        ' 1st way, using the single-Form constructor:
        Me.FormDrag = New FormDragger(Me, enabled:=True, cursor:=Cursors.SizeAll)

        ' 2nd way, using the multiple-Forms constructor:
        ' Me.FormDrag = New FormDragger({Me, Form2, form3})

        ' 3rd way, using the default constructor then adding a Form into the collection:
        ' Me.FormDrag = New FormDragger
        ' Me.FormDrag.AddForm(Me, enabled:=True, cursor:=Cursors.SizeAll)

    End Sub

    ''' <summary>
    ''' Alternates the dragging enabled of the specified form.
    ''' </summary>
    ''' <param name="form">The form.</param>
    Private Sub AlternateDragEnabled(ByVal form As Form)

        Dim formInfo As FormDragInfo = Me.FormDrag.FindFormDragInfo(form)
        formInfo.Enabled = Not formInfo.Enabled

    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) _
    Handles Button1.Click

        Me.AlternateDragEnabled(Me)

    End Sub

End Class

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.