[VB6] Programma per sfogliare immagini

[andrea toniolo]

allora...
ti rispiego ...magari nn c siamo capiti xk abbiamo scritto contemporaneamente...
1-file list box voglio vedere le immagini ke sono nella stessa dir del programma ma una cartella che si chiama immagini .

2-nel picture box voglio visualizzare l'immagine che ho evidenziato nel file list box....
potresti mettermi il codice completo?...grazie mille....sopprattutto x sopportarmi....

[Brainjar]

Campia questa istruzione :

    
    ' Prima
    ' File1.Path = "c:\Immagini\"
    
    ' Adesso
    File1.Path = App.Path & "\Immagini\"

Ciao,

[andrea toniolo]

Private Sub File1_Click()
Picture1.Picture = LoadPicture(App.Path & "\immagini\" & File1.FileName)
End Sub
Private Sub Picture1_Click()
LoadPicture.File1
End Sub



mi puoi dare un codice tipo questo con tutto...in modo che lo copio e lo incollo sopra a tutto sk nn ho capito dove inserire quei codici....
xfavore nn scriverci prima o dopo o roba del genere....
grazie mille...

[Brainjar]

Se vuoi utilizzare il FileListBox (il tuo oggetto File1), devi
impostare la sua proprietà Path. Se vuoi che File1 carichi i
nomi dei files all'avvio del programma questo lo puoi far fare
nel Form_Load.

Private Sub Form_Load()
    File1.Path = App.Path & "\Immagini\"
End Sub

La parte di caricamento immagine è sta tutta nel click su File1 :

Private Sub File1_Click()
    Picture1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
End Sub

Questo codice è perfettamente inutile (da togliere).

[CODE]
Private Sub Picture1_Click()
LoadPicture.File1
End Sub
[CODE]

Ciao,

PS: Le righe che iniziano con ' in VB sono dei commenti, si
possono includere nel copia/incolla.