Drag and Drop mit Pictureboxen

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von x_Str.

    Drag and Drop mit Pictureboxen

    Hallo,

    ich hab da ein Problem was das Drag and Drop bei Pictureboxen betrifft.

    Ich hab 3 Pictureboxen, 2 davon haben ein Bild.
    Wenn ich die Frucht in die gekennzeichnete Richtung verschieb verschwindet das Buch, was es aber eigentlich nicht sollte.

    Hier noch Screenshot das es vlt verständlicher ist:



    Uploaded with ImageShack.us



    Code:

    VB.NET-Quellcode

    1. Private m_MouseIsDown As Boolean 'MouseDown Event
    3. Private Sub frm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    5. 'Drag and Drop aktivieren
    6. PictureBox1.AllowDrop = True
    7. PictureBox2.AllowDrop = True
    8. PictureBox20.AllowDrop = True
    9. End Sub
    12. Private Sub PictureBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragDrop
    13. PictureBox1.Image = e.Data.GetData(DataFormats.Bitmap)
    14. If Not e.KeyState = 8 Then
    15. PictureBox2.Image = Nothing
    16. PictureBox20.Image = Nothing
    17. End If
    18. End Sub
    20. Private Sub PictureBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragEnter
    21. If e.Data.GetDataPresent(DataFormats.Bitmap) Then
    23. If e.KeyState = 9 Then
    24. e.Effect = DragDropEffects.Copy
    25. Else
    26. e.Effect = DragDropEffects.Move
    27. End If
    28. Else
    29. e.Effect = DragDropEffects.None
    30. End If
    31. End Sub
    34. Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As _
    35. System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
    36. If Not PictureBox1.Image Is Nothing Then
    37. m_MouseIsDown = True
    38. End If
    39. End Sub
    42. Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As _
    43. System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
    44. If m_MouseIsDown Then
    45. PictureBox1.DoDragDrop(PictureBox1.Image, DragDropEffects.Copy Or _
    46. DragDropEffects.Move)
    47. End If
    48. m_MouseIsDown = False
    49. End Sub
    52. Private Sub PictureBox2_DragEnter(ByVal sender As Object, ByVal e As _
    53. System.Windows.Forms.DragEventArgs) Handles PictureBox2.DragEnter
    54. If e.Data.GetDataPresent(DataFormats.Bitmap) Then
    55. If e.KeyState = 9 Then
    56. e.Effect = DragDropEffects.Copy
    57. Else
    58. e.Effect = DragDropEffects.Move
    59. End If
    60. Else
    61. e.Effect = DragDropEffects.None
    62. End If
    63. End Sub
    66. Private Sub PictureBox2_DragDrop(ByVal sender As Object, ByVal e As _
    67. System.Windows.Forms.DragEventArgs) Handles PictureBox2.DragDrop
    69. PictureBox2.Image = e.Data.GetData(DataFormats.Bitmap)
    71. If Not e.KeyState = 8 Then
    72. PictureBox1.Image = Nothing
    73. End If
    74. End Sub
    78. Private Sub PictureBox2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseDown
    79. If Not PictureBox2.Image Is Nothing Then
    81. m_MouseIsDown = True
    82. End If
    83. End Sub
    86. Private Sub PictureBox2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseMove
    87. If m_MouseIsDown Then
    88. PictureBox1.DoDragDrop(PictureBox2.Image, DragDropEffects.Copy Or _
    89. DragDropEffects.Move)
    90. End If
    91. m_MouseIsDown = False
    92. End Sub
    95. Private Sub PictureBox20_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox20.DragDrop
    97. PictureBox20.Image = e.Data.GetData(DataFormats.Bitmap)
    99. If Not e.KeyState = 8 Then
    100. PictureBox1.Image = Nothing
    101. End If
    102. End Sub
    105. Private Sub PictureBox20_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox20.DragEnter
    106. If e.Data.GetDataPresent(DataFormats.Bitmap) Then
    108. If e.KeyState = 9 Then
    109. e.Effect = DragDropEffects.Copy
    110. Else
    111. e.Effect = DragDropEffects.Move
    112. End If
    113. Else
    114. e.Effect = DragDropEffects.None
    115. End If
    116. End Sub
    119. Private Sub PictureBox20_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox20.MouseDown
    120. If Not PictureBox20.Image Is Nothing Then
    121. m_MouseIsDown = True
    122. End If
    123. End Sub
    125. Private Sub PictureBox20_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox20.MouseMove
    126. If m_MouseIsDown Then
    127. PictureBox1.DoDragDrop(PictureBox20.Image, DragDropEffects.Copy Or _
    128. DragDropEffects.Move)
    129. End If
    130. m_MouseIsDown = False
    131. End Sub




    Mfg
    x_str

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „x_Str“ ()

    Überall steht PictureBox1.Image = Nothing drin.

    VB.NET-Quellcode

    1. Private Sub PictureBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragDrop
    2. PictureBox1.Image = New Bitmap(CType(e.Data.GetData(DataFormats.Bitmap), Image))
    3. If Not e.KeyState = 8 Then
    4. PictureBox2.Image = Nothing
    5. PictureBox20.Image = Nothing
    6. End If
    7. End Sub
    9. Private Sub PictureBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox2.DragDrop
    10. PictureBox2.Image = New Bitmap(CType(e.Data.GetData(DataFormats.Bitmap), Image))
    11. If Not e.KeyState = 8 Then
    12. PictureBox1.Image = Nothing
    13. End If
    14. End Sub
    16. Private Sub PictureBox20_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox20.DragDrop
    17. PictureBox20.Image = New Bitmap(CType(e.Data.GetData(DataFormats.Bitmap), Image))
    18. If Not e.KeyState = 8 Then
    19. PictureBox1.Image = Nothing
    20. End If
    21. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hast Du meinen letzten Post überhaupt gelesen?
    Was soll denn passieren, wenn Du ein Bild gezogen hast?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Dann musst Du es löschen. :D :D :D
    Merke Dir, welches Bild Du ziehst, und wenn es losgelassen wird, lösch es.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Wenn ich bei dieser Stelle "PictureBox20.Image = Nothing" raus mach verschwindet das Buch nicht mehr.

    VB.NET-Quellcode

    1. Private Sub PictureBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragDrop
    2. PictureBox1.Image = e.Data.GetData(DataFormats.Bitmap)
    3. If Not e.KeyState = 8 Then
    4. 'PictureBox20.Image = Nothing
    6. PictureBox2.Image = Nothing
    11. End If
    12. End Sub



    Dafür aber bleibt dann das buch immer an seiner stelle und ich kanns nicht verschieben
    Dateien

    • DragDrop.rar

      (193,62 kB, 230 mal heruntergeladen, zuletzt: )

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „x_Str“ ()