Salve a tutti ragazzi. Sono giorni che mi scervello su un codice di vb e non riesco a venirne a capo.
Il programma consiste nel :
1)al''avvio vengono prelevate delle immagini con una determinata estensione da una cartella del pc
2)queste immagini vengono caricate in alcune picturebox (una per ogni picturebox)(per intenderci le picturebox di cui parlo sono quelle in basso nella foto)
3)quando clicco su una immagine, questa viene aperta nella picturebox grande(quella che sta in alto)
Praticamente una specie di album fotografico.
Questo è il codice che ho sviluppato:
For Each f As String In IO.Directory.GetFiles("C:\Users\Diego\Pictures")
Dim x As Integer
x = Val(f)
For i = 0 To Val(x)
If IO.Path.GetExtension(f) = ".gif" Then
Dim p As New PictureBox
p.CreateControl()
Dim h As Integer
h = h + 50
p.Location = New Point(131, 28 + h)
p.Size = New Point(40, 40)
p.BorderStyle = BorderStyle.FixedSingle
p.Image = Image.FromFile(f)
End If
If IO.Path.GetExtension(f) = ".gif" Then
PictureBox1.Image = Image.FromFile(f)
Me.Refresh() 'Obbliga il ridisegno del Form.
End If
Next
Next
Ovviamente non funziona .... Sapreste darmi una mano?
Spero di essermi spiegato.
Grazie a tutti