PictureBox mit der Maus bewegen

Elephant · 19. Januar 2022, 17:03

Ich möchte, wenn man mit der linken Maustaste in ein PictureBox klicke, sie verschieben können bis man die linke Mousetaste wieder loslässt.

Was ich gefunden habe ist:

VB.NET-Quellcode

Private Sub PictureBox1_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox2.Click
If e.Button = Windows.Forms.MouseButtons.Left Then
PictureBox1.Location = New Point(MousePosition.X, MousePosition.Y)
End If
End Sub

Aber e.Button ist wellig unterstrichen und es heißt "Button" ist kein Member von "Systems.EventArgs".

Soll zwar später so sein, dass wenn die PictureBox in einem bestimmten Bereich ist, dass sie auf eine fixe Position gesetzt wird und sonst wieder an den Ursprungsort springt.
Denke, das sollte ich aber selber hinbekommen.

Naifu · 19. Januar 2022, 17:16

Probiere mal das MouseUp und MouseDown Event.

Elephant · 19. Januar 2022, 17:36

Es sind mehrere PictureBoxen, die man bewegen können soll.
Da müsste ich bei MouseDown die Position der Maus abfragen um zu wissen welche PictureBox bewegt werden soll.
Dann mit einer Dauerschleife die Postion der PictureBox an die Position der Mouse zu verschieben und bei MouseUp die Schleife beenden.
Ich vermute das es auch einfachere Möglichkeiten gibt.

Naifu · 19. Januar 2022, 18:22

Käse!

VB.NET-Quellcode

Public Class Form3
Private clickedPicBox As PictureBox
Private Sub PictureBox_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown, PictureBox2.MouseDown
clickedPicBox = DirectCast(sender, PictureBox)
WhoAmI()
End Sub
Private Sub PictureBox_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp, PictureBox2.MouseUp
clickedPicBox = DirectCast(sender, PictureBox)
WhoAmI()
End Sub
Private Sub WhoAmI()
MessageBox.Show(clickedPicBox.Name)
End Sub
End Class

ErfinderDesRades · 19. Januar 2022, 18:22

warnix, sory

RodFromGermany · 19. Januar 2022, 19:30

@Elephant So was:

VB.NET-Quellcode

Public Class Form1
Dim x As Integer
Dim y As Integer
Private Sub Bild1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
x = Control.MousePosition.X - PictureBox1.Location.X
y = Control.MousePosition.Y - PictureBox1.Location.Y
PictureBox1.BringToFront()
End Sub
Private Sub Bild1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
If e.Button = MouseButtons.Left Then
Dim newpoint = Control.MousePosition
newpoint.X -= x
newpoint.Y -= y
PictureBox1.Location = newpoint
End If
End Sub
End Class

Elephant · 19. Januar 2022, 21:52

Vielen Dank an Naifu und RodFromGermany
Mit dem Einen kann ich die PictureBoxen verschieben und mit dem Anderen herausbekommen,
wenn die Maustaste losgelassen wurde für welche PictureBox ich jetzt prüfen muss,
ob sie in einem Zielbereich ist und ich sie auf die fixe Position setzen kann.

RodFromGermany · 20. Januar 2022, 16:45

@Elephant Sieh Dir mal die Funktion Rectangle.Contains(...) an:
docs.microsoft.com/de-de/dotne…gle.contains?view=net-6.0

Elephant · 20. Januar 2022, 19:04

@RodFromGermany Ich hab es jetzt für 2 PictureBoxen bewegen und 9 Fixe Position wo die PictureBoxen einrasten.
Es sollen aber noch mehr wie 2 PictureBoxen werden.
Gibt es eine Möglichkeit das Bewegen der Pic Boxen so zu schreiben, dass ich nicht für jede Box die zwei Sub brauche.
Hier mein Stand

VB.NET-Quellcode

