Album foto

[viviana75]

ho costruito una applicazione gestionale.
nell' applicazione è previsto che ci sia la possibilità di vedere
una o piu foto per un dato record.
Avrei bisogno di mostrare quattro foto jpg, ma non so cosa usare.
C'è un controllo che mostra una o piu foto, come un album?
avete un esempio a portata di mano.
grazie

[Foga27News]

Puoi usare un semplice controllo picture.

Il metodo PaintPicture disegna una immagine in un controllo picture.

oggetto.PaintPicture immagine, x1, y1, larghezza1, altezza1, x2, y2, larghezza2, altezza2, codiceop

Tutti gli argomenti sono facoltativi, tranne "immagine"

oggetto = un controllo Picture
x1 = pixel di spostamento dell'immagine a sinistra
y1 = pixel di spostamento dell'immagine in basso
larghezza1 = Nuova larghezza dell'immagine (ridimensionata quindi)
altezza= Nuova altezza dell'immagine

gli altri argomenti forse nn ti servono.

Ad esempio puoi disegnare le 4 immagini nella stessa picturebox operando con gli argomenti x1 e x2.

[viviana75]

Supponiamo che ho una serie di jpg in una cartella.
posso richiamare alcune di queste foto, e visualizzarle insieme.
i nomi magari sono registrati nello stesso record, cosi con con un click le visualizzo.

[Foga27News]

Per esempio questo codice visualizza 4 immagini una sopra l'altra:

Public Sub VisualizzaImmagini(Nome1 As String, Nome2 As String, Nome3 As String, Nome4 As String)
Dim Img1 As StdPicture, Img2 As StdPicture, Img3 As StdPicture, Img4 As StdPicture
Img1 = LoadPicture(Nome1)
Img2 = LoadPicture(Nome2)
Img3 = LoadPicture(Nome3)
Img4 = LoadPicture(Nome4)

Dim vTop As Integer
Me.PaintPicture Img1, 0, vTop
vTop = vTop + Img1.Height
Me.PaintPicture Img2, 0, vTop
vTop = vTop + Img2.Height
Me.PaintPicture Img3, 0, vTop
vTop = vTop + Img3.Height
Me.PaintPicture Img4, 0, vTop
vTop = vTop + Img5.Height
End Sub

Naturalmente puoi renderla + flessiblie usando cicli e matrici.

[viviana75]

Grazie mille