🚀 go-pugleaf

Sei eccezzionale, io lo stavo sviluppando immagine per immagine, ci avrei
messo una vita e sarebbe venuto malissimo..ti chiedo un'altra cosa: per
tornare indietro basta cambiare il + con il - o devo fare qualche altra
cosa? invece dei pulsanti posso usare anche un timer?..grazie ancora.

"Esteban" <esteban_nonspammaresoftware@email.it> ha scritto nel messaggio
news:rhfB8.12144$5k4.319424@twister2.libero.it...
> "fabio" <airons@libero.it> ha scritto nel messaggio
> news:_RcB8.11746$US3.288928@twister1.libero.it...
> > Ciao ragazzi, mi aiutate? vorrei fare in modo che cliccando su un
pulsante
> > si visualizzassero delle immagini jpg che ho in una cartella,
praticamente
> > ad ogni premuta una nuova immagine che si trova in questa cartella che
io ho
> > chiamato "Fotomie" e le foto le ho chiamate"prima" , "seconda"
ecc..grazie a
>
> Ecco cosa ti serve:
> - 1 Form;
> - 1 controllo Image (Image1);
> - 1 controllo CommandButton (Command1);
> - 1 controllo FileListBox (File1).
>
> Posiziona nel Form il controllo Image impostandone le dimensioni cos� come
vuoi
> vengano visualizzate le immagini.
> Posiziona il controllo CommandButton.
> Posizione il controllo FileListBox in qualsiasi posizione (tanto diventer�
> invisibile).
>
> Copia e incolla il seguente codice:
>
> Option Explicit
>
> Private Sub Command1_Click()
>     'Se il file corrente non � l'ultimo della lista
>     If File1.ListIndex < File1.ListCount - 1 Then
>         'Spostati al il prossimo file
>         File1.ListIndex = File1.ListIndex + 1
>     Else
>         'Ricomincia dal primo file
>         File1.ListIndex = 0
>     End If
>     'Carica il file corrente
>     Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
> End Sub
>
> Private Sub Form_Load()
>     'Imposta il controllo FileListBox affinch� carichi immagini del
>     ' tipo jpg, gif, bmp
>     File1.Pattern = "*.jpg;*.gif;*.bmp"
>     'Imposta la cartella che contengono le immagini:
>     File1.Path = "C:\Fotomie"
>     'Nasconde il controllo FileListBox
>     File1.Visible = False
>     'Imposta il ridimensionamento delle foto al controllo Image:
>     Image1.Stretch = True
> End Sub
>
> Ciao!
> --
> Esteban
> Hosted by www.seber.it
> (Remove nonspammare for reply)
>
>