Public Class Form1
Dim x As Integer
Dim y As Integer
Private clickedPicBox As PictureBox
Private pb() As PictureBox
Dim PicBoxName As String
Dim PicBoxNr As Integer
Dim PicBoxListe As String() = {"PictureBox1", "PictureBox2"}
Dim ListeFixPos(8, 1) As Integer
Dim X_Alt As Integer
Dim Y_Alt As Integer
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
pb = New PictureBox() {PictureBox1, PictureBox2, PictureBox3, PictureBox4}
Dim Zaehler As Integer
For i = 0 To 2
For j = 0 To 2
ListeFixPos(Zaehler, 0) = 700 + j * 72
ListeFixPos(Zaehler, 1) = 50 + i * 72
Zaehler += 1
Next
Next
End Sub
Private Sub Bild1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown
x = Control.MousePosition.X - PictureBox1.Location.X
y = Control.MousePosition.Y - PictureBox1.Location.Y
X_Alt = PictureBox1.Location.X
Y_Alt = PictureBox1.Location.Y
PictureBox1.BringToFront()
End Sub
Private Sub Bild1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
If e.Button = MouseButtons.Left Then
Dim newpoint = Control.MousePosition
newpoint.X -= x
newpoint.Y -= y
PictureBox1.Location = newpoint
End If
End Sub
Private Sub Bild2_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox2.MouseDown
x = Control.MousePosition.X - PictureBox2.Location.X
y = Control.MousePosition.Y - PictureBox2.Location.Y
X_Alt = PictureBox2.Location.X
Y_Alt = PictureBox2.Location.Y
PictureBox2.BringToFront()
End Sub
Private Sub Bild2_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox2.MouseMove
If e.Button = MouseButtons.Left Then
Dim newpoint = Control.MousePosition
newpoint.X -= x
newpoint.Y -= y
PictureBox2.Location = newpoint
End If
End Sub
Private Sub PictureBox_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp, PictureBox2.MouseUp
clickedPicBox = DirectCast(sender, PictureBox)
WhoAmI()
End Sub
'Private Sub PictureBox_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown, PictureBox2.MouseDown
' clickedPicBox = DirectCast(sender, PictureBox)
' WhoAmI()
'End Sub
Private Sub WhoAmI()
PicBoxName = clickedPicBox.Name
For i = 0 To 1
If PicBoxListe(i) = PicBoxName Then
PicBoxNr = i
End If
Next
PositionPruefen()
End Sub
Private Sub PositionPruefen()
Dim X As Integer
Dim Y As Integer
X = pb(PicBoxNr).Left
Y = pb(PicBoxNr).Top
For i = 0 To 8
If X >= ListeFixPos(i, 0) - 30 And X <= ListeFixPos(i, 0) + 30 Then
If Y >= ListeFixPos(i, 1) - 30 And Y <= ListeFixPos(i, 1) + 30 Then
pb(PicBoxNr).Location = New Point(ListeFixPos(i, 0), ListeFixPos(i, 1))
Exit Sub
End If
End If
Next
pb(PicBoxNr).Location = New Point(X_Alt, Y_Alt)
End Sub
End Class

RodFromGermany · 20. Januar 2022, 19:10

@Elephant Klar.
Da immer nur eine PictureBox auf einmal bewegt werden kann, kannst Du die EventHandler multipel einsetzen:

VB.NET-Quellcode

Public Class Form1
Dim x As Integer
Dim y As Integer
Private Sub Bild1_MouseDown(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseDown, PictureBox2.MouseDown, PictureBox3.MouseDown, PictureBox4.MouseDown
Dim pb As PictureBox = DirectCast(sender, PictureBox)
x = Control.MousePosition.X - pb.Location.X
y = Control.MousePosition.Y - pb.Location.Y
pb.BringToFront()
End Sub
Private Sub Bild1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove, PictureBox2.MouseMove, PictureBox3.MouseMove, PictureBox4.MouseMove
If e.Button = MouseButtons.Left Then
Dim pb As PictureBox = DirectCast(sender, PictureBox)
Dim newpoint = Control.MousePosition
newpoint.X -= x
newpoint.Y -= y
pb.Location = newpoint
End If
End Sub
End Class

Elephant · 20. Januar 2022, 22:41

Danke, damit müsste ich alles haben, um das Programm fertig zu stellen.

PictureBox mit der Maus bewegen

PictureBox mit der Maus bewegen

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Benutzer online 1

Ähnliche Themen

4 Benutzer haben hier geschrieben