vb Call TB_GetLine(Text8.hwnd, i, Str)

来源：百度知道 编辑：UC知道 时间：2024/05/10 06:49:14
我要用这个命令读取Text8内的12行以后的内容。
然后把这些内容复制到Text7内。
如果是List我知道命令是什么。
但是Textbox我就犯难了。
请高手帮帮忙。

我List的代码是这样的。
Dim i As Integer
For i = 1 To List.ListCount
Call TB_GetLine(Text5.hWnd, i + 10, Str)
List.AddItem Str
List.ItemData(List.NewIndex) = Str
Next

'方法一
Dim a() As String
a = Split(Text1.Text, vbCrLf)
n = InStr(Text1.Text, a(Val(InputBox("")) - 1)) - 1
'取Text1中第n行开始以后的内容到Text2（要求每行的内容都不相同）
Text2.Text = Right(Text1.Text, Len(Text1.Text) - n)

'方法二
Private Sub Command1_Click()
Dim a() As String
a = Split(Text1.Text, vbCrLf)
'取Text1中第n行开始以后的内容到Text2
For i = Val(InputBox("")) - 1 To UBound(a)
s = s & a(i) & vbCrLf
Next
Text2.Text = s
End Sub

在TEXT里面只能按回车来判断行，第11个回车符和第12个回车符之间的内容就是12行的内容。