1.无特殊字符:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim str As String = <a>第一行
第二行
第三行</a>
RichTextBox1.Text = str
End Sub
或:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim str As String = <![CDATA[第一行
第二行
第三行]]>.Value
RichTextBox1.Text = str
End Sub
运行结果:
2.有特殊字符:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim str As String = <![CDATA[第一行
第二行
第三行&]]>.Value
RichTextBox1.Text = str
End Sub
运行结果: