Hallo!
Ich möchte gerne zur Laufzeit Objekte erzeugen und in einer ArrayList speichern.
Eine ArrayList deshalb, weil die Reihenfolge später noch umsortiert werden kann.
Leider speichert er aber nichts ab und es passiert garnichts wenn ich Bilder auswähle.
Kann mir da jemand weiterhelfen?
Ich möchte gerne zur Laufzeit Objekte erzeugen und in einer ArrayList speichern.
Eine ArrayList deshalb, weil die Reihenfolge später noch umsortiert werden kann.
VB.NET-Quellcode
- Public Class BildElement
- Public Init As Integer
- Public FileName As String
- End Class
- Public Class Form1
- Dim col As New ArrayList
- Dim count As Integer = 0
- Dim Instanzen() As BildElement
- Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
- For Each bla As String In OpenFileDialog1.FileNames
- count = count + 1
- Instanzen(count) = New BildElement()
- Instanzen(count).Init = count
- Instanzen(count).FileName = bla
- col.Add(Instanzen(count))
- Next bla
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- OpenFileDialog1.Title = "Bilder auswählen"
- OpenFileDialog1.Multiselect = True
- OpenFileDialog1.Filter = "Bilddateien(.jpg)|*.jpg|Alle Dateien|*.*"
- OpenFileDialog1.ShowDialog()
- End Sub
- Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
- End Sub
- Private Sub moveUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles moveUp.Click
- Dim stelle As Integer
- stelle = ListBox1.SelectedIndex
- col.Insert(stelle - 1, col(stelle))
- col.RemoveAt(stelle + 1)
- AktualisiereList()
- End Sub
- End Class
Leider speichert er aber nichts ab und es passiert garnichts wenn ich Bilder auswähle.
Kann mir da jemand weiterhelfen?