Idelbrandes Amorim
-
Posts
1 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Fabricantes
Livros
Cursos
Análises
Fórum
posts postados por Idelbrandes Amorim
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais
Rolando imagem automaticamente
em Programação - outros
Postado
Estou tentando lista as imagem do banco de dado automaticamente no picturebox ai tudo bem, porém estou tentando
fazer um loop para lista vou usar com intervalo de tempo para passa de uma em uma as imagem
esta passando normalmente só que o form ficar travado impedindo a digitação no textbox
alguém sabe como resolver isto
Private Sub PCRolaImagens()
Dim repeticao As Boolean = True
Using con As OleDbConnection = GetConnection()
con.Open() 'abre a conexao com o banco
'query de busca
Dim sql As String = ""
sql = "SELECT * FROM tblImagensPDV"
Dim comam As OleDbCommand
comam = New OleDbCommand(sql, con)
Dim adapter As OleDbDataAdapter = New OleDbDataAdapter(comam)
Dim ds As DataSet = New DataSet()
Try
adapter.Fill(ds, "tblImagensPDV")
Dim contagem As Integer = 0
Do While (repeticao = True)
Dim img As String = ds.Tables(0).Rows(contagem).Item("enderecoimagem") '.ToString
ImgSalvar.Image = System.Drawing.Bitmap.FromFile(img)
Me.Refresh()
Threading.Thread.Sleep(3000)
contagem += 1
If contagem > ds.Tables(0).Rows.Count - 1 Then
contagem = 0
End If
Loop
con.Close()
Catch ex As Exception
End Try
End Using
End Sub