Uso della classe Clipboard

La Classe Clipboard consente di gestire gli appunti memorizzati (ossia la clipboard) di sistema.

L'uso della Classe Clipboard può avvenire per copiare negli appunti di sistema mediante il suo Metodo ".Copy()" un testo oppure un'immagine.
Successivamente attraverso il Metodo ".Paste()" potranno essere restituiti i dati precedentemente copiati. Nel caso sia stata copiata un'immagine, verrà restituita un'immagine di tipo Image.

Copia di dati all'interno dello stesso applicativo Gambas

Si potranno copiare dati presenti in un Controllo grafico dell'applicativo Gambas per immetterli in un altro Controllo grafico dello stesso applicativo.

Copiare un'immagine

Poniamo come esempio il caso in cui sul Form si abbiano due PictureBox, in una delle quali è presente un'immagine. Si intende semplicemente far mostrare all'applicativo nella seconda PictureBox l'immagine presente nella prima PictureBox, attraverso la copia negli appunti del sistema dell'immagine, cliccando con il tasto destro del mouse, da assegnare successivamente, sempre cliccando con il tasto destro del mouse, alla seconda PictureBox.

Public Sub Form_Open()

' Carica un'immagine nella prima "PictureBox":
 PictureBox1.Picture = Picture.Load("/percorso/del/file/immagine")

End


Public Sub PictureBox1_MouseUp()

 If Not Mouse.Right Then Return

' Fa una copia dell'immagine negli appunti ("clipboard") di sistema:
 Clipboard.Copy(PictureBox1.Picture.Image)

End


Public Sub PictureBox2_MouseUp()

 If Not Mouse.Right Then Return
 
' Assegna l'immagine alla seconda "PictureBox" presente nel Form:
 PictureBox2.Image = Clipboard.Paste()
End

Copiare un testo

Volendo invece fare l'esempio con un testo, poniamo il caso di avere una TexTArea e una Label. Intendiamo copiare il contenuto della TextArea nella Label attraverso l'uso della Classe Clipboard. Si dovrà usare sempre il tasto sinistro del mouse.

Public Sub Form_Open()

 With Label1
   .Background = Color.SoftYellow
   .Alignment = Align.TopLeft
 End With
 TextArea1.Text = "questo è un testo qualsiasi."

End


Public Sub TextArea1_MouseUp()

 If Not Mouse.Left Then Return

' Fa una copia del testo negli appunti ("clipboard") di sistema:
 Clipboard.Copy(TextArea1.Text)

End


Public Sub Label1_MouseUp()

 If Not Mouse.Left Then Return

' Assegna il testo copiato alla "Label" presente nel Form:
 Label1.Text = Clipboard.Paste()

End

Copia di dati dall'esterno dell'applicativo Gambas all'interno dell'applicativo medesimo

Si potranno, inoltre, copiare dati stringa e dati immagine presenti all'esterno dell'applicativo Gambas per immetterli in un oggetto dello stesso applicativo. Pertanto, in questo caso avremo la copia, a seconda dei casi, di un testo o di un'immagine da un programma Gambas in un altro programma Gambas.

Copiare del testo da un programma Gambas in un altro programma Gambas

Poniamo come esempio il caso in cui si intende copiare un testo, presente in un altro programma Gambas, all'interno dell'applicativo Gambas principale. In tal caso basterà evidenziare la riga di testo prescelta, premere i tasti ctrl+C oppure usare l'opzione Copy presente nella finestra menu contestuale del tasto destro del mouse.
Nel codice all'Evento del mouse della pressione o del rilascio di un suo tasto, si imposterà il Metodo ".Paste()" della Classe Clipboard.

Public Sub Label1_MouseUp()

 With Label1
   .Alignment = Align.TopLeft
   .Text = Clipboard.Paste()
 End With

End

Copia da un programma non-Gambas in un programma Gambas

Si potranno copiare dati stringa o immagine anche da un programma non-Gambas esterno in un applicativo Gambas. ^{[nota 1]}

Copia di un testo

Si potrà copiare un testo anche da un programma non-Gambas esterno in un applicativo Gambas. ^{[nota 1]}
Dopo aver nel modo consueto evidenziato e copiato il testo presente nel programma esterno, cliccare semplicemente con un tasto del mouse sul Controllo di testo del programma Gambas che dovrà ricevere il testo copiato.
Per qualche distribuzione Linux il testo si incollerà direttamente, solo se si clicca con il tasto centrale (rotellina) del mouse; mentre non accadrà nulla, se si clicca con quello sinistro. Apparirà la finestrina nel menu della clipboard di sistema, invece, se si clicca con il tasto destro del mouse, e da lì si potrà poi cliccare sull'opzione Paste (Incolla).

Ad esempio usando una TextArea:

Public Sub TextArea1_MouseUp()

 TextArea1.Text = Clipboard.Paste()

End

Copia di un'immagine

Si potrà infine anche copiare un'immagine da un programma esterno, che sia un visualizzatore di immagini ^{[nota 2]}, in un programma Gambas: si cliccherà sull'immagine con il tasto destro del mouse e si copierà l'immagine scegliendo la consueta opzione Copy (oppure Copia se in italiano).
Quindi si provvederà a incollare l'immagine nel programma Gambas.
Il codice nell'applicativo Gambas, che dovrà ricevere i dati immagine, potrà essere - ad esempio - il seguente:

Public Sub PictureBox1_MouseUp()

' Per trasferire i dati di tipo "Image" alla "PictureBox", posta sul "Form", si dovrà in questo caso cliccare con il tasto "destro" del mouse sulla "PictureBox":
 If Not Mouse.Right Then Return
 
' Assegna l'immagine alla "PictureBox" presente nel Form:
 PictureBox1.Image = Clipboard.Paste()

End

Note

[1] Dalla Mailing List internazionale di Gambas al riguardo è stato precisato che non è possibile ottenere in un applicativo Gambas il testo solo e semplicemente evidenziato in un programma esterno, perché il testo non è evidenziato negli appunti desktop, ma solo nel buffer degli appunti del server grafico X. Ed invece la Classe Clipboard del Componente qt5 riconosce solo gli appunti di desktop. La soluzione, dunque, risiede nell'ottenere il testo evidenziato (che si intende copiare) all'interno degli appunti (clipboard) di desktop.

[2] Per scaricare un'immagine contenuta in una pagina web vedere: Scaricare una immagine da un sito internet