我把text1的multiline 设置为ture scrollbar 为2  请问 我读取了 C盘中的 1.txt 文件（密码文件）  在command1 按钮中  按第一次  就显示text1的第一行  再按一次 就显示 text1的第二行值啊   随便显示在什么地方都可以         谁能帮帮忙啊

text1.text=text1.text & mima

....  我的意思是  把设置为ture scrollbar 为2
  读取C盘中的 1.txt 文本文件   因为 前提是设置了text1的multiline  
  所以显示是 相当于是 listbox 显示形式的  我现在就想没次只获取text的一行值   怎么写代码   也许是我描述的不清楚  。。

在读取的位置不要直接把文本全读出来
Open tempFile For Input As #1
Line Input #1, szbuf
text1.text=szbuf
Do While Not EOF(1)
    Line Input #1, szbuf
    text1.text=text1.text & vbcrlf & szbuf
Loop

呵呵  虽然还是没帮我解决问题  但是还是要谢谢你

Dim rows As Long

Private Sub Command1_Click()
Dim i As Integer

rows = rows + 1
Text1.Text = ""
Open "c:\1.txt" For Input As 1
Do While (Not EOF(1))
Line Input #1, Data
i = i + 1
If i = rows Then
    Exit Do
End If
Loop
Text1.Text = Data
Close 1

' 就是这里 怎么读取 text1文本的每行内容啊  因为有multiline属性为ture
End Sub

Private Sub Form_Load()
    rows = 0
End Sub

汗,不要发重复发贴呀!!!!

LZ根本没有举一反三
这样学习不行

哦  谢谢提醒