Differenze tra le versioni di "Mostrare il contenuto di un file di testo con il solo drop del file in un oggetto di testo"
Da Gambas-it.org - Wikipedia.
Riga 22: | Riga 22: | ||
'''Public''' Sub TextArea1_Drop() <FONT color=gray>' ''Rilasciamo il file di testo nella "TextArea"''</font> | '''Public''' Sub TextArea1_Drop() <FONT color=gray>' ''Rilasciamo il file di testo nella "TextArea"''</font> | ||
− | Dim percorso | + | Dim percorso As String |
+ | |||
+ | TextArea1.Text = Drag.Paste("text/uri-list") | ||
+ | percorso = Scan(percorso, "file://*")[0] | ||
− | TextArea1.Text = | + | TextArea1.Text = File.Load(Trim(percorso)) |
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
'''End''' | '''End''' | ||
Riga 38: | Riga 35: | ||
'''Public''' Sub TextEdit1_Drop() <FONT color=gray>' ''Rilasciamo il file di testo nell'oggetto "TextEdit"''</font> | '''Public''' Sub TextEdit1_Drop() <FONT color=gray>' ''Rilasciamo il file di testo nell'oggetto "TextEdit"''</font> | ||
− | Dim percorso | + | Dim percorso As String |
− | + | ||
− | + | percorso = Drag.Paste("text/uri-list") | |
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
+ | percorso = Scan(percorso, "file://*")[0] | ||
− | + | TextEdit1.Text = File.Load(Trim(percorso)) | |
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
'''End''' | '''End''' |
Versione delle 08:48, 15 lug 2016
Il caso è quello in cui si intende far mostrare da un oggetto di testo il contenuto di un file di testo solo e semplicemente trascinando tale file, preso anche da una finestra esterna all'applicativo Gambas, e rilasciandolo all'interno dell'oggetto di testo medesimo.
L'esempio pratico seguente prevede la presenza sul Form dell'applicativo Gambas di una TextArea e di una TextEdit. In tal modo si potrà fare l'esperimento trascinando e rilasciando, a piacimento, il file di testo sia all'interno della TextArea sia all'interno della TextEdit:
Public Sub Form_Open() With TextArea1 ' Impostiamo la proprietà ".Drop" a "vera" per consentire l'attivazione dell'evento del "Drop" .Drop = True .Wrap = True End With With TextEdit1 ' Impostiamo la proprietà ".Drop" a "vera" per consentire l'attivazione dell'evento del "Drop" .Drop = True .Wrap = True End With End Public Sub TextArea1_Drop() ' Rilasciamo il file di testo nella "TextArea" Dim percorso As String TextArea1.Text = Drag.Paste("text/uri-list") percorso = Scan(percorso, "file://*")[0] TextArea1.Text = File.Load(Trim(percorso)) End Public Sub TextEdit1_Drop() ' Rilasciamo il file di testo nell'oggetto "TextEdit" Dim percorso As String percorso = Drag.Paste("text/uri-list") percorso = Scan(percorso, "file://*")[0] TextEdit1.Text = File.Load(Trim(percorso)) End