VB编程里如何把文本文档(.dat)的某行读入到文本框中?

你问得不是很明白，想读哪行就读啊行就行了啊，`````给你举个例子吧
先，读dat所有到text,(会读吧？？)
open "路径" for input as #1
until eof(1)
line input #1,s
text1=text1 & s & vbcrl
loop
close #1
然后把text1作为一个数组
y=split(text1,vbcrlf)
再然后想读哪个就读哪个
for i=0 to ubound(s)
if i=你要读的行数+1 then text2=y(i)
next i
就行了```

Function ReadLine(ByVal StrFilePath As String, ByVal IntLine As Integer)
'参数 StrFilePath:你要读取的文件的路径 IntLine:要读取的行数
'调用例子 MsgBox ReadLine("C:\123.dat", 2) 读取C:\123.dat 的第2行
If Dir(StrFilePath) <> "" Then
Dim a As Integer
Dim s As String
Open StrFilePath For Input As #1
Do While Not EOF(1)
a = a + 1
Line Input #1, s
If a = IntLine Then
ReadLine = s
Exit Do
End If
Loop
Close #1
End If
End Function

如果行数是固定的，就用一个循环，每次读一行，直到读到那一行为止。
如果不是固定的，你总要有个可以判断的条件吧