[RISOLTO]PictureBox come funziona?

[guglielmofede]

SALVE,

vorrei realizzare un PRG che mi faccia vedere delle immagini/foto contenuti in una directory cambiando ogni 10" con una nuova immagine.

Però sono arrivato ad un punto senza fine perchè mi da errore.


SUB PrintDirectory(Directory AS String)

  DIM File AS String
  FOR EACH File IN Dir(Directory, "*.JPG").Sort()
  PictureBox1.Picture = Directory & File
  WAIT 10
  NEXT

END


Un aiutino se non chiedo troppo ?

Un GRAZIE in anticipo......

[fsurfing]

ma in che linguaggio l' hai scritto?

prova con qualcosa di simile:

Codice: [Seleziona]

SUB PrintDirectory(Directory AS String)

DIM File AS new String[]

file=Dir(Directory, "*.JPG").Sort()

for each file

PictureBox1.Picture = Directory & "/" & File[i]
inc i
wait 10

next

 

non ho scritto il codice nell' ide ma se non è così è molto simile

[fsurfing]

comunque così finito il ciclo il prg rimarrà fissu sull' ultima immagine , senza contare che probabilmente il wait 10 ti bloccherà l'applicazione per 10 secondi ogni ciclo

forse sarebbe meglio caricare nell' array il percorso delle foto e poi con un timer andare a visualizzarle ogni 10 secondi

[milio]

l'errore e' in

PictureBox1.Picture = Directory & File

e non nel ciclo FOR EACH

va scritto cosi'

PictureBox1.Picture = Picture[Directory & File]

[fsurfing]

PictureBox1.Picture =picture.load( Directory & "/" & File)

[milio]

funziona anche cosi: PictureBox1.Picture = Picture[Directory & File]

[guglielmofede]

SALVE,

premetto: sono NUOVO ! sto cercando di IMPARARE ! abbiate piètà di ME !

Allora, mentre leggevo le altre discussioni risolte alla ricerca di una soluzione, ho trasformato nella seguente le righe prima scritte è FUNZIONA.


SUB PrintDirectory(Directory AS String)

  DIM File AS String
  FOR EACH File IN Dir(Directory, "*.JPG").Sort()
  PictureBox1.Picture = Picture.Load(Directory & File)
  WAIT 3
  NEXT

END

Guardando la soluzione trovata

http://www.gambas-it.org/gmbs/modules/newbb/viewtopic.php?viewmode=flat&type=&topic_id=805&forum=2

Ho provato anche quella di "milio", "fsurfing" e funzionano !

Ma mi viene una domanda:
come faccio a sapere quanti file ci sono in una Directory?

Questa forma del ciclo FOR EACH come funziona ?

G R A Z I E  per la spiegazione dettagliata .....

[Ceskho]

Per sapere quanti file ci sono in una directory basta usar il for each che incrementa una variabile...alla fine del ciclo saprai quanti file ci sono:

Codice: [Seleziona]

Dim i as integer = 0

FOR EACH File IN Dir(Directory, "*.JPG").Sort()
 i += 1
NEXT

PRINT "le immagini sono: " & str(i)

[guglielmofede]

Salve,

GRAZIE "Ceskho".....

vedrò di cambiare l'Oggetto in risolto..

[Ceskho]

Bravo....mi hai risparmiato di dovertelo dire...:-D

Mi piacciono gli utenti che imparano subito...;-D

[fsurfing]

se fai un dir questo ritorna un array esempio:


file= dir(percorso)


essendo file un array string[]

puoi sapere il numero di elementi con


n°_elementi=file.count

senza dover fare alcun ciclo

gli array sono molto comodi e versatili da usare, altre proprieta interessanti  sono:


array.find(valore)
array.delete(indice)
array.fill(valore,indice,lunghezza)
array.insert

ecc ecc