Map met fotos achtereenvolgens tonen in picturebox

[Inez879]

Hallo,

Wij zitten met een probleem, we hebben foto's in een map en de bedoeling is om deze achtereenvolgens te tonen in eenzelfde picturebox met een button volgende.
Kunnen jullie ons alsjeblieft helpen.

Alvast bedankt!!! 4 radeloze meisjes

 

[JoZ1]

Eerste gentleman meldt zich

Heb deze code verder niet getest, maar zou prima moeten werken:

[cpp]Private list As New List(Of IO.FileInfo) ''//opslagplaats
Private ext As String() = {".PNG", ".JPG", ".BMP", ".GIF"} ''//afbeeldingsextensies
Private counter As Integer = 0
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
''//Verzamelen
list.AddRange(New IO.DirectoryInfo("map").GetFiles("*.*", IO.SearchOption.TopDirectoryOnly))
LaadAfbeelding(0) ''//eerste afbeelding laden
End Sub

''//volgende-knop
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If counter < list.Count - 1 Then
counter += 1
LaadAfbeelding(counter)
End If
End Sub

''//vorige-knop
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If counter > 0 Then
counter -= 1
LaadAfbeelding(counter)
End If
End Sub

''//afbeelding laden
Private Sub LaadAfbeelding(ByVal index As Integer)
Try
If (list.Count > index) Then
If ext.Contains(list(index).Extension) Then ''//controleer extensie
PictureBox1.Load(list(index).FullName)
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Er is een fout opgetreden", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub[/cpp]

 

[Inez879]

Bedankt gentleman,

Sorry voor onze late reactie, we zijn je alvast dankbaar.
Het lukt echter nog niet om een foto te laden in de picturebox. We hebben bij map vervangen door "C:\Users\Inez" maar hij lijkt het niet weg te schrijven.

 

[JoZ1]

Dat kun je eenvoudig controleren met behulp van breakpoints (meer info: http://www.dotnetperls.com/debugging)
Maar je bent er zeker van dat er afbeeldingen met extensies PNG, JPG, BMP of GIF in die map staan?