从RichTextBox复制文本及其格式

Question

如何将RichTextBox中的文本及其格式复制到wordpad或webbrowser？

Answer 1

就像复制纯文本一样,您将使用该Clipboard.SetText方法.这将清除Windows剪贴板的当前内容并将指定的文本添加到其中.

要复制带格式的文本,您需要使用接受参数的方法的重载TextDataFormat.这允许您指定要复制到剪贴板的文本的格式.在这种情况下,您可以指定TextDataFormat.Rtf由富文本格式数据组成的文本或文本.

当然,对于这个工作,你也必须使用Rtf属性的的RichTextBox控制,以提取其与RTF格式的文本.您不能使用常规Text属性,因为它不包含RTF格式信息.正如文档警告:

该Text属性不会返回有关应用于内容的格式的任何信息RichTextBox.要获取富文本格式(RTF)代码,请使用该Rtf属性.

示例代码:

' Get the text from your rich text box
Dim textContents As String = myRichTextBox.Rtf

' Copy the text to the clipboard
Clipboard.SetText(textContents, TextDataFormat.Rtf)

一旦文本在剪贴板上,您(或您的应用程序的用户)可以将其粘贴到您喜欢的任何位置.要以编程方式粘贴文本,您将使用也接受参数的Clipboard.GetText方法TextDataFormat.例如:

' Verify that the clipboard contains text
If (Clipboard.ContainsText(TextDataFormat.Rtf)) Then
    ' Paste the text contained on the clipboard into a DIFFERENT RichTextBox
    myOtherRichTextBox.Rtf = Clipboard.GetText(TextDataFormat.Rtf)
End If