Question

vb6,如何将text1.text中的内容输出到richtextbox1指定的一行

代码

Answer 1

一个简单而且可行的办法
先将光标位置归零,然后循环指定行数模拟向下的方向键,最后楼主应该知道怎么办了...
呵呵~回答完楼主的问题后测试了一下,只用了5行代码就成功了^_^ 再也不用功能强大的SendMessage函数了

追问

代码？可以加QQ（1032892304）吗？

追答

你终于追问了,万一代码被白带增多吃了,我就给你写私信或者在白带Hi里给你留言,觉得好就把这个回答采纳一下,为了稳妥起见,我先提交回答,再完善回答...

'代码来了:
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Sub Command1_Click()
RichTextBox1.SelStart = 0
For i = 0 To 3 '转到第四行
PostMessage RichTextBox1.hWnd, &H100, vbKeyDown, 0
Next
RichTextBox1.SetFocus '这句可有可无
RichTextBox1.SelText = Text1.Text & vbCrLf
End Sub

不管你采纳与不采纳,我都要庆祝一下代码没被屏蔽