Differenze tra le versioni di "Mostrare un'immagine con il Drop del suo file in una PictureBox"
Da Gambas-it.org - Wikipedia.
Riga 17: | Riga 17: | ||
dati = Drag.Paste("text/uri-list") | dati = Drag.Paste("text/uri-list") | ||
+ | <FONT color=gray>' ''Raccogliamo la parte della stringa contenente il mero percorso del file immagine:''</font> | ||
dati = Scan(dati, "file://*")[0] | dati = Scan(dati, "file://*")[0] | ||
Versione delle 08:37, 15 lug 2016
Il caso è quello in cui si intende far mostrare da una PictureBox un'immagine, semplicemente trascinando il suo file, preso anche da una finestra esterna all'applicativo Gambas, e rilasciandolo all'interno della predetta PictureBox.
Mostriamo un semplice esempio:
Public Sub Form_Open() ' Impostiamo la proprietà ".Drop" a "Vero" per consentire l'attivazione dell'evento del "Drop": PictureBox1.Drop = True End Public Sub PictureBox1_Drop() Dim dati As String dati = Drag.Paste("text/uri-list") ' Raccogliamo la parte della stringa contenente il mero percorso del file immagine: dati = Scan(dati, "file://*")[0] PictureBox1.Picture = Picture.Load(Trim(dati)) End