如何将计时器与我的功能相关联..？

Question

我面临另一个问题。我想将计时器与我的功能相关联。

实际上，我正在尝试将某些值存储在数据库中。一个函数是这样的，它计算 5 个值并将它们存储在数据库中。在将它们存储在数据库中时，它会将它们显示在表单上的文本框中。现在我想一一展示它们。但它的速度如此之快，以至于我只能看到它在文本框内的数据库中输入的最后一个值。

我能否让它慢慢地一一显示所有值。

Private Sub dbInsert(ByVal strfile As String, ByVal hashoffile As String, ByVal p As Integer) 'parameter to the above function (ByVal strfile As String)

    DbConnection()
    cmd = "select * from hashtable"
    da = New OleDb.OleDbDataAdapter(cmd, con)
    da.Fill(ds, "values")
    maxrows = ds.Tables("values").Rows.Count

    TextBox1.Text = p + 1
    TextBox2.Text = hashoffile
    TextBox3.Text = strfile
    Dim cb As New OleDb.OleDbCommandBuilder(da)
    Dim dsnewrow As DataRow
    dsnewrow = ds.Tables("values").NewRow()
    dsnewrow.Item("p_id") = TextBox1.Text
    dsnewrow.Item("process_name") = TextBox2.Text
    dsnewrow.Item("hash_value") = TextBox3.Text
    ds.Tables("values").Rows().Add(dsnewrow)
    da.Fill(ds)
    da.Update(ds, "values")
    'MsgBox("new Item added to database")
    con.Close()
    'System.Threading.Thread.Sleep(1000)
End Sub

Answer 1

1. 在表单中添加计时器控件
2. 将您的代码（检索数据和显示数据）移动到 Timer Controls tick event
3. 根据需要设置 Timer 控件Interval 属性，使其显示值变慢。
4. 致电TIMERCONTROLNAME.Enabled = True 启动计时器。