Ich programmiere mit: Microsoft Visual Basic 2005 Express Edition

    Private _moving As Boolean
    Private _sp As Point
 
    Private Sub Panel_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown, _
      Panel2.MouseDown
        _moving = True
        _sp = New Point(e.X, e.Y)
    End Sub
 
    Private Sub Panel_MouseUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseUp, _
      Panel2.MouseUp
        _moving = False
    End Sub
 
    Private Sub Panel_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove, _
      Panel2.MouseMove
        Dim pan As Panel = CType(sender, Panel)
        If _moving Then
            Dim np As Point = pan.Location
            np.Offset(e.X - _sp.X, e.Y - _sp.Y)
            Dim newrec As New Rectangle(np, pan.Size)
            ' Check within form
            If Not Me.ClientRectangle.Contains(newrec) Then
                Return
            End If
            ' check not overlapping another panel
            For Each c As Control In Me.Controls
                If TypeOf c Is Panel AndAlso Not c Is pan Then
                    If c.Bounds.IntersectsWith(newrec) Then
                        Return
                    End If
                End If
            Next
            pan.Location = np
        End If
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Ich programmiere mit: Microsoft Visual Basic 2005 Express Edition