Hallo!
Ich mit
Dateinamen aus einem Verzeichnis in eine Listbox geladen. (Dieses Verzeichnis enthält nur Bilder)
Nun sollen die Bilder nacheinander in eine Picturebox geladen werden. Die Picturebox hat die Größe von 100x100 Pixel und ist auf StrechImage gesetzt. Dann sollen die Bilder mit der neuen Größe gespeichert werden. Jedoch wird das Bild mit der bisherigen Größe gespeichert. Damit die bisherigen Bilder nicht überschrieben werden, werden die neuen Bilder im Unterverzeichnis "Klein" abgelegt.
Das ganze läuft in einem Timer wie folgt ab:
Index wird beim Laden der Form auf 0 gesetzt.
Was fehlt, damit die Bilder mit der neuen Größe gespeichert werden?
*Topic verschoben*
Ich mit
Dateinamen aus einem Verzeichnis in eine Listbox geladen. (Dieses Verzeichnis enthält nur Bilder)
Nun sollen die Bilder nacheinander in eine Picturebox geladen werden. Die Picturebox hat die Größe von 100x100 Pixel und ist auf StrechImage gesetzt. Dann sollen die Bilder mit der neuen Größe gespeichert werden. Jedoch wird das Bild mit der bisherigen Größe gespeichert. Damit die bisherigen Bilder nicht überschrieben werden, werden die neuen Bilder im Unterverzeichnis "Klein" abgelegt.
Das ganze läuft in einem Timer wie folgt ab:
VB.NET-Quellcode
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- Dim p As Integer
- Dim Kette As String
- PictureBox1.Image = Image.FromFile(ListBox1.Items(Index))
- p = InStr(ListBox1.Items(Index), "\bilder")
- Kette = ListBox1.Items(Index)
- Kette = Mid(Kette, 1, p - 1) & "\klein" & "\" & Mid(Kette, p + 7, Len(Kette))
- PictureBox1.Image.Save(Kette, Imaging.ImageFormat.Jpeg)
- Index = Index + 1
- If Index = ListBox1.Items.Count Then Timer1.Enabled = False
- End Sub
Index wird beim Laden der Form auf 0 gesetzt.
Was fehlt, damit die Bilder mit der neuen Größe gespeichert werden?
*Topic verschoben*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()