Differenze tra le versioni di "Mostrare il contenuto di un file di testo con il solo drop del file in un oggetto di testo"
Riga 1: | Riga 1: | ||
− | + | Per far mostrare da un Controllo per il testo il contenuto di un file di testo, si dovrà solo e semplicemente <SPAN Style="text-decoration:underline">trascinare tale '''file'''</span> con il mouse (tenendo premuto il suo tasto sinistro) all'interno del Controllo di testo. | |
− | <BR> | + | <BR>Il file di testo può essere trascinato da una Cartella o anche da una finestra di un qualsiasi programma esterno. |
+ | <BR>Ripetiamo che con il mouse va trascinata l'<SPAN Style="text-decoration:underline">icona</span> che rappresenta il <SPAN Style="text-decoration:underline">file</span> di testo. | ||
− | L'esempio pratico seguente prevede la presenza sul ''Form'' dell'applicativo Gambas di una ''TextArea'' e | + | 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 | Private TextArea1 As TextArea | ||
− | |||
Riga 14: | Riga 14: | ||
.H = Screen.AvailableHeight | .H = Screen.AvailableHeight | ||
End With | End With | ||
− | With TextArea1 = New TextArea(Me) As " | + | With TextArea1 = New TextArea(Me) As "TextArea1" |
.X = 0 | .X = 0 | ||
.Y = 0 | .Y = 0 | ||
.W = Me.W * 0.5 | .W = Me.W * 0.5 | ||
.H = Me.H | .H = Me.H | ||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
<FONT color=gray>' ''Impostiamo la proprietà ".Drop" a "vera" per consentire l'attivazione dell'evento del "Drop"''</font> | <FONT color=gray>' ''Impostiamo la proprietà ".Drop" a "vera" per consentire l'attivazione dell'evento del "Drop"''</font> | ||
.Drop = True | .Drop = True | ||
Riga 37: | Riga 27: | ||
− | Public Sub | + | Public Sub TextArea1_Drop() <FONT color=gray>' ''Rilasciamo il file di testo nella "TextArea"''</font> |
Dim percorso As String | Dim percorso As String | ||
Riga 43: | Riga 33: | ||
percorso = Drag.Paste("text/uri-list")[0] | 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''. | ||
+ | <BR>Ad ogni modo si può abbreviare la seconda routine come segue | ||
+ | Public Sub TextArea1_Drop() | ||
+ | |||
+ | TextArea1.Text = File.Load(FileChooser1.SelectedPath) | ||
End | End |
Versione delle 21:25, 11 ott 2023
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 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