Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim Data As IDataObject = Clipboard.GetDataObject
- If Data.GetDataPresent(DataFormats.FileDrop) Then
- For Each i As String In Data.GetData(DataFormats.FileDrop)
- Dim ClipPath As String = Path.Combine(Path.GetFullPath(i))
- MessageBox.Show("Clipboard Image Path:" & ClipPath)
- Next
- Else
- If Clipboard.ContainsImage() Then
- Dim Clip_Image As System.Drawing.Image = My.Computer.Clipboard.GetImage()
- Else
- MessageBox.Show("Clipboard is not an image!")
- End If
- End If
Advertisement
Add Comment
Please, Sign In to add comment