VB怎样取出文本框每一行的值

Question

VB怎样取出文本框每一行的值

Answer 1

这个问题我想到的是用文件来完成：
首先将文本框中的文本一行一行读入文件：
open "文件名.txt"for output as #1
for i=1 to len(text1.text)
print #1，Mid(text1.text,i,1);
next i
close #1
再将文件中的文本一行一行的读出来：
text2.text=""
open "文件名.txt" for input as #1
text2.text=input(LOF(1),1)
close #1
如果运行的时候提示文件已经打开，那么你将后面这段代码的#1改成#2吧，因为文件号不能重复。
这只是一个思路，还得你自己去实现。多看点文件方面的东西，内容很少的。

Answer 2

每一行？
将文本以VBCRLF为标记打散为数组即可。
dim x as string
x=text1.text
dim y() as string
y=split(x,vbcrlf)
此时y就是包含了每行内容的数组了。接下来就可以按行来读取内容了。本回答被提问者采纳

Answer 3

获得指定行的文字
Private Const EM_LINEINDEX = &HBB
Private Const EM_LINELENGTH = &HC1
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 Const EM_GETLINE = &HC4

Private Function GetTextLn(Text As TextBox, ByVal LineNum As Integer) As String
Dim a() As Byte
ln = SendMessage(Text.hwnd, EM_LINELENGTH, LineNum - 1, ByVal 0&)
ReDim a(ln)
a(1) = 1
ln = SendMessage(Text.hwnd, EM_GETLINE, LineNum - 1, a(0))
GetTextLn = StrConv(a, vbUnicode)
GetTextLn = Left(GetTextLn, ln)
End Function

例：获得text1中第2行的内容
stmp=GetTextLn(text1,2)

Answer 4

真诚的告诉楼主，单单靠文本框的属性等不能实现
只有把文本框中的内容读入文件，再通过文件读入的语法可以实现，
楼主可以去看看vb对文件的操作，
（花不了多少时间，呵呵）