我刚刚学习VB.NET的text文档读存，然后我就想写一个程序，当我点击buttn2的时候，学生ID和学生名字会出来，然后当我再按一次的时候就会显示下一个学生的信息 如此类推，但是我发现我卡住了。。我按button2的时候就是图1显示，就一个T 大神们麻烦看看我的代码，刚入门。

这种不是要用数据库吗

不用，一个txt文档就可以做啦

或者按行读
FileOpen(1, "c:\123.txt", OpenMode.Input)
Dim a As String = ""
Do While Not EOF(1)
Input(1, a)
计数 += 1
If 计数 = 1 Then
TextBox1.Text = a
End If
If 计数 = 2 Then
TextBox2.Text = a
End If
Loop
大概这么个意思，具体需要修改下，懒得改了

谢谢，我试试这个

Dim 计数 As Integer = 0
Dim Rich As New RichTextBox
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Rich.Text = IO.File.ReadAllText("c:/123.txt", System.Text.Encoding.Default)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If 计数 < Rich.Lines.Count Then
TextBox1.Text = Rich.Lines(计数).Split(",")(0)
TextBox2.Text = Rich.Lines(计数).Split(",")(1)
计数 += 1
Else
MsgBox("已到最后一行，确定后从第一行开始")
计数 = 0
End If
End Sub

可以，但我不一定什么时候有时间看，刚才顺便整了个搜索
Dim 行内容 As String
Dim 判断内容存在 As Boolean = False
For i = 0 To Rich.Lines.Count - 1
行内容 = Rich.Lines(i)
If 行内容.Contains(TextBox3.Text) Then
TextBox4.Text = Rich.Lines(i).Split(",")(0)
判断内容存在 = True
Exit For
End If
Next
If 判断内容存在 = False Then
MsgBox("关键字不存在")
End If

我理解了你的代码了，我运行的时候，去到最后一个，msg没有显示反而出现这个错误了，这是哪里出了问题

用INI文档吧，感觉比TXT文档更方便一点

请问您这个标题栏蓝色主题怎么设置的