🚀 go-pugleaf

"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)