读TEXT1文本框内容问题
我在TEXT1文本框中输入了多行文本，比如内容为

冬瓜
南瓜
西瓜
丝瓜
哈密瓜

我想每隔3秒就在TEXT2文本框中读取TEXT1的第一行字符到第二个文本框中，第隔三秒就第取第二行、然后然后行，如此类推。
不知道VB能不能写出这样的程序。

应该是可以的吧，不是有个timer控件吧，是不是干这个的 ！！

是的，我知道要有一个TIMER控件，但一行一行的把第一个TEXT1的字符读出来我不知道怎么写这代码

快速读取TextBox第N行的数据

TextBox 是以 vbCr+vbLf 为分行符号， 如果我们要逐一读取 TextBox 每一行， 无非是寻找 vbCr+vbLf 的所在位置， 然后取出每一行的字串， 不过这个方法不快，而且如果我们要读取第 N 行数据，还是要从第 1、2、…N-1 行逐一读起，实在麻烦。 还好 Windows API 提供有读取 TextBox 第 N 行的功能， 细节如下：

1、API 的声明：

Public Const EM_GETLINE = &HC4
Public Const EM_LINELENGTH = &HC1
Public Const EM_LINEINDEX = &HBB

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)

2. 程序范例：

Sub TB_GetLine(ByVal hWnd As Long, ByVal whichLine As Long, Line As String)

Dim length As Long, bArr() As Byte, bArr2() As Byte, lc As Long

lc = SendMessage(hWnd, EM_LINEINDEX, whichLine, ByVal 0&)

length = SendMessage(hWnd, EM_LINELENGTH, lc, ByVal 0&)

If length > 0 Then
ReDim bArr(length + 1) As Byte,bArr2(length - 1) As Byte
Call RtlMoveMemory(bArr(0), length, 2) '准备一个存储器，传递消息之前先在存储器的前两个字节填入存储器的长度
Call SendMessage(hWnd, EM_GETLINE,whichLine, bArr(0))
Call RtlMoveMemory(bArr2(0), bArr(0), length)
Line = StrConv(bArr2, vbUnicode)
Else
Line = ""
End If

End Sub

' 假设要读取 Text1 第 5 行的数据

Dim S As String

Call TB_GetLine( Text1.hWnd, 5, S )

' 传回值 S 即等于第 5 行的数据

（ 注：TextBox 的行次是从 0 起算。）

轻松搞定

今天遇到同样的问题。却还是不知道 怎么读取TEXT里面的内容。。
比如 我text1里面有 100 行 我要把text1里面的 这个100行 读取到 text2 里面 具体 应该怎么搞呢？

[attach]20843[/attach]