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 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 "<FONT color=darkorange>AreadiTesto</font>" |
.X = 0 | .X = 0 | ||
.Y = 0 | .Y = 0 | ||
| Riga 23: | Riga 23: | ||
.Wrap = True | .Wrap = True | ||
End With | End With | ||
| − | With TextEdit1 = New TextEdit(Me) As " | + | With TextEdit1 = New TextEdit(Me) As "<FONT color=darkorange>AreadiTesto</font>" |
.X = TextArea1.W | .X = TextArea1.W | ||
.Y = 0 | .Y = 0 | ||
| Riga 37: | Riga 37: | ||
| − | Public Sub | + | Public Sub <FONT color=darkorange>AreadiTesto</font>_Drop() <FONT color=gray>' ''Rilasciamo il file di testo nella "TextArea"''</font> |
Dim percorso As String | Dim percorso As String | ||
| Riga 43: | Riga 43: | ||
percorso = Drag.Paste("text/uri-list")[0] | percorso = Drag.Paste("text/uri-list")[0] | ||
| − | + | '''Last'''.Text = File.Load(Trim(percorso)) | |
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
End | End | ||
Versione delle 09:35, 4 ago 2023
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 con il mouse (tenendo premuto il suo tasto sinistro) all'interno dell'oggetto di testo predetto. Il file di testo può essere trascinato anche da una finestra esterna all'applicativo Gambas.
Precisiamo che con il mouse va trascinato il file di testo. Non va, dunque, trascinato il testo, anche se 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:
Private TextArea1 As TextArea
Private TextEdit1 As TextEdit
Public Sub Form_Open()
With Me
.Center
.W = Screen.AvailableWidth * 0.75
.H = Screen.AvailableHeight
End With
With TextArea1 = New TextArea(Me) As "AreadiTesto"
.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
With TextEdit1 = New TextEdit(Me) As "AreadiTesto"
.X = TextArea1.W
.Y = 0
.W = Me.W * 0.5
.H = Me.H
.Background = Color.SoftYellow
' Impostiamo la proprietà ".Drop" a "vera" per consentire l'attivazione dell'evento del "Drop"
.Drop = True
.Wrap = True
End With
End
Public Sub AreadiTesto_Drop() ' Rilasciamo il file di testo nella "TextArea"
Dim percorso As String
percorso = Drag.Paste("text/uri-list")[0]
Last.Text = File.Load(Trim(percorso))
End
