Differenze tra le versioni di "Codice essenziale per effettuare il Drag-Drop di un testo"
Da Gambas-it.org - Wikipedia.
(Creata pagina con 'Mostriamo di seguito il codice <SPAN style="text-decoration:underline">essenziale</span> per effettuare il ''Drag-Drop'' di un testo qualsiasi da un oggetto ad un altro posti ...') |
(Nessuna differenza)
|
Versione delle 16:35, 26 ott 2013
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