Hilfe bei Drag and Drop

Computer: Software & Programmierung Visual Basic
#1

Hallo,
ich habe ein Problem mit der Drag&Drop Funktion
Auf meiner Form habe ich 4 PictureBoxen. In einer
dieser PictureBoxen ist ein Bild, welches ich gern per
Drag&Drop in die anderen PictureBoxen verschieben will.
Es Funktioniert dahingehen schon, das mir das Bild dann
in der ZielPictureBox angezeigt wird. Da ich es aberverschieben,
soll es in der UrsprungsPictureBox nicht mehr zu sehen
sein.
Eine Lösung mit zwei PictureBoxen würde zum löschen diesen Code
benötigen:

If sender Is pic1 Then
 pic2.Image = Nothing
ElseIf sender Is pic2 Then
 pic1.Image = Nothing
End If

Aber 4 Kästchen hätten nun schon 16 verschiedene möglichkeiten,
die man alle abfangen müsste.
Nur Leider habe ich keine gute Idee wie man das machen kann ohne
jede der 16 möglichkeiten wie dort einzeln zu definieren.
Wäre sehr Dankbar wenn mir jemand dabei helfen könnte

Zum besseren verständniss ist heir noch der gesamte Code des Projekts

Public Class Form1

 Private Sub Form1\_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 pic1.AllowDrop = True
 pic2.AllowDrop = True
 pic3.AllowDrop = True
 pic4.AllowDrop = True
 End Sub

 Private Sub PictureBox\_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pic1.MouseDown, pic2.MouseDown, pic3.MouseDown, pic4.MouseDown
 If e.Button = Windows.Forms.MouseButtons.Left Then
 Dim pic As PictureBox = CType(sender, PictureBox)
 If Not pic.Image Is Nothing Then
 pic.DoDragDrop(pic.Image, DragDropEffects.Move)
 End If
 End If
 End Sub

 Private Sub PictureBox\_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles pic1.DragEnter, pic2.DragEnter, pic3.DragEnter, pic4.DragEnter
 If (e.Data.GetDataPresent(DataFormats.Bitmap)) Then
 e.Effect = DragDropEffects.Move
 Else
 e.Effect = DragDropEffects.None
 End If
 End Sub

 Private Sub PictureBox\_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles pic1.DragDrop, pic2.DragDrop, pic3.DragDrop, pic4.DragDrop
 Dim pic As PictureBox = CType(sender, PictureBox)
 pic.Image = CType(e.Data.GetData(DataFormats.Bitmap), Bitmap)

 If sender Is pic1 Then
 pic2.Image = Nothing
 ElseIf sender Is pic2 Then
 pic1.Image = Nothing
 End If
 End Sub

End Class
#2

Hallo,

ich habe ein Problem mit der Drag&Drop Funktion
Auf meiner Form habe ich 4 PictureBoxen. In einer
dieser PictureBoxen ist ein Bild, welches ich gern per
Drag&Drop in die anderen PictureBoxen verschieben will.
Es Funktioniert dahingehen schon, das mir das Bild dann
in der ZielPictureBox angezeigt wird. Da ich es
aberverschieben,
soll es in der UrsprungsPictureBox nicht mehr zu sehen
sein.

Ok, das ist sicherlich nicht schwer :smile:
ABER, wir sind hier in einem VB Forum, welches nicht das .NET ist!
Von daher findest du im Normalfall, hier keine Lösung!
Aber zu deinem Problem

Wieso machst du es dir so unnötig schwer?
Du kannst doch via Drag and Drop komplette Objecte verschieben!
Ein Object wiederrum hat Eigenschaften und diese mache dich zu nutzen.
Verschiebe nicht das Bild oder die Picturebox, sondern schiebe die Daten in eine Klasse und schiebe die dann :smile:

So kannst du auch genau überprüfen ob es definitiv Daten sind die von den Pictureboxen kommen! Hört sich kompliziert an ? Ist es nicht :wink:

Hier mal dein Source ein wenig abgeaendert :smile:

Public Class Form1

 Private Sub Form1\_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 pic1.AllowDrop = True
 pic2.AllowDrop = True
 pic3.AllowDrop = True
 Pic4.AllowDrop = True
 End Sub

 Private Sub PictureBox\_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Pic1.MouseDown, Pic2.MouseDown, Pic3.MouseDown, Pic4.MouseDown
 If e.Button = Windows.Forms.MouseButtons.Left Then
 Dim pic As PictureBox = DirectCast(sender, PictureBox)
 If Not pic.Image Is Nothing Then
 pic.DoDragDrop(New MyData(pic), DragDropEffects.Move)
 End If
 End If
 End Sub

 Private Sub PictureBox\_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Pic1.DragEnter, Pic2.DragEnter, Pic3.DragEnter, Pic4.DragEnter
 If e.Data.GetDataPresent(GetType(MyData)) Then
 e.Effect = DragDropEffects.Move
 Else
 e.Effect = DragDropEffects.None
 End If
 End Sub

 Private Sub PictureBox\_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Pic1.DragDrop, Pic2.DragDrop, Pic3.DragDrop, Pic4.DragDrop
 Dim Data As MyData = DirectCast(e.Data.GetData(GetType(MyData)), MyData)
 DirectCast(sender, PictureBox).Image = Data.PB.Image
 Data.PB.Image = Nothing
 End Sub

End Class

Friend Class MyData
 Private MPB As PictureBox

 Protected Friend Property PB() As PictureBox
 Get
 Return MPB
 End Get
 Set(ByVal value As PictureBox)
 MPB = value
 End Set
 End Property

 Sub New(ByVal P1 As PictureBox)
 MPB = P1
 End Sub
End Class

MfG Alex