vb.net

how to write cut copy paste code in vb.net
LVL 10
imrancsAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

SNilssonCommented:
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
dttriCommented:
 Hello,
  This is from MSDN:
  A number of applications use the Clipboard as a temporary repository for data. For example, word processors use it during cut/copy/paste operations. Accessing the Clipboard and storing data there with a Windows application is made possible through the use of the SetDataObject method, which stores the data on the Clipboard using the IDataObject interface. The SetDataObject method does this so that, when the data is later retrieved from the Clipboard, it can be done so in a variety of formats.
  To set data to clipboard:
  Clipboard.SetDataObject(TextBox1.Text) (VB.NET)
  To paste data:
  'Create a new instance of the DataObject interface.
  Dim data As IDataObject = Clipboard.GetDataObject()
  'If the data is text, then set the text of the
  'TextBox to the text in the Clipboard.
  If (data.GetDataPresent(DataFormats.Text)) Then
    TextBox1.Text = data.GetData(DataFormats.Text).ToString()
  End If

  Tri
0
computerg33kCommented:
Private Sub cmdLoadImage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLoadImage.Click
'loading image into the picture box
LoadImage()
End Sub

Private Sub cmdCopyImage_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdCopyImage.Click
'copying image to clipboard from picturebox
CopyImage()
End Sub

Private Sub cmdPasteImage_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdPasteImage.Click
'pasting copied image back to the picturebox
PasteImage()
End Sub

Private Sub cmdClearImage_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdClearImage.Click
'clear picturebox image
ClearImage()
End Sub

Public Sub ClearImage()
'clear image from picturebox
PictureBox1.CreateGraphics.Clear(Color.White)
End Sub

Public Sub PasteImage()
'check the data format in clipboard if its of type bitmap then proceed further
If Clipboard.GetDataObject.GetDataPresent(DataFormats.Bitmap) Then
'setting clipboard data to picturebox
PictureBox1.Image = Clipboard.GetDataObject.GetData(DataFormats.Bitmap)
End If
End Sub
Public Sub CopyImage()
'copy image to clipboard
'setting picturebox data to clipboard
Clipboard.SetDataObject(PictureBox1.Image)
End Sub

Public Sub LoadImage()
'shows OPEN FILE DIALOG for locating graphic files on the harddisk
'setting visible file filter
OFD.Filter = "Images | *.bmp;*.tif;*.jpg;*.gif"
'Show OPEN FILE DIALOG to user
OFD.ShowDialog()
'Load located file to the picturebox
PictureBox1.Image = Image.FromFile(OFD.FileName)
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown

'Short cut keys implementation
If e.Control And e.KeyCode = Keys.C Then
CopyImage()
End If
If e.Control And e.KeyCode = Keys.L Then
LoadImage()
End If
If e.Control And e.KeyCode = Keys.V Then
PasteImage()
End If
If e.Control And e.KeyCode = Keys.R Then
ClearImage()
End If


End Sub
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Programming

From novice to tech pro — start learning today.