RichTextBox Cut & Paste *[RESOLVED]*

[RealNickyDude]

I have a Richtextbox from which I want to copy some selected text to be able to paste elsewhere (Cut & Paste in VBCodebook .NET). In VB6 (as far I can remember!) once you've selected your text, you pressed the right mousebutton and up popped a cut & paste menu, I don't get that.

If you have VBCodebook .NET, try copying some text to paste it somewhere else, it just dosen't do it!

Could anyone tell me how to pop up the cut & paste menu in a RichTextBox?

Thanks

[Mr.No]

You have to use the contextMenu property of the richtextbox to handle that. I'm trying something and will revert back in a few minutes.

[Mr.No]

Here you are. Put a RichTextBox on a form and paste the code below to test. You can use this piece of code as my contribution in the codebook also. Let me know if you need any enhancements.

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim rtbContextMenu As New ContextMenu()
        Dim mymenuitem As MenuItem
        mymenuitem = rtbContextMenu.MenuItems.Add("Copy")
        AddHandler mymenuitem.Click, AddressOf myCopy_Click
 
 
        mymenuitem = rtbContextMenu.MenuItems.Add("Paste")
        AddHandler mymenuitem.Click, AddressOf myPaste_Click
 
        RichTextBox1.ContextMenu = rtbContextMenu
    End Sub
    Private Sub myCopy_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Clipboard.SetDataObject(RichTextBox1.SelectedText)
    End Sub
    Private Sub myPaste_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        ' Declares an IDataObject to hold the data returned from the clipboard.
        ' Retrieves the data from the clipboard.
        Dim iData As IDataObject = Clipboard.GetDataObject()
 
        ' Determines whether the data is in a format you can use.
        If iData.GetDataPresent(DataFormats.Text) Then
            ' Yes it is, so display it in a text box.
            RichTextBox1.SelectedText = CType(iData.GetData(DataFormats.Text), String)
        Else
            ' No it is not.
            RichTextBox1.SelectedText = "Could not retrieve data off the clipboard."
        End If
 
 
    End Sub

[RealNickyDude]

Thanks Mr No, works a treat and I'll certainly add it to the VBCodebook

I've added the ability to Select All for large amounts of text.