Mostrare il contenuto di un file di testo con il solo drop del file in un oggetto di testo
Per far mostrare da un Controllo per il testo il contenuto di un file di testo, si dovrà solo e semplicemente trascinare tale file con il mouse (tenendo premuto il suo tasto sinistro) all'interno del Controllo di testo.
Il file di testo può essere trascinato da una Cartella, da un Controllo grafico del programma Gambas che mostri il file di testo, o anche da una finestra di un qualsiasi programma esterno.
Ripetiamo che con il mouse va trascinata l'icona che rappresenta il file di testo.
L'esempio pratico seguente prevede la presenza sul Form dell'applicativo Gambas di una TextArea, nella quale si trascinerà e si rilascerà quindi il file di testo:
Private TextArea1 As TextArea Public Sub Form_Open() With Me .Center .W = Screen.AvailableWidth * 0.75 .H = Screen.AvailableHeight End With With TextArea1 = New TextArea(Me) As "TextArea1" .X = 0 .Y = 0 .W = Me.W * 0.5 .H = Me.H ' 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")[0] TextArea1.Text = File.Load(Trim(percorso)) End
Trascinando il file di testo prelevandolo da un FileChooser
Il precedente codice va bene anche se vogliamo trascinare un file prescelto dalla lista mostrata da un Controllo FileChoser.
Ad ogni modo si può abbreviare la seconda routine come segue
Public Sub TextArea1_Drop() TextArea1.Text = File.Load(FileChooser1.SelectedPath) End