Breadcrumbs

[Shim]

hello guys

this is a small snippet that will display the last copied text in the richtextbox

Code: Select all

Public Class Form1
    'shimthecoder
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            If My.Computer.Clipboard.ContainsText() Then
                Dim ClipText As String
                ClipText = My.Computer.Clipboard.GetText
                RichTextBox1.Text = (ClipText)
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class

this will display the last copied image in picbox

Code: Select all

Public Class Form1
    'shimthecoder
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            If My.Computer.Clipboard.ContainsImage() Then
                Dim ClipboardImage As System.Drawing.Image
                ClipboardImage = My.Computer.Clipboard.GetImage
                PictureBox1.BackgroundImage = ClipboardImage
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class

thanks

[smashapps]

This is a simple tutorial but useful, thanks for sharing!