Rolar automaticamente

[igadino 1]

Estou tentando lista os id's do cliente automaticamente no TextBox1 ai tudo bem, porem estou tentando

fazer um loop para lista vou usar com intervalo de tempo para passa de um em um mais não estou 

conseguindo sou iniciante em programação se eu estiver ajuda dos programadores poderei

tentar seguir esta carreira. tem alguém que pode me dar um HELP.

Private Sub listeId()
        Dim mostrar As Boolean = True
        Using con As OleDbConnection = GetConnection()
            con.Open()
            Dim busca As String = ""
            busca = "SELECT * FROM Cadastro"
            Dim conectar As OleDbCommand
            conectar = New OleDbCommand(busca, con)
            Dim ligar As OleDbDataAdapter = New OleDbDataAdapter(conectar)
            Dim tabela As DataSet = New DataSet()
            Try
                ligar.Fill(tabela, "Cadastro")
                Dim conte As Integer = 0
                Do While (mostrar = True)
                    TextBox1.Text = tabela.Tables(0).Rows(conte).Item("CodCadastro")
                    Dim t As New System.Timers.Timer(5000)
                    conte += 1
                    If conte > tabela.Tab
les(0).Rows.Count - 1 Then
                        conte = 0
                    End If
                Loop
                con.Close()
            Catch ex As Exception
            End Try 
End Using

[vikcch 18]

em vez de:

Dim t As New System.Timers.Timer(5000)

coloca:

		    Application.DoEvents()
	    Threading.Thread.Sleep(5000)

vai-te é congelar a aplicação durante esses 5 segundos, mesmo com o DoEvents...

dá pra usar o timer mas fica um pouco mais complicado

[igadino 1]

Mais como eu faço para não congelar a aplicação e as imagens ficar passando tem jeito?

[ribeiro55 47]

Não podes usar um ciclo While para o que pretendes. Estes ciclos não servem para isso por mais razões do que simplesmente bloquearem a thread.

Passa a tua lógica de incremento para o handler do event Tick de um Timer.

Dessa forma o teu código corre pontualmente de x em x tempo.

[igadino 1]

Resolvido segue exemplo para aguem precisar.

Private Sub ListaPublicidade()

On Error Resume Next

Using con As OleDbConnection = GetConnection()

con.Open()

Dim busca As String = ""

busca = "SELECT * FROM tblImagensPDV"

Dim conectar As OleDbCommand

conectar = New OleDbCommand(busca, con)

Dim ligar As OleDbDataAdapter = New OleDbDataAdapter(conectar)

Dim tabela As DataSet = New DataSet()

ligar.Fill(tabela, "tblImagensPDV")

Dim img As String = tabela.Tables(0).Rows(conte).Item("enderecoimagem") '.ToString

Me.Refresh()

ImgSalvar.Image = System.Drawing.Bitmap.FromFile(img)

conte += 1

If conte > tabela.Tables(0).Rows.Count - 1 Then

conte = 0

End If

con.Close()

End Using

Timer2.Enabled = True

End Sub