程序如何实现RichTextBox分别在开头和末尾增加一页?

Question

如题

Answer 1

richtextbox控件有"页"的概念吗?

Answer 2

text1.text = vbcrlf & text1.text & vbcrlf????

Answer 3

先得假设你的一页有多少行,如果有十行:Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 10
    RichTextBox1.Text = vbCrLf + RichTextBox1.Text
Next i
For i = 1 To 10
    RichTextBox1.Text = RichTextBox1.Text + vbCrLf
Next i
End Sub

Answer 4

哦.我所说的页是指我当前RichTextBox控件的大小.
2楼说的是添加行吧