VB富文本框中怎么我这样的换行，文段老是往下跳

来源：百度知道编辑：UC知道时间：2024/06/14 10:16:37

Private Sub Text1_KeyPress(KeyAscii As Integer) ': Rem敲击回车键实现换行
If KeyAscii = vbKeyReturn Then
KeyAscii = 0
Text1.Text = Text1.Text & vbCrLf & " "
Text1.SelStart = Len(Text1.Text)
End If
End Sub
一行文字输满后，自动跳到下一行时，这段文字也会跟着往下跳一行，同时段前原先空的两个空格也不在了，被自动补齐了。
multiline我已经设为true了，ScrollBars=3。
Len(Text1.Text)-1
这个-1起什么作用？

..回车键本来就是换行的

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then '按下回车
KeyAscii = 0 '去处按下
Text1.Text = Text1.Text & vbCrLf
Text1.SelStart = Len(Text1.Text)-1
End If
End Sub

VB富文本框中怎么我这样的换行，文段老是往下跳怎么VB在文本框中换行 VB 如何清除文本框里面的换行? VB 文本框自动换行 VB中怎么换行文本框中如何换行 VB文本框数字换行问题 vb编程如何在富文本框中使用鼠标右键高手们帮我加一个VB富文本框的保存更改对话框啊 vb中文本框的validate事件怎么用？