[VB.NET] Drag & drop di un controllo Panel

[0-c00l]

Salve, vorrei aver la possibilità di draggare un panel (chiamato Panel1) nel form attraverso una picturebox chiamata "windowstop" che funge quindi da handle.

Ho provato svariati codici, svariate guide (che però non trattavano proprio questo) ma niente.

Grazie in anticipo per l' aiuto.

[oregon]

Non ho capito bene la questione della picturebox ...

P.S. Hai dimenticato il linguaggio nel titolo, come da regolamento ...

[0-c00l]

Si scusa, non ricordavo del titolo, è da un po' che non posto.

Comunque il fatto della picturebox è il seguente..

nel Panel c'è una Picturebox e vorrei che trascinando quella venga trascinato tutto il panel.

[oregon]

Non hai ancora indicato il linguaggio ...

Quindi, hai una applicazione in cui c'è un form dove c'è un panel con una picturebox inserita al suo interno. Corretto?

E vuoi fare il drag&drop di questo pannello con la picturebox ... dove? In un'altra form? Nello stesso programma?

[0-c00l]

Nello stesso form

PS: Non ricordavo che si potesse modificare il titolo, lo faccio subito.

[oregon]

Originariamente inviato da 0-c00l
Nello stesso form

Ma non è drag&drop ... vuoi solo "spostare" un Panel nel form ...

Se puoi, chiarisci con una immagine ...

PS: Non ricordavo che si potesse modificare il titolo, lo faccio subito.

A questo punto lascia stare il titolo e indica il linguaggio in una risposta ...

[0-c00l]

Il linguaggio è vb.net, ho modificato anche nel titolo.

Ma non è drag&drop ... vuoi solo "spostare" un Panel nel form ...

Il Drag&Drop è lo spostamento di un qualcosa, quindi...

PS: Non posso fartelo vedere, immagina questa struttura:

[PANEL]
[IMMAGINE]
[/PANEL]

Trascinando [IMMAGINE] si sposta [PANEL] , quindi anche [IMMAGINE] al suo interno.

[oregon]

Per capire meglio, che codice avevi provato a scrivere fino ad ora?

[0-c00l]

Li ho cancellati tutti, quindi non posso riscriverli, ma posso darti i topic su cui mi sono basato.

http://www.vb-helper.com/howto_net_drag_drop.html
http://msdn.microsoft.com/en-us/libr...=vs.71%29.aspx
http://www.dotnethell.it/forum/messa...?ThreadID=5803
http://blogs.dotnethell.it/sandro/Dr...et__12400.aspx

Ma ovviamente essendo diversi dal mio caso non ho capito molto come modificarli.

[oregon]

Continuo a non essere convinto del tuo drag&drop ... probabilmente vuoi fare solo questo

    Private md As Boolean
    Private mp As Point

    Private Sub Panel1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
        md = True
        mp = New Point(e.X, e.Y)
    End Sub

    Private Sub Panel1_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
        If md Then
            Panel1.Location = PointToClient(sender.PointToScreen(New Point(e.X - mp.X, e.Y - mp.Y)))
        End If
    End Sub

    Private Sub Panel1_MouseUp(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseUp
        md = False
    End Sub