como fazer um slideshow com imagens

[RegiSales 0]

Gostaria de saber como fazer um slideshow com imagens jpg só usando os comandos do vb, sem powerpoint etc..Tem como? Agradeço desde já!

[Veber 0]

voce precisa dos seguintes comandos básicos

[*]A sequencia das imagens

[*]Carregar uma imagem do arquivo para a tela

[*]Passar de uma imagem para outra quando clicar ou apertar uma tecla

Existem várias maneiras de se implementar essa situação, vou apresentar uma.

 

Definindo a sequencia das imagens

 

Vou criar um arquivo TXT com a localizacao de cada imagem, cada linha conterá uma imagem e a sequencia do arquivo determinará a sequencia do slideshow.

 

Exemplo do arquivo: C:\slideshow01.txt

C:\Imagem01.jpg

C:\Foto02.jpg

C:\OutrasFotos\RostoFeliz.jog

 

Abrindo o arquivo, colocando os caminhos da imagem numa array na memória.

Dim listaFotos() as String << variavel Publicadim arq as bytedim line as Stringdim cont as Integerarq = freefile()Cont = 0Redim listaFotos(0)Open "C:\slideshow01.txt" for input as #arqDo While not eof(arq)Line Input #arq, lineRedim Preserve listaFotos(cont)listaFotos(cont) = linecont = cont + 1LoopClose #arq

Carregando uma imagem na tela:

Public Sub MudaImagem( cont  as Integer )Picture1.Picture = LoadPicture(listaFotos( cont ))End Sub

Mudando de imagens

Private Sub Picture1_Click()Static cont As IntegerIf cont > UBound(listaFotos) Then cont = 0mudaImagem contcont = cont + 1End Sub

É isso ai, quando o usuário clicar no picture01 ele verifica se ainda tem alguma foto, senao volta na primeira, e muda a imagem na tela pela rotina mudaImagem

e a rotina carrega a imagem pelo caminho que estiver armazenado no array

 

Sacou?

 

esse é só um modo, tem N maneiras

 

Flows