Visual Basic 6 - caricare immagini

02/08/08 23:25

salve ragazi....

ho un problema che probabilmente e' banale, ma non riesco a risolvere....
io ho in una cartella delle immagini in formato bmp, e voglio caricarle su delle picturebox( con proprieta' index ) .....

prima leggo tutti i fil con estensione bmp e poi li carico, pero' aime' non riesco a caricarli su tutte le picture box si caricano tutte su una picture sola....

Dim s As String
    s = Dir(App.Path & "\smile" & "\*.bmp")
    Do
      If Len(s) = 0 Then Exit Do
         Pict(Index).Picture = LoadPicture(App.Path & "\smile\" & s)
      Pause 1
      s = Dir
    Loop

io vorrei che ogni immagine man mano che viene letta venga caricate su una picture diversa ovviamente in sequenza con l'index....

qualcuno ha qualche idea?....

03/08/08 11:43

Overflow

Postato originariamente da muteblaster:

Dim s As String
    s = Dir(App.Path & "\smile" & "\*.bmp")
    Do
      If Len(s) = 0 Then Exit Do
         Pict(Index).Picture = LoadPicture(App.Path & "\smile\" & s)
      Pause 1
      s = Dir
    Loop

Pict(Index).Picture = LoadPicture(App.Path & "\smile\" & s) è normale se usi sempre Pict(index) utilizzi sempre la stessa picture, dovresti incrementare ogni volta index(index=index+1).
ma ti consiglio di usare un ciclo for:

s = Dir(App.Path & "\smile" & "\*.bmp")
for i=0 to Pict.count
if s="" then exit for
         Pict(i).Picture = LoadPicture(App.Path & "\smile\" & s)
      Pause 1
      s = Dir
next i

prova in questo modo.

Ultima modifica effettuata da Overflow 03/08/08 11:46

aaa

03/08/08 20:33

pero' complimenti funziona.....

04/08/08 9:21

Overflow

certo che funziona!

aaa