none
Cancelar DragEnter RRS feed

  • Pregunta

  • Hola.

    Como tengo que hacer si estoy arrastrando un objeto al Panel2 poder cancelar el arrastre antes de soltarlo en dicho Panel2 desde donde no quiero que se pueda arrastrar a ningun sitio.

        Private Sub _DragOver(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragOver
            e.Data.GetData(GetType(PictureBox))
            sender.Controls.Add(e.Data.GetData(GetType(PictureBox)))
            e.Data.GetData(GetType(PictureBox)).Location = Me.PointToClient(New Point(e.X, e.Y))
        End Sub
    
        Private Sub _MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles H1.MouseDown, H2.MouseDown, H3.MouseDown, H4.MouseDown, H5.MouseDown, H6.MouseDown, H7.MouseDown
    
            If e.Button = MouseButtons.Left Then
                sender.DoDragDrop(sender, DragDropEffects.Move)
                sender.bringtofront()
            End If
        End Sub
    
        Private Sub Panels_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PanelMesa.DragEnter ', PanelH.DragEnter
            If e.Data.GetDataPresent(GetType(PictureBox)) Then
                e.Effect = DragDropEffects.Move
                sender.Controls.Add(e.Data.GetData(GetType(PictureBox)))
                e.Data.GetData(GetType(PictureBox)).Location = New Point(0, 0)
            Else
                e.Effect = DragDropEffects.None
            End If
        End Sub

    Muchas gracias.


    • Editado Rafael F M martes, 9 de octubre de 2012 12:29
    • Cambiado Enrique M. Montejo martes, 4 de diciembre de 2012 11:07 Controles de Windows Forms (De:Lenguaje VB.NET)
    martes, 9 de octubre de 2012 12:27