Differenze tra le versioni di "Mostrare un'immagine animata con il Drop del suo file in una MovieBox"
Da Gambas-it.org - Wikipedia.
| Riga 3: | Riga 3: | ||
Mostriamo un semplice esempio: | Mostriamo un semplice esempio: | ||
| − | + | Public Sub Form_Open() | |
<FONT color=gray>' ''Imposta la proprietà "''.Drop''" a "Vero" per consentire l'attivazione dell'evento del "Drop":''</font> | <FONT color=gray>' ''Imposta la proprietà "''.Drop''" a "Vero" per consentire l'attivazione dell'evento del "Drop":''</font> | ||
| − | + | MovieBox1.Drop = True | |
| − | + | End | |
| − | + | Public Sub MovieBox1_Drop() | |
| − | + | Dim percorso As String | |
| − | + | percorso = Drag.Paste("text/uri-list") | |
<FONT color=gray>' ''Poiché il metodo "Drag.Paste()" ritorna la rappresentazione URI del pecorso del file immagine trascinato nella "MovieBox", qualora il nome del file immagine contenga uno o più spazi, essi sarebbero riportati con i caratteri %20 (da notare che 20 è il valore ASCII in esadecimale appunto dello spazio)''. | <FONT color=gray>' ''Poiché il metodo "Drag.Paste()" ritorna la rappresentazione URI del pecorso del file immagine trascinato nella "MovieBox", qualora il nome del file immagine contenga uno o più spazi, essi sarebbero riportati con i caratteri %20 (da notare che 20 è il valore ASCII in esadecimale appunto dello spazio)''. | ||
' ''Ciò determinerebbe un errore nel successivo metodo "File.Load()". Applica, pertanto, alla stringa ritornata dal metodo "Drag.Paste()" la funzione "FromUrl()":''</font> | ' ''Ciò determinerebbe un errore nel successivo metodo "File.Load()". Applica, pertanto, alla stringa ritornata dal metodo "Drag.Paste()" la funzione "FromUrl()":''</font> | ||
| − | + | percorso = FromUrl(percorso) | |
<FONT color=gray>' ''Raccoglie la parte della stringa contenente il mero percorso del file immagine:''</font> | <FONT color=gray>' ''Raccoglie la parte della stringa contenente il mero percorso del file immagine:''</font> | ||
| − | + | percorso = Scan(percorso, "file://*")[0] | |
<FONT color=gray>' ''Assegna alla "MovieBox" il percorso del file dell'immagine animata:''</font> | <FONT color=gray>' ''Assegna alla "MovieBox" il percorso del file dell'immagine animata:''</font> | ||
| − | + | MovieBox1.Animation = Animation.Load(Trim(percorso)) | |
| − | + | End | |
Versione attuale delle 12:34, 20 giu 2024
Il caso è quello in cui si intende far mostrare da una MovieBox un'immagine animata, semplicemente trascinando il suo file, preso anche da una finestra esterna all'applicativo Gambas, e rilasciandolo all'interno della predetta MovieBox.
Mostriamo un semplice esempio:
Public Sub Form_Open()
' Imposta la proprietà ".Drop" a "Vero" per consentire l'attivazione dell'evento del "Drop":
MovieBox1.Drop = True
End
Public Sub MovieBox1_Drop()
Dim percorso As String
percorso = Drag.Paste("text/uri-list")
' Poiché il metodo "Drag.Paste()" ritorna la rappresentazione URI del pecorso del file immagine trascinato nella "MovieBox", qualora il nome del file immagine contenga uno o più spazi, essi sarebbero riportati con i caratteri %20 (da notare che 20 è il valore ASCII in esadecimale appunto dello spazio).
' Ciò determinerebbe un errore nel successivo metodo "File.Load()". Applica, pertanto, alla stringa ritornata dal metodo "Drag.Paste()" la funzione "FromUrl()":
percorso = FromUrl(percorso)
' Raccoglie la parte della stringa contenente il mero percorso del file immagine:
percorso = Scan(percorso, "file://*")[0]
' Assegna alla "MovieBox" il percorso del file dell'immagine animata:
MovieBox1.Animation = Animation.Load(Trim(percorso))
End
