Drag-Drop di un'immagine in una cella di una GridView

Da Gambas-it.org - Wikipedia.

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