While com IF e vários image.pictures - ...

[Ivan Reis 0]

Salve amigos,

 

Estou numa enrrascada... :unsure:

 

Preciso pegar umas fotos dentro de um diretório, e colocar dentro dos image.pictures.

Dentre essas fotos pode haver uma com um tamanho maior qie 400 pixels e eu a coloco no ultimo image(5).picture.

Faço o loop e pego a próxima imagem, se for menor que 400 pixel eu devo coloca-la em image(1).picture.

Dentro do loop pego outra foto, se image(1).picture estiver com imagem, pulo para o image(2).picture e coloco a foto lá.

Dentro do mesmo loop pego outra foto, se image(1).picture e image(2).picture estiverem com imagem, pulo para o imag(3).picture e coloco a foto lá.

E assim vai até terminatem as fotos dentro desse diretorio.

 

Ai começa tudo de novo em outra folha com novas fotos de outro diretório.

 

Só que eu não estou conseguindo fazer isso no meu código.....

Se eu afirmo que uma image.picture ja tem foto eu deveria sair do loop "daquela foto" e marcar como image.picture já com imagem,mas não sei como

 

Se alguem souber como fazer isso agradeceria a ajuda, falou??? Obrigado...

 

Sege minha linha de código:

 

 

Private Sub Detail_Format()

Dim WFD As WIN32_FIND_DATA

'

Dim intLoop As Integer

Dim objControl As Image

'

mstrDirEntrada = "C:\Inetpub\wwwroot\DS\uploads\raat.da\" & Field28.Text & "\"

strMask = mstrDirEntrada & "*.jpg"

hArq = True

hSearch = FindFirstFile(strMask, WFD)

contador = 1

'

FlagImage1 = 0

FlagImage2 = 0

FlagImage3 = 0

FlagImage4 = 0

FlagImage5 = 0

'

Image1.Picture = Nothing

Image2.Picture = Nothing

Image3.Picture = Nothing

Image4.Picture = Nothing

Image5.Picture = Nothing

'

Image1.Visible = False

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

'

If hSearch <> INVALID_HANDLE_VALUE Then

While hArq

strArquivo = StripNulls(WFD.cFileName)

If Dir(mstrDirEntrada & strArquivo, vbArchive) <> "" And strArquivo <> "." And strArquivo <> ".." Then

dados = mstrDirEntrada & strArquivo

'

' Vefiricar imagem e retornar variavel m_width para saber tamanho

ReadImageInfo (dados)

 

' Se posição maior, image1

If m_Width > 400 And cheio400 = False Then

Image1.Visible = True

Image1.Picture = LoadPicture(dados)

cheio400 = True

End If

 

If Image2.Visible = False And cheio = False Then

Image2.Visible = True

Image2.Picture = LoadPicture(dados)

cheio = True

End If

 

If Image2.Visible = True And Image3.Visible = False And cheio = False Then

Image3.Visible = True

Image3.Picture = LoadPicture(dados)

cheio = True

End If

 

If Image2.Visible = True And Image3.Visible = True And Image4.Visible = False And cheio = False Then

Image4.Visible = True

Image4.Picture = LoadPicture(dados)

cheio = True

End If

 

If Image2.Visible = True And Image3.Visible = True And Image4.Visible = True And Image4.Visible = False And cheio = False Then

Image4.Visible = True

Image4.Picture = LoadPicture(dados)

cheio = True

End If

End If

 

contador = contador + 1

hArq = FindNextFile(hSearch, WFD)

Wend

hArq = FindClose(hSearch)

Else

MsgBox "Nenhum Arquivo encontrado para Processamento!"

End If

Exit Sub

 

ERRO:

MsgBox Err.Number & " - " & Err.Description

 

End Sub

[luiz humberto 0]

Quando o controle Image possui uma figura o valor da propriedade Picture é diferente de 0.