Boa noite galera...

 

Fiz um esquema que no periodo +- d 2 minutos, a imagem d fundo do form muda, mostrando outra... fiz dessa forma, dentro do TIMER:

 

-------------------------------------------------------

Private Sub Timer1_Timer()

 

Cont = Cont + 1
Image1.Picture = frmSobre.ImageList1.ListImages(Cont).Picture
If Cont = frmSobre.ImageList1.ListImages.Count Then Cont = 0

End Sub

--------------------------------------------------------------

 

Mas o que ocorre, como viram, eu usei uma IMAGELIST... adicionei 60 imagens JPG, mas como previa o tamanho do EXE ficou enorme, por causa das imagens esta inseridas dentro do form...

 

Alguem tem uma dica, de como eu fazer essa apresentacao de imagens de fundo num form, usando imagens de uma determinada pasta... fazendo tipo um LOOP nas imagens dentro dessa pasta... se tiver 5, mostra 5... se eu acrescentar + 1, automaticamente o sistema faz o LOOP nas 6 imagens...

pode ser feito sim. para isso vc renomeia cada imagem com sequencial. img1, img,...imgx.

vc teria que saber quantas arquivos tem na pasta para poder fazer o loop. agora para pegar um por um vc teria que pegar o nome do arquivo da imagem se o numero para que seja feito o processo de seleção um por um no form. img + contador que va pegar de 1 ate o ultimo.

 

 

 

To tentando montar um codigo q corra as imagens dentro de uma determinada pasta... alguem tem um codigo, pra agilizar... vi q as imagens no EXE pesou muito...

esse aqui eu uso para alterar o icone com a variavel x, pode ser icon1, icon2, incon3, .....

vc faz para jpg e controla a variavel x com o timer

Command1.Picture = LoadPicture("C:Iconesiconos32x32" & "Icon " & "(" & x & ")" & ".ico")

 

blz

Coloque um timer e um imagebox em seu form, mude a propriedade interval do timer pro tempo que desejar depois cole: 

 

Dim Imagens() As String
 Dim C As Integer
 Dim a As Integer

Function subPegaAquivos(strPastaOrigem As String)
  'Cria instância do FSO
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFolderOrigem = objFSO.GetFolder(strPastaOrigem)
  Set objFoldersSubOrig = objFolderOrigem.SubFolders
  'Para cada pasta na coleção de subpastas da pasta origem
  For Each objFolder In objFoldersSubOrig
    'Chama recursivo enquanto tiver subpasta
    subPegaAquivos objFolder.Path
    'Para cada arquivo na coleção de arquivos da pasta
    For Each objFile In objFolder.Files
      'Verifica se o arquivo encontrado é do tipo PRW
      If ((LCase(Right(objFile.Path, 3))) = "jpg") Then
        'Atualiza RichTextBox -> lista arquivos processados
        C = C + 1
        ReDim Preserve Imagens(C) As String
        Imagens(C) = objFile.Path
             'Atualiza formulário
        Me.Refresh
      End If
    Next
  Next
End Function

Private Sub Form_Load()
subPegaAquivos ("C:\Documents and Settings\Paulista\Meus documentos\Minhas imagens")

End Sub

Private Sub Timer1_Timer()
On Error Resume Next
a = a + 1
If a = UBound(Imagens) Then a = 0
Image1.Picture = LoadPicture(Imagens(a))
End Sub