MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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

    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4281
    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: Qui 17 Ago 2017, 02:54