Как связать таймер с моей функцией ..?

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. Добавить элемент управления Timer в форму
2. Перемещение кода (получение данных и отображения данных) для таймера управления tick событие
3. Установить таймер контролирует Interval свойство, как вам требуется, чтобы замедлить отображение значений.
4. Звоните TIMERCONTROLNAME.Enabled = True, чтобы начать таймер.