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 ...') |
|||
| Riga 1: | Riga 1: | ||
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 sul medesimo ''Form''. La procedura è sostanzialmente identica a quella descritta in questa WIKI per il [[Codice_essenziale_per_effettuare_il_Drag-Drop_di_un'immagine|''Drag-Drop'' di un'immagine]]. | 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 sul medesimo ''Form''. La procedura è sostanzialmente identica a quella descritta in questa WIKI per il [[Codice_essenziale_per_effettuare_il_Drag-Drop_di_un'immagine|''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 '' | + | 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() | '''Public''' Sub Form_Open() | ||
| Riga 7: | Riga 7: | ||
.Text = "testo qualsiasi" | .Text = "testo qualsiasi" | ||
.Wrap = True | .Wrap = True | ||
| − | |||
End With | End With | ||
| − | + | With TextLabel1 | |
| + | <FONT color=gray>' ''Attiviamo la capacità della "Textlabel" di ricevere con il "_Drop()" il testo trascinato:''</font> | ||
| + | .<FONT color=#B22222>Drop = True</font> | ||
| + | .Wrap = True | ||
| + | End With | ||
'''End''' | '''End''' | ||
| Riga 23: | Riga 26: | ||
| − | '''Public''' Sub | + | '''Public''' Sub TextLabel1_Drop() |
<FONT color=gray>' ''Rilasciamo il testo nell'oggetto "TextEdit":''</font> | <FONT color=gray>' ''Rilasciamo il testo nell'oggetto "TextEdit":''</font> | ||
| − | + | TextLabel1.Text &= Drag.Data & Chr(32) | |
'''End''' | '''End''' | ||
Versione delle 16:55, 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 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
