自学（说不清） 书上抄的一小段，就是有错解决方法
自学（说不清） 书上抄的一小段，就是有错
自学-------看到StreamReader---文件操作了（win7 64位+VB2008）
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim line As String
Dim MyFile As New StreamReader("d:\ddd.txt")
Do While (MyFile.Peek() <> -1)
line = MyFile.ReadLine()
textbox1.Text += line + Chr(10) + Chr(13)
Loop
End Sub
MyFile.Close()
End Class
------解决方案--------------------
自学-------看到StreamReader---文件操作了（win7 64位+VB2008）
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim line As String
Dim MyFile As New StreamReader("d:\ddd.txt")
Do While (MyFile.Peek() <> -1)
line = MyFile.ReadLine()
textbox1.Text += line + Chr(10) + Chr(13)
Loop
End Sub
MyFile.Close()
End Class
------解决方案--------------------
- VB.NET code
'换下位置 MyFile.Close() End Sub
------解决方案--------------------
在文件开头加上
Imports System.IO
------解决方案--------------------
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim line As String
Dim MyFile As New StreamReader("d:\ddd.txt")
Do While (MyFile.Peek() <> -1)
line = MyFile.ReadLine()
TextBox1.Text += line + Chr(10) + Chr(13)
Loop
MyFile.Close()
End Sub
End Class
在VB2010中运行，显示正常。你的d:\ddd.txt是否有内容？