VB.NET 代码(支持格式化和纯文本)
剪切
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