Ir ao conteúdo
  • Cadastre-se

Idelbrandes Amorim

Membro Júnior
  • Posts

    1
  • Cadastrado em

  • Última visita

Reputação

0
  1. 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

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

×
×
  • Criar novo...