[Resolvido]Fazendo um loop constante nos registros da tabela com a opção de parar

Bem amigos...o que pretento é o seguinte

Tenho um controle imagem que fará leitura de um arquivo no HD...

Me.CtlImagem = "Caminho"

Preciso de um tipo de codigo que aplique no caminho em uma sequência de 1 a 50 (registros na tabela) fzendo um loop ao chegar no registro de numero 50 e recomeçando no 1 novamente... e que me de a opção de para...


Espero que tenham entendido.. qualquer idéia é bem vinda


Grato

Entendi quase tudo, menos a parte da "opção de para..."

Você quer que a instrução coloque as imagens de 1 a 50 no controle?

Sim.. alterando-as e exibindo-as... com a opção de parar em algum registro

rsrs

E como serão fornecidas essas informações de registro aonde parar? Para rodar a sequência seria algo assim no evento "No Timer":

If NumImagem < DMax("Código", "NomeTabela") Then
NumImagem = NumImagem + 1
Else
NumImagem = 1
End If

Me.ControleImagem.Picture = DLookup("CaminhoDaImagem", "Tabela", "Código=" & NumImagem)

Depois da primeira linha do módulo vba do formulário, coloque essas duas:

Option Explicit
Dim NumImagem As Integer

no dLookup disse que não foi possivel abrir o arquivo... o primeiro registro


Ops!!.. perai... caminho com erro...
Take easy...

Perfeito... agora como no botão.. podemos setar o timer para parar ate ai tudo bem...
mas como identificar o registro em que vamos parar...
hum...
algo asim...

Vou testar algo aqui...

ou dois botões... para caminhos giros contrários? Esquerda e direita...

01 - 50
50 -01

Agora tem como fazer isto utilizando o loop e fora do timer?

Fora do Timer complica, pois é o Timer que controla o tempo. Se você fizer em outro evento, sem passar pelo Timer, irá direto da primeira para a última ou vice-versa. Melhor dizendo, passará por todas elas ao iniciar o evento, mas em uma velocidade tão incrível que nem verá as imagens do meio

Mas se utilizarmos um pause a cada registro?

Amigão como dar um pause.. e continuar...

tenho uma função de pause aqui... mas ela para todo o modulo do form


Me.TimerInterval = 50
'Call FU_Delay(4,5 False) 'pausa de 4 segundos e meio
Me.TimerInterval = 0

Bom dia, Hary

Experimente esse princípio que referiu da função pausa.
Outra opção será criar uma variável com a hora de começo do código. A partir daí, verifica o intervalo decorrido. Se coincidir com múltiplo do tempo de ciclo desejado, avança uma imagem. Pelo meio, insira DoEvents

Bom dia alexandre... ainda estou engatinhando nas veredas do Loop e doevent etc...

Farei assim... irei até onde conseguir.. e quando não mais posto o código aqui para que me ajudem..

pode ser?

Grato

Poderia por gentileza Alexandre me explicar como seria a querstão da variável com horas?

Um pequeno exemplo de código para que eu possa entender.

Grato

Uma forma de se fazer isso no Timer, pode ser declarando uma variável de nome varTempo por exemplo. Essa variável vai acumulando os segundos. Vamos supor que você queira que o evento aconteça de 5 em 5 segundos:

If VarTempo < 5 Then
VarTempo = VarTtempo + 1
ElseIf VarTempo >= 5 Then
Evento a ser disparado
VarTempo = 1
End If

Dessa forma, ao disparar o evento, volta ao 1 e recomeça a contar.

Bem amigos darei este tópico por encerrado, pois parcelas deste assunto começamos a discutir em outro tópico e neste momento estão no mesmo patamar... Passaremos então a reolvê-los no outro tópico que esta mais adiantado...

Obrtigado


http://maximoaccess.forumeiros.com/t3409-pausa-em-gif-atraves-de-vba