MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Mudando imagem

    Compartilhe

    igadino
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 31/01/2011

    Mudando imagem

    Mensagem  igadino em Qui 28 Jan 2016, 23:31

    Pessoal alguém sabe como eu faço para destravar o form porque quando o timer esta rodando o form fica travado

    Existe outro componente que substitui o  "System.Threading.Thread.Sleep(5000)" ele suspende as atividade do form.


    Código:
    Private Sub PCarregadados()


         Dim repete As Boolean = True


           Using con As OleDbConnection = GetConnection()


               con.Open()


               Dim sql As String = ""


               sql = "SELECT * FROM tblImagensPDV"


               Dim conec As OleDbCommand


               conec = New OleDbCommand(sql, con)


               Dim adapter As OleDbDataAdapter = New OleDbDataAdapter(conec)


               Dim ds As DataSet = New DataSet()


               Try


                   adapter.Fill(ds)


                   Dim x As Integer = 0


                   Do While (repete = True)


                       Dim img As String = ds.Tables(0).Rows(x).Item("enderecoimagem").ToString


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


                       Me.Refresh()


                       System.Threading.Thread.Sleep(5000)


                       x += 1


                       If x > ds.Tables(0).Rows.Count - 1 Then


                           x = 0


                       End If


                   Loop


                   con.Close()


               Catch ex As Exception


                   '         MsgBox("Erro: " & ex.Message)


               End Try


           End Using


       End Sub


    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

    Re: Mudando imagem

    Mensagem  ahteixeira em Sex 29 Jan 2016, 08:23

    Olá, a resposta está na mensagem do nosso colega Silvio, no tópico abaixo:
    [Você precisa estar registrado e conectado para ver este link.]
    Abraço

      Data/hora atual: Dom 04 Dez 2016, 01:54