Mostrare il contenuto di un file di testo con il solo drop del file in un oggetto di testo
Da Gambas-it.org - Wikipedia.
Versione del 6 nov 2016 alle 07:56 di Vuott (Discussione | contributi)
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.
Precisiamo che bisognerà trascinare il file di testo con il mouse, tenendo premuto il suo tasto sinistro. Non si dovrà tentare di trascinare il testo, magari dopo averlo evidenziato, del file !
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 percorso = 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