Versione delle 20:11, 25 nov 2020

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. ^{[Nota 1]}

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

 Public Sub Form_Open()

   With TextArea1
     .Text = "testo qualsiasi"
     .Wrap = True
   End With
  
   With TextLabel1
' Attiviamo la capacità della "Textlabel" di ricevere con il "_Drop()" il testo trascinato:
     .Drop = True
     .Wrap = True
   End With

End


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

End


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

Va fatto notare che, qualora il testo da trascinare contenga caratteri di controllo supportati attualmente da Gambas (come ad esempio \n "fine riga e a capo"), se viene effettuato il semplice trascinamento del testo, esso sarà disegnato nella TextLabel su un'unica riga senza rispettare l'effetto dei caratteri di controllo in esso presenti. Se il testo, invece, viene evidenziato, cliccando prima con il tasto sinistro del mouse all'inizio del testo medesimo tenendo contemporaneamente premuto il tasto dello Shift, e poi cliccando (sempre tenendo premuto il tasto dello Shift) alla fine del testo, allora il testo trascinato e rilasciato nella TextLabel sarà disegnato con il rispetto dell'effetto dei caratteri di controllo supportati da Gambas.

Note

[1] Vedere anche:
- Drag&Drop
- Drag-Drop di un testo in una DrawingArea
- Drag-Drop di un'immagine in una DrawingArea
- Drag-Drop di un'immagine in una cella di una GridView
- Drag-Drop di un testo da una cella di una GridView ad una cella di un'altra GridView
- Spostare oggetti con il mouse all'interno di un contenitore mediante Drag&Drop