Differenze tra le versioni di "Codice essenziale per effettuare il Drag-Drop di un'immagine"
Da Gambas-it.org - Wikipedia.
| (4 versioni intermedie di uno stesso utente non sono mostrate) | |||
| Riga 1: | Riga 1: | ||
| − | Mostriamo di seguito un codice essenziali per effettuare il ''Drag | + | Mostriamo di seguito un codice essenziali per effettuare il ''Drag&Drop'' <SUP>[[[#Note|nota 1]]]</sup> di un'immagine, ad esempio, da una ''PictureBox'' a un'altra. |
<BR>In particolare: | <BR>In particolare: | ||
| − | * la ''PictureBox'', <SPAN style="text-decoration:underline">nella</span> quale verrà effettuato il rilascio dell'icona dell'immagine trascinata, deve avere la sua | + | * la ''PictureBox'', <SPAN style="text-decoration:underline">nella</span> quale verrà effettuato il rilascio dell'icona dell'immagine trascinata, deve avere la sua Proprietà ".Drop" posta a <FONT color=Darkred>''True''</font>; |
* la ''PictureBox'', <SPAN style="text-decoration:underline">dalla</span> quale viene ''prelevata'' e trascinata l'immagine (e quindi quella alla quale sarà applicato l'evento che scatena il ''prelevamento'' dell'immagine da trascinare), deve essere quella che ovviamente <SPAN style="text-decoration:underline">contiene</span> l'immagine; | * la ''PictureBox'', <SPAN style="text-decoration:underline">dalla</span> quale viene ''prelevata'' e trascinata l'immagine (e quindi quella alla quale sarà applicato l'evento che scatena il ''prelevamento'' dell'immagine da trascinare), deve essere quella che ovviamente <SPAN style="text-decoration:underline">contiene</span> l'immagine; | ||
| − | * l' | + | * l'Evento che consente il ''prelevamento'' dell'immagine da trascinare è <FONT color=darkred>"_MouseDrag()"</font>; |
| − | * all'interno della routine di questo | + | * all'interno della routine di questo Evento si porrà la riga di comando: ''Drag.Icon = Last.Picture'', affinché durante il trascinamento appaia in prossimità del puntatore del mouse l'icona dell'immagine che si sta trascinando. Inoltre, sarà posta quest'altra riga: ''Last.Drag(Last.Picture.Image)'' per avviare il processo di ''trascinamento'', indicando nell'argomento del Metodo ".Drag()" che i dati, oggetto della procedura di ''Drag'', sono afferenti ad un'immagine (e non un testo); |
| − | * nella routine dell' | + | * nella routine dell'Evento "_Drop()" si assegnerà all'altra ''PictureBox'', che scatena il predetto ''Drop'', i dati dell'immagine oggetto del ''Drag''. |
| − | + | Public Sub Form_Open() | |
<FONT color=gray>' ''Attiviamo la capacità della "PictureBox1" di ricevere con l'Evento "_Drop()" l'immagine trascinata:''</font> | <FONT color=gray>' ''Attiviamo la capacità della "PictureBox1" di ricevere con l'Evento "_Drop()" l'immagine trascinata:''</font> | ||
| − | PictureBox1.Drop = True | + | <FONT color=#B22222>PictureBox1</font>.Drop = True |
| − | PictureBox2.Picture = Picture.Load("<FONT Color= | + | <FONT color=darkorange>PictureBox2</font>.Picture = Picture.Load("<FONT Color=darkgreen>''/percorso/del/file/immagine''</font>") |
| − | + | End | |
| − | + | ||
| + | Public Sub <FONT color=darkorange>PictureBox2</font>_MouseDrag() | ||
<FONT color=gray>' ''Preleviamo e trasciniamo l'immagine dalla "PictureBox2":''</font> | <FONT color=gray>' ''Preleviamo e trasciniamo l'immagine dalla "PictureBox2":''</font> | ||
| Riga 23: | Riga 24: | ||
' '''Last.Drag(Drag.Icon.Image)'''</font> | ' '''Last.Drag(Drag.Icon.Image)'''</font> | ||
| − | + | End | |
| + | |||
| − | + | Public Sub <FONT color=#B22222>PictureBox1</font>_Drop() | |
<FONT color=gray>' ''Rilasciamo l'immagine nella "PictureBox1":''</font> | <FONT color=gray>' ''Rilasciamo l'immagine nella "PictureBox1":''</font> | ||
| − | PictureBox1.Picture = Drag.Data.Picture | + | <FONT color=#B22222>PictureBox1</font>.Picture = Drag.Data.Picture |
| − | + | End | |
| Riga 36: | Riga 38: | ||
=Note= | =Note= | ||
[1] Vedere anche: | [1] Vedere anche: | ||
| − | + | * [[Guide_della_comunità#Drag_.26_Drop|Drag&Drop]] | |
| − | + | * [[Drag-Drop di un testo in una DrawingArea]] | |
| − | + | * [[Drag-Drop di un'immagine in una DrawingArea]] | |
| − | + | * [[Drag-Drop di un'immagine in una cella di una GridView]] | |
| − | + | * [[Drag-Drop di un testo da una cella di una GridView ad una cella di un'altra GridView]] | |
| − | + | * [[Spostare oggetti con il mouse all'interno di un contenitore mediante Drag & Drop]] | |
Versione attuale delle 17:07, 31 gen 2024
Mostriamo di seguito un codice essenziali per effettuare il Drag&Drop [nota 1] di un'immagine, ad esempio, da una PictureBox a un'altra.
In particolare:
- la PictureBox, nella quale verrà effettuato il rilascio dell'icona dell'immagine trascinata, deve avere la sua Proprietà ".Drop" posta a True;
- la PictureBox, dalla quale viene prelevata e trascinata l'immagine (e quindi quella alla quale sarà applicato l'evento che scatena il prelevamento dell'immagine da trascinare), deve essere quella che ovviamente contiene l'immagine;
- l'Evento che consente il prelevamento dell'immagine da trascinare è "_MouseDrag()";
- all'interno della routine di questo Evento si porrà la riga di comando: Drag.Icon = Last.Picture, affinché durante il trascinamento appaia in prossimità del puntatore del mouse l'icona dell'immagine che si sta trascinando. Inoltre, sarà posta quest'altra riga: Last.Drag(Last.Picture.Image) per avviare il processo di trascinamento, indicando nell'argomento del Metodo ".Drag()" che i dati, oggetto della procedura di Drag, sono afferenti ad un'immagine (e non un testo);
- nella routine dell'Evento "_Drop()" si assegnerà all'altra PictureBox, che scatena il predetto Drop, i dati dell'immagine oggetto del Drag.
Public Sub Form_Open()
' Attiviamo la capacità della "PictureBox1" di ricevere con l'Evento "_Drop()" l'immagine trascinata:
PictureBox1.Drop = True
PictureBox2.Picture = Picture.Load("/percorso/del/file/immagine")
End
Public Sub PictureBox2_MouseDrag()
' Preleviamo e trasciniamo l'immagine dalla "PictureBox2":
Drag.Icon = Last.Picture
Last.Drag(Last.Picture.Image)
' ...o anche:
' Last.Drag(Drag.Icon.Image)
End
Public Sub PictureBox1_Drop()
' Rilasciamo l'immagine nella "PictureBox1":
PictureBox1.Picture = Drag.Data.Picture
End
Note
[1] Vedere anche:
- Drag&Drop
- Drag-Drop di un testo in una DrawingArea
- Drag-Drop di un'immagine in una DrawingArea
- Drag-Drop di un'immagine in una cella di una GridView
- Drag-Drop di un testo da una cella di una GridView ad una cella di un'altra GridView
- Spostare oggetti con il mouse all'interno di un contenitore mediante Drag & Drop
