VB中Do While读取txt文档怎样可以暂停

[qqww09633]

各位大哥，小弟有个问题想请教一下：有一个txt文档，暂且命名为1.txt，里面有内容1,2,3,4,5..........,20，Form界面上有两个Command按钮：开始，暂停，如果点击开始，就会把1.txt文档的内容全部读取并显示在Form1上，

代码如下

Dim str1 As Integer

Private Sub Start_Click()
On Error Resume Next

    Open App.Path & "\1.txt" For Input As #1
    Do While Not EOF(1)
    Input #1, str1
    
    Form1.Print str1
    
    Loop
    Close 1
End Sub

我想实现暂停功能，比如如果读取到10的时候，我点击了暂停按钮，读取暂停，如果再点击开始，就从11开始直到最后，请问代码需要怎样写啊？

[of123]

1 设置一个全局变量 Dim blnStop As Boolean 2 增加一个继续按钮，标签写“开始”，重叠在原来的“开始”按钮上，Visible 属性设置为 False。 3 修改和增加代码如下

Dim str1 As Integer
Dim blnStop As Boolean

Private Sub Start_Click()
On Error Resume Next
    Start.Enabled = False
    Open App.Path & "\1.txt" For Input As #1
    Do While Not EOF(1)
    DoEvents
    If Not blnStop Then
        Input #1, str1    
        Form1.Print str1
    End If
    Loop
    Close #1
    Start.Enabled = True
End Sub

Private Sub Stop_Click()
    blnStop = True
    Restart.Visible = True
End Sub

Private Sub Restart_Click()
    blnStop = False
    Restart.Visible = False
End Sub

[Tiger_Zhao]

你有多少数据可读？
按计算机的运行速度，你点“开始”鼠标还没移到“暂停”上，读取就结束了。
你是不是想太多了！

[qqww09633]

引用 2 楼 Tiger_Zhao 的回复:

你有多少数据可读？ 按计算机的运行速度，你点“开始”鼠标还没移到“暂停”上，读取就结束了。 你是不是想太多了！

我在其他项目上有需求这个功能，一直产生数据，数据还是蛮多的

[qqww09633]

引用 1 楼 of123 的回复:

1 设置一个全局变量 Dim blnStop As Boolean 2 增加一个继续按钮，标签写“开始”，重叠在原来的“开始”按钮上，Visible 属性设置为 False。 3 修改和增加代码如下

Dim str1 As Integer
Dim blnStop As Boolean

Private Sub Start_Click()
On Error Resume Next
    Start.Enabled = False
    Open App.Path & "\1.txt" For Input As #1
    Do While Not EOF(1)
End Sub

非常感谢啊，我试试看