Codice essenziale per effettuare il Drag-Drop di un testo

Mostriamo di seguito il codice essenziale per effettuare il Drag-Drop di un testo qualsiasi da un oggetto ad un altro posti sul medesimo Form. La procedura è sostanzialmente identica a quella descritta in questa WIKI per il Drag-Drop di un'immagine.

Nel nostro esempio abbiamo una TextArea, dalla quale verrà prelevato il testo, che sarà quindi trascinato e poi rilasciato in un TextEdit:

 Public Sub Form_Open()

   With TextArea1
     .Text = "testo qualsiasi"
     .Wrap = True
     .Drop = True
   End With
  
   TextEdit1.Wrap = True

End


Public Sub TextArea1_MouseDrag()
 
' Preleviamo e trasciniamo il testo dalla "TextArea":
   TextArea1.Drag(TextArea1.Text, "text/html")

End


Public Sub TextEdit1_Drop()
 
' Rilasciamo il testo nell'oggetto "TextEdit":
   TextEdit1.Text &= Drag.Data & Chr(32)
 
End