Question

vb6 文本框回车键

比如：
点击帖子右上的“管理”链接，进入管理页面，在要给分的回复后的文本框中填写分数，然后输入自己的密码，点击“给分”按钮。
点击帖子右上的“管理”链接，进入管理页面，在要给分的回复后|的文本框中填写分数，然后输入自己的密码，点击“给分”按钮。
点击帖子右上的“管理”链接，进入管理页面，在要给分的回复后
的文本框中填写分数，然后输入自己的密码，点击“给分”按钮。
而且回车后裂开的那段文字开头也空两格。
下面哪有问题？
Private Sub txtEdit_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
KeyAscii = 0
txtEdit.Text = txtEdit.Text & vbCrLf & " "
txtEdit.SelStart = Len(txtEdit.Text)
End If
End Sub
还有Len(txtEdit.Text)后要不要-1

Answer 1

代码没有问题，你需要设置txtEdit的MultiLine为true，在文本框属性里设置。
Len(txtEdit.Text)后不要-1

Answer 2

Private Sub txtEdit_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtEdit.Text = txtEdit.Text & vbCrLf & " "
txtEdit.SelStart = 0
txtedit.sellength=len(txtedit)
End If
End Sub