请教一个问题自动输入回车的问题

Question

 在字符后加 & chr(13)

Answer 1

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 53 Then
Text1.Text = Text1.Text + vbCrLf
Text1.SelStart = Len(Text1.Text)
Text1.SelLength = 1
End If
End Sub
以上在VB6+Win98下通过

Answer 2

你的程序应当是：
程序窗体中的声明：
Dim FiveFlg as Integer
窗体初始化后需要：FiveFlg=0
在文本框中的程序：
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode=13 Then     '说明是按下回车键
        FiveFlg＝0
        Exit Sub
    End If 
    FiveFlg=FiveFlg+1
    If FiveFlg=5 Then 
       Text1=Text1 & chr(13)
       FiveFlg=0
    End If
End Sub以上程序基本就是你要的了，但是没有对修改进行必要的判断，那部分如果考虑进去我想这个程序还需要比较大的改进。反正就是一个思路 另外以上程序没有经过测试