Copia e incolla

'Copiare l'immagine dal controllo PictureBox negli Appunti

My.Computer.Clipboard.SetImage(PictureBox1.Image)

'Se negli Appunti e' presente l'immagine, incollarla nel controllo PictureBox

If My.Computer.Clipboard.ContainsImage Then
PictureBox2.Image = My.Computer.Clipboard.GetImage
Else
MsgBox("Clipboard does not contain an image", MsgBoxStyle.Exclamation And MsgBoxStyle.OKOnly)
End If

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



'Copiare il codice HTML dal browser negli Appunti

My.Computer.Clipboard.SetText(WebBrowser1.DocumentText, TextDataFormat.Html)
'Se negli Appunti e' presente codice HTML, incollarlo nel controllo WebBrowser

If My.Computer.Clipboard.ContainsText(TextDataFormat.Html) Then
WebBrowser2.DocumentText = My.Computer.Clipboard.GetText(TextDataFormat.Html)
Else
MsgBox("Clipboard does not contain any HTML", MsgBoxStyle.Exclamation And MsgBoxStyle.OKOnly)
End If

*************************************************************************************************************

'Copiare il testo dalla casella di testo RTF negli Appunti

My.Computer.Clipboard.SetText(RichTextBox1.Rtf, TextDataFormat.Rtf)

'Se negli Appunti e' presente testo RTF, incollarlo nella casella di testo RTF

If My.Computer.Clipboard.ContainsText(TextDataFormat.Rtf) Then
RichTextBox2.Rtf = My.Computer.Clipboard.GetText(TextDataFormat.Rtf)
Else
MsgBox("Clipboard does not contain any rich text", MsgBoxStyle.Exclamation And MsgBoxStyle.OKOnly)
End If


*************************************************************************************************************

'Copiare il testo dalla casella di testo negli Appunti

My.Computer.Clipboard.SetText(TextBox1.Text)

'Se negli Appunti e' presente testo, incollarlo nella casella di testo

If My.Computer.Clipboard.ContainsText() Then
TextBox2.Text = My.Computer.Clipboard.GetText()
Else
MsgBox("Clipboard does not contain any text", MsgBoxStyle.Exclamation And MsgBoxStyle.OKOnly)
End If


*************************************************************************************************************

'Copiare l'oggetto pixel negli Appunti

My.Computer.Clipboard.SetData("Pixel", Pxl)

Dim tempPixel As Pixel

'Se negli Appunti e' presente un oggetto pixel, assegnarlo a un altro oggetto e caricare

'i valori delle proprieta' di questo oggetto in una casella di testo

If My.Computer.Clipboard.ContainsData("Pixel") Then
tempPixel = CType(My.Computer.Clipboard.GetData("Pixel"), Pixel)
LoadPixel(tempPixel, TextBox4)
Else
MsgBox("Clipboard does not contain a pixel object", MsgBoxStyle.Exclamation And MsgBoxStyle.OKOnly)
End If

Private Sub LoadPixel(ByVal Pixel As Pixel, ByVal Textbox As TextBox)
'Mostrare i valori di tutte le proprieta' dell'oggetto pixel specificato nella casella di testo specificata

Textbox.Text = "X [" & Pixel.X & "] " & vbCrLf & _
"Y [" & Pixel.Y & "] " & vbCrLf & _
Pixel.Color.ToString
End Sub


*************************************************************************************************************

'Aprire Esplora risorse

Shell("explorer.exe", AppWinStyle.NormalFocus, False)

'Se negli Appunti e' presente un elenco a discesa di file, incollare i nomi di tutti i file in una casella di riepilogo

If My.Computer.Clipboard.ContainsFileDropList Then
Dim fileDropList As System.Collections.Specialized.StringCollection
fileDropList = My.Computer.Clipboard.GetFileDropList()
For Each fileName As String In fileDropList
ListBox1.Items.Add(fileName)
Next
Else
MsgBox("Clipboard does not contain a file drop list", MsgBoxStyle.Exclamation And MsgBoxStyle.OKOnly)
End If
*************************************************************************************************************


'Cancellare gli Appunti

My.Computer.Clipboard.Clear()