drag and drop su array di oggetti

[vuott]

Se alla proprietà ".Drop" della GridView nella routine " Public Sub Form_Open() "assegnamo il valore " True ", e se poi in fondo al tuo codice aggiungiamo queste due righe:

Codice: [Seleziona]

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")
  
  GridView1[GridView1.RowAt(Mouse.Y), GridView1.ColumnAt(Mouse.X)].Text = Null

End


Public Sub GridView1_Drop()
 
' Rilasciamo nella nuova cella della "GridView" il testo prelevato nell'altra cella:
  GridView1[GridView1.RowAt(Drag.Y), GridView1.ColumnAt(Drag.X)].Text = Drag.Data
 
End

sostanzialmente ci siamo.