Wie kann ich verschieben eines Elements durch klicken und halten das Objekt mit der Maus?

Arbeite ich an einem einfachen Programm, das verlangt, dass ich in der Lage sein, um wählen Sie ein Bild-Feld und verschieben Sie es an eine neue Position durch ziehen mit der Maus. Dies ist alle relevanten code habe ich mit kommen derzeit haben. Allerdings, wenn ich das Programm starte versucht es zu verschieben, wo ich will, es zu gehen, dann scheint es, wieder zurück zu seiner vorherigen Position.

Edit: es ist in einem container. Ist dies ohne Relevanz.

Variablen

Dim startx As Integer
Dim starty As Integer
Dim endy As Integer
Dim endx As Integer
Dim finalx As Integer
Dim finaly As Integer
Dim mdown As Boolean
Dim valx As Boolean
Dim valy As Boolean

Code, um das Bild zu verschieben 

 Private Sub picbox_MouseDown(Absender Als Object, e As System.Windows.Formulare.MouseEventArgs) Handles picbox.MouseDown 
startx = MousePosition.X 
starty = MousePosition.Y 
mdown = True 
valx = False 
valy = False 
End Sub
 

Private Sub Main_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove

End Sub

Private Sub picbox_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles picbox.MouseMove
    'Check if mouse=down
    If mdown = True Then
        endx = (MousePosition.X - Me.Left)
        endy = (MousePosition.Y - Me.Top)

        If valy = False Then
            starty = endy - sender.top
            valy = True
        End If
        If valx = False Then
            startx = endx - sender.left
            valx = True
        End If
        sender.left = endx - startx
        sender.top = endy - starty


    End If
End Sub

Private Sub picbox_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles picbox.MouseUp
    mdown = False
    valx = False
    valy = False

End Sub

  • Habe versucht den code mit einem einfachen Formular und nur ein Bild angezeigt. Die gute Nachricht ist: Es funktioniert, die schlechte Nachricht ist: ich kann nicht finden, wo ist dein Fehler.
  • Ich habe es in einem layout-container. Könnte dies etwas damit zu tun?
  • Es ist eine winforms-app, richtig? In welcher Art von Steuerelement-container-Sie haben Ihre picturebox? In meinem test, ohne container, direkt auf den client-Bereich des Formulars, funktioniert alles wie erwartet.
InformationsquelleAutor nick122 | 2012-06-25
  1. 2

    Entfernen Sie es aus dem Behälter. Das ist wahrscheinlich das, was ist, wodurch Sie die Probleme wie Ihr code funktioniert perfekt für mich.

    • Heilige Scheiße, das hat geklappt. Irgendwelche Ideen, warum dies gab mir die Probleme?
    • Hängt von der container-aber wenn es eine flow-container, wenn etwas war angedockt, das könnte die Probleme verursacht haben.
    InformationsquelleAutor Freesnöw
  2. 1

    Schalten Sie den Autosize Eigenschaft.

    • Sowohl die form, die container, und auch auf jedes andere Steuerelement, das sichtbar ist und möglicherweise an der Verankerung? Welcher Typ ist nun der container?
    InformationsquelleAutor Jirka Hanika
  3. 1

    Drehen AutoSize Sicher andocken der picturebox ist ausgeschaltet und sicherzustellen, dass der Anker Oben Links

    InformationsquelleAutor goughy000
  4. 0

    Diese funktioniert bei mir:

    Private _isMoved As Boolean 
Private _x As Integer
Private _y As Integer

Private Sub Control_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Control.MouseDown
        _isMoved = True
        _x = e.Location.X
        _y = e.Location.Y
    End Sub

Private Sub Control_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Control.MouseMove
    If _isMoved Then
        Control.Location = New Point(Control.Location.X + (e.Location.X - _x), Control.Location.Y + (e.Location.Y - _y))
    End If
End Sub

Private Sub Control_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Control.MouseUp
   _isMoved = False
End Sub
    InformationsquelleAutor VCLHD
Schreibe einen Kommentar