Drag-Drop di un testo da una cella di una GridView ad una cella di un'altra GridView

Mostriamo un semplice esempio per effettuare il trascinamento di un testo da una cella di una GridView (che chiameremo "GridView1") ed il successivo rilascio in una cella di un'altra GridView (che chiameremo "GridView2").

Public Sub Form_Open()

 With GridView1
   .Columns.Count = 3
   .Rows.Count = 3
 End With

 GridView1[1, 0].Text = "testo qualsiasi"
 GridView1.Columns[0].W = -1

 With GridView2
   .Columns.Count = 3
   .Rows.Count = 3
   .Drop = True
 End With

End


Public Sub GridView1_MouseDrag()
 
' Preleviamo e trasciniamo il testo individuando precisamente la cella della "GridView":
 GridView1.Drag(GridView1[GridView1.RowAt(Mouse.Y), GridView1.ColumnAt(Mouse.X)].Text, "text/html")

End


Public Sub GridView2_Drop()
 
' Rilasciamo nella cella della seconda "GridView" il testo prelevato nella prima "GridView":
 GridView2[GridView2.RowAt(Drag.Y), GridView2.ColumnAt(Drag.X)].Text = Drag.Data
 
End