vb.net如何暂停while循环直到用户点击按钮？

Question

我正在使用while循环从Access数据库中提取数据。 每次运行后，我希望循环暂停，直到用户点击表单中的按钮。

我该怎么做？

Answer 1

您可以让按钮设置一个标志值，第二个while循环在让主循环继续之前进行检查。下面是非常简化的例子。

    Private Sub GetData()

    Dim i As Integer

    ' Loop that fetches data from Access, probably
    ' based on record count or similar
    While i < 1000

        btnGetMoreData.Enabled = False
        getMoreData = False

        ' code here for retrieving data
        Debug.Print("I am retrieving data")

        btnGetMoreData.Enabled = True
        While getMoreData = False
            ' process messages from UI
            Application.DoEvents()
        End While

    End While

End Sub

Private Sub btnGetMoreData_Click(sender As Object, e As EventArgs) Handles btnGetMoreData.Click

    getMoreData = True

End Sub