如何在文本框中的一句文字中用回车键使它分成两段？

Question

比如：
    点击帖子右上的“管理”链接，进入管理页面，在要给分的回复后的文本框中填写分数，然后输入自己的密码，点击“给分”按钮。
    点击帖子右上的“管理”链接，进入管理页面，在要给分的回复后|的文本框中填写分数，然后输入自己的密码，点击“给分”按钮。
    点击帖子右上的“管理”链接，进入管理页面，在要给分的回复后
    的文本框中填写分数，然后输入自己的密码，点击“给分”按钮。而且回车后裂开的那段文字开头也空两格。

Answer 1

text1.text = left(text1.text, 20) & vbcrlf & "    " & mid(text1.text, 21)
  
————————————————————————————————————
写作，虽然每个人都会查阅辞海，可，不是人人都能写出不朽的篇章的。编程，如是也。

Answer 2

设计时：text1.multiline=true
text1.text = left(text1.text, 20) & vbcrlf & "    " & mid(text1.text, 21)

Answer 3

text1.text = left(text1.text, 20) & vbcrlf & "    " & mid(text1.text, 21)
文本框一行字又不一定是20个的，怎么让它灵活点，这在windows记事本中是个很普通的功能嘛。

Answer 4

text1.text = left(text1.text, 20) & vbcrlf & "    " & mid(text1.text, 21)
文本框一行字又不一定是20个的，怎么让它灵活点，这在windows记事本中是个很普通的功能嘛。
===========================================================================
配合Text1.SelStart使用

Answer 5

配合Text1.SelStart使用
请把代码一起给出。

Answer 6

Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const EM_GETSEL = &HB0
Const EM_LINEFROMCHAR = &HC9
Const EM_LINEINDEX = &HBBPublic Sub GetPos(ByVal hwnd5 As Long, LineNo As Long, ColNo As Long)
    Dim i As Long, j As Long
    Dim lParam As Long, wParam As Long
    Dim k As Long
    i = SendMessage(hwnd5, EM_GETSEL, wParam, lParam)
    j = i / 2 ^ 16 '取得目前光标所在位置前有多少个Byte
    LineNo = SendMessage(hwnd5, EM_LINEFROMCHAR, j, 0) '取得光标前面有多少行
    LineNo = LineNo + 1
    k = SendMessage(hwnd5, EM_LINEINDEX, -1, 0)
    '取得目前光标所在行前面有多少个Byte
    ColNo = j - k + 1
End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
    Dim i As Long, j As Long
    GetPos Text1.hwnd, i, j   
    Text1 = Left(Text1, (i - 1) * Text1.MaxLength + j - 1) + "  " + Right(Text1, Len(Text1) - (i - 1) * Text1.MaxLength - j + 1)
    Text1.SelStart = (i - 1) * Text1.MaxLength + j - 1
End If
End Sub
这个只对英文支持,由于中文占两个字节,所以你要改一下GETPOS函数,自己做吧

Answer 7

说错了,不是改GETPOS函数,而是改这句
Text1 = Left(Text1, (i - 1) * Text1.MaxLength + j - 1) + "  " + Right(Text1, Len (Text1) - (i - 1) * Text1.MaxLength - j + 1)

Answer 8

还是有问题,我把属性搞错了,.MaxLength 不能用,我的意思是要得到一行的字条数

Answer 9

Text1.Text = Left(Text1.Text, Len(Text1.Text) / 2) & vbCrLf & "  " & Mid(Text1.Text, Len(Text1.Text) / 2 + 1)这样就是从中间截取 不知道符不符合楼主的要求啊

Answer 10

Text1.Text = Left(Text1.Text, Len(Text1.Text) / 2) & vbCrLf & "  " & Mid(Text1.Text, Len(Text1.Text) / 2 + 1)这样就是从中间截取 不知道符不符合楼主的要求啊不是正中间，是光标所在的位置为准分开的两半。
请继续应助。

Answer 11

Private Function strLeft(str As String, nLen As Long) As String
    If nLen <= 0 Then
        strLeft = ""
    Else
        strLeft = Left(str, nLen)
    End If
End FunctionPrivate Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        KeyAscii = 0
        Text1.Text = strLeft(Text1.Text, Text1.SelStart) & vbCrLf & "    " & LTrim(Mid(Text1.Text, Text1.SelStart + 1))
    End If
End Sub

Answer 12

text1.text = left(text1.text, 20) & vbcrlf & "    " & mid(text1.text, 21)