🚀 go-pugleaf

"fabio" <airons@libero.it> ha scritto nel messaggio
news:trgB8.12658$5k4.329013@twister2.libero.it...
> > 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
>
> 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.

Certo, devi posizionarti sul file precedente nel controllo FileListBox, ma devi
controllare che tu non sia gi� posizionato sul primo file, altrimenti otterresti
un errore:

Private Sub Command2_Click()
    'Se il file corrente non � l'ultimo della lista
    If File1.ListIndex > 0 Then
        'Spostati al file predecente
        File1.ListIndex = File1.ListIndex - 1
    Else
        'Ricomincia dall'ultimo file
        File1.ListIndex = File1.ListCount - 1
    End If
    'Carica il file corrente
    Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
End Sub


--
Esteban
Hosted by www.seber.it
(Remove nonspammare for reply)