Mostrare un'immagine animata con il Drop del suo file in una MovieBox
Da Gambas-it.org - Wikipedia.
Versione del 3 feb 2019 alle 12:30 di Vuott (Discussione | contributi) (Creata pagina con "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'applic...")
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.Path = Trim(percorso) ' Attiva l'esecuzione dell'immagine animata: MovieBox1.Playing = True End