Differenze tra le versioni di "Drag-Drop di un'immagine in una cella di una GridView"
Da Gambas-it.org - Wikipedia.
(Creata pagina con 'Mostriamo un semplice esempio per effettuare il trascinamento e rilascio di un'immagine in una cella di una ''GridView''. <BR>Su un ''Form'' è posta una ''GridView'' ed una '...') |
|||
Riga 1: | Riga 1: | ||
Mostriamo un semplice esempio per effettuare il trascinamento e rilascio di un'immagine in una cella di una ''GridView''. | Mostriamo un semplice esempio per effettuare il trascinamento e rilascio di un'immagine in una cella di una ''GridView''. | ||
<BR>Su un ''Form'' è posta una ''GridView'' ed una ''PictureBox'' contenente un'immagine. | <BR>Su un ''Form'' è posta una ''GridView'' ed una ''PictureBox'' contenente un'immagine. | ||
− | + | Public Sub Form_Open() | |
With GridView1 | With GridView1 | ||
Riga 8: | Riga 8: | ||
.Drop = True | .Drop = True | ||
End With | End With | ||
− | |||
− | |||
+ | PictureBox1.Picture = Picture.Load("<FONT color=gray>''/percorso/del/file/immagine''</font>") | ||
+ | |||
+ | End | ||
− | + | Public Sub PictureBox1_MouseDrag() | |
− | <FONT color=gray>' '' | + | <FONT color=gray>' ''Preleva e trascina l'immagine contenuta nella "PictureBox":''</font> |
If Mouse.Left Then | If Mouse.Left Then | ||
Drag.Icon = Last.Picture | Drag.Icon = Last.Picture | ||
Riga 20: | Riga 21: | ||
Endif | Endif | ||
− | + | End | |
+ | Public Sub GridView1_Drop() | ||
− | + | <FONT color=gray>' ''Rilascia nella cella della "GridView" l'immagine trascinata:''</font> | |
− | + | GridView1[GridView1.RowAt(Drag.Y), GridView1.ColumnAt(Drag.X)].Picture = Drag.Icon | |
− | <FONT color=gray>' '' | + | |
− | + | End | |
− | |||
− |
Versione delle 18:15, 13 giu 2023
Mostriamo un semplice esempio per effettuare il trascinamento e rilascio di un'immagine in una cella di una GridView.
Su un Form è posta una GridView ed una PictureBox contenente un'immagine.
Public Sub Form_Open() With GridView1 .Columns.Count = 3 .Rows.Count = 3 .Drop = True End With PictureBox1.Picture = Picture.Load("/percorso/del/file/immagine") End Public Sub PictureBox1_MouseDrag() ' Preleva e trascina l'immagine contenuta nella "PictureBox": If Mouse.Left Then Drag.Icon = Last.Picture Last.Drag(Last.Picture.Image) Endif End Public Sub GridView1_Drop() ' Rilascia nella cella della "GridView" l'immagine trascinata: GridView1[GridView1.RowAt(Drag.Y), GridView1.ColumnAt(Drag.X)].Picture = Drag.Icon End