Posted on 2004-08-09
Last Modified: 2010-04-17
how to write cut copy paste code in
Question by:imrancs

Accepted Solution

SNilsson earned 500 total points
ID: 11760040

Expert Comment

ID: 11760468
  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


Expert Comment

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

Private Sub cmdCopyImage_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdCopyImage.Click
'copying image to clipboard from picturebox
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
End Sub

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

Public Sub ClearImage()
'clear image from picturebox
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
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
'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
End If
If e.Control And e.KeyCode = Keys.L Then
End If
If e.Control And e.KeyCode = Keys.V Then
End If
If e.Control And e.KeyCode = Keys.R Then
End If

End Sub

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This is an explanation of a simple data model to help parse a JSON feed
Whether you've completed a degree in computer sciences or you're a self-taught programmer, writing your first lines of code in the real world is always a challenge. Here are some of the most common pitfalls for new programmers.
In this fifth video of the Xpdf series, we discuss and demonstrate the PDFdetach utility, which is able to list and, more importantly, extract attachments that are embedded in PDF files. It does this via a command line interface, making it suitable …
With the power of JIRA, there's an unlimited number of ways you can customize it, use it and benefit from it. With that in mind, there's bound to be things that I wasn't able to cover in this course. With this summary we'll look at some places to go…

911 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

18 Experts available now in Live!

Get 1:1 Help Now