Visual Basic 6 - caricare immagini

Forum - Visual Basic 6 - caricare immagini

()
Newbie

Messaggi:
Iscritto:

Postato alle 1:00
Giovedì, 01/01/1970

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....

Codice sorgente - presumibilmente VB.NET

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?....

Overflow (Normal User)
Expert

Messaggi: 334
Iscritto: 11/01/2008

Postato alle 13:43
Domenica, 03/08/2008

Testo quotato

Postato originariamente da muteblaster:

Codice sorgente - presumibilmente VB.NET

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:

Codice sorgente - presumibilmente VB.NET

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 il 03/08/2008 alle 13:46

()
Newbie

Messaggi:
Iscritto:

Postato alle 22:33
Domenica, 03/08/2008

pero' complimenti funziona.....

Overflow (Normal User)
Expert

Messaggi: 334
Iscritto: 11/01/2008

Postato alle 11:21
Lunedì, 04/08/2008

certo che funziona!