I want to make my function pause for a certain time (to display values in textbox)

[metagoth]

I am facing an issue. Actually what i am doing is that i am tryin to store certain values in a database. A function is such that it calculates 5 values and stores them in a database. While storing them in the database it displays them in a textbox on the form. Now i want to display them one by one which it does. But it does it so fast that i can only see the last value that it enters in the database inside the textboxes.

Can i make it show all the values slowly one by one in the textboxes.

Can anybody suggest me how to do so. I googled a lot but could find a particular answer.
thnx in advance friends

 
    Sub CreateHash()
        HashCalcProgressBar.Minimum = 0
        HashCalcProgressBar.Maximum = 100
        HashCalcProgressBar.Value = 0
        HashCalcProgressBar.ForeColor = Color.Chocolate
        Dim fileMD5 As String
        Dim i As Integer
 
        ' for 32 bit use 
        fileToHash(0) = "C:\Windows\system32\services.exe"
        fileToHash(1) = "C:\Windows\system32\lsass.exe"
        fileToHash(2) = "C:\Windows\system32\svchost.exe"
        fileToHash(3) = "C:\Windows\system32\alg.exe"
        fileToHash(4) = "C:\Windows\system32\winlogon.exe"
 
       For i = 0 To 4
 
            If HashCalcProgressBar.Value < 100 Then
                If My.Computer.FileSystem.FileExists(fileToHash(i)) Then
                    'MsgBox("The File " + fileToHash(i) + " found in System Folder")
                    fileMD5 = GenerateFileMD5(fileToHash(i))
                    'MsgBox(fileMD5)
                    dbInsert(fileMD5, fileToHash(i), i)
                    HashCalcProgressBar.Value += 20
                Else
                    MsgBox("File Not Found")
                End If
            End If
        Next
        i = i + 1
    End Sub
 
 
    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()
    End Sub
 
    Private Sub btnHash_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHash.Click
        CreateHash()
    End Sub
 

[IronRazer]

You could try putting a Threading.Thread.Sleep(ms) statement rite before the next statement in your for loop. There is one drawback to using it and that is that everything will be paused for the amount of time that the thread is sleeping for. I am not an expert so if anyone sees a problem with this please correct me. The only other way i know of is to rewrite parts of the program to use a timer.

This is your for loop with the Threading command :

        For i = 0 To 4
 
            If HashCalcProgressBar.Value < 100 Then
                If My.Computer.FileSystem.FileExists(fileToHash(i)) Then
                    'MsgBox("The File " + fileToHash(i) + " found in System Folder")
                    fileMD5 = GenerateFileMD5(fileToHash(i))
                    'MsgBox(fileMD5)
                    dbInsert(fileMD5, fileToHash(i), i)
                    HashCalcProgressBar.Value += 20
                Else
                    MsgBox("File Not Found")
                End If
            End If
            Threading.Thread.Sleep(1000)
        Next
        i = i + 1
    End Sub
 

The 1000 is the amount of time in milliseconds so 1000 would be 1 second, 2000 would be 2 seconds and so on.