Question

我用vb.net写了一个能逐行搜索指定txt文本的按钮，但按钮只能点击一次，再点击就不能重复这个功能

我想使按钮点多少下都可以不出错，该怎么实现呢，
文件已经通过OpenFileDialog打开了,就是1号文件，下面是button1的代码
Do While Not EOF(1)
xc = LineInput(1)
i = search_61(xc)'这是个函数
If InStr(xc, "直径:", CompareMethod.Binary) Then
TextBox1.Text = Trim(Mid(xc, i + 1))
End If
Loop
FileClose(1)
但只能点一下，再点就不行了，我想让他点几下都行，其实就是文件都到尾了，再点击就不能再查找了，能不能复位一下，再从头开始呢

Answer 1

一，出错后继续运行程序，可以使用On Error Resume Next.
二，要能点了又可以使用，就要看代码了，应该是你的代码问题

你在代码后面都fileclose(1)了，前面又没有open当然会报错，你把open放到do while前面，就OK了呀。

Answer 2

有代码吗？贴上来看看才知道。