问从RichTextBox复制所选文本

EN

 Private Sub CutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CutToolStripMenuItem.Click

        Try
            If RichTextBox1.SelectedText <> "" Then
                Clipboard.SetData(DataFormats.Rtf,RichTextBox1.SelectedRtf)
                RichTextBox1.SelectedRtf = ""
            Else
                MsgBox("No item is selected to cut", MsgBoxStyle.Information, "Cut")
            End If
        Catch ex As Exception
            MsgBox("Can't cut the selected item", MsgBoxStyle.Critical, "Cut")
        End Try
    End Sub

 Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click

        Try
            If RichTextBox1.SelectedText <> "" Then
                Clipboard.SetData(DataFormats.Rtf,RichTextBox1.SelectedRtf)
            Else
                MsgBox("No item is selected to copy", MsgBoxStyle.Information, "Copy")
            End If
        Catch ex As Exception
            MsgBox("Can't copy the selected item", MsgBoxStyle.Critical, "Copy")
        End Try
    End Sub

 Private Sub PasteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasteToolStripMenuItem.Click

        Try
            If Clipboard.ContainsText(TextDataFormat.Rtf) Then
                RichTextBox1.SelectedRtf = Clipboard.GetData(DataFormats.Rtf).ToString()
            ElseIf Clipboard.ContainsText(TextDataFormat.Text) Then
                RichTextBox1.SelectedText = Clipboard.GetData(DataFormats.Text).ToString()
            Else
                MsgBox("Clipboard is not contained with the valid text format ", MsgBoxStyle.Information, "Paste")
            End If
        Catch ex As Exception
            MsgBox("Can't paste the item", MsgBoxStyle.Critical, "Paste")
        End Try
    End Sub