'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() |