Clipboard.SetText没有正确复制换行符

Question

在VB 2005中，我使用ClipBoard.SetText将RichTextBox的内容复制到剪贴板：

My.Computer.Clipboard.SetText(RichTextBox1.Text)

RichTextBox有多行。我遇到的问题是在执行此操作并在记事本中粘贴后，记事本似乎无法识别新的行字符（至少不是Courier New字体）。文本显示在一行上，就好像没有任何换行符一样。

我尝试使用vbNewline，ControlChars.NewLine和Chr（13）作为我文本中的新行字符，但结果是一样的。我已经阅读了一些关于这个主题的文章，但是我找不到比“替换'\ n'和'\ r \ n'更有用的东西”;在我的文本中没有'\ n'的实例，并且实现替换没有任何效果。和我读过的其他文章一样，粘贴到其他文字处理程序也没有问题。

我不太确定如何在这里正确粘贴到记事本中。请帮忙！

Answer 1

你可以做Mathemats建议的：

My.Computer.Clipboard.SetText(RichTextBox1.Text.Replace(vbLf, vbCrLf))

然后它应该适用于NotePad ...