ListView: Mehrfachselektion -> Reihenfolge

goela

Erfahrenes Mitglied
Hallo,
habe folgendes "Problemchen". Habe ein Listview mit Mehrfachselektion.

Nun möche ich aber gerne die selektierten Elemente in der Reihenfolge übernehmen, wie diese selektiert wurden.

Beispiel:
Liste mit Einträgen von 1 - 10. Folgende Einträge werden der Reihe nach selektiert: 5, 2, 8, 1

Jetzt möchte ich die Elemente auch in dieser Reihenfolge auslesen:
Eintrag 5
Eintrag 2
Eintrag 8
Eintrag 1

Das ListView liefert leider die die Reihenfolge so wie es in der Liste ist:
Eintrag 1
Eintrag 2
Eintrag 5
Eintrag 8

Mir fallt da aktuell nur folgende Lösung ein:
ListView ableiten und eine zweite Liste führen, die die Reihenfolge der selektierten Einträge verwaltet.

Kennt jemand eine einfachere oder besser Lösung?

Besten Dank!
 
Würde über die Events gehen und schon beim Markieren des Eintrags den einfach in ein Array schreiben. Wenn der Eintrag schon in der Liste ist, rausnehmen.

Da würde ich mir garkeinen Stress mit dem ableiten machen.

Gruss

MFC OpenGL


PS: Schau mal die Selected Befehle an ;)
 
MFG Marco

Code:
  Private Sub baddfile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles baddfile.Click
 		Dim datName As String = ""
 		Dim arreydatname() As String
 		OpenFileDialog1.Filter = "tdx files (*.tdx)|*.tdx|All files (*.*)|*.*"
 		OpenFileDialog1.FilterIndex = 1
 		OpenFileDialog1.RestoreDirectory = True
 		OpenFileDialog1.Multiselect = True
 		If OpenFileDialog1.ShowDialog = DialogResult.OK Then
 			If OpenFileDialog1.Multiselect = True Then
 			    arreydatname = OpenFileDialog1.FileNames
 				Dim i As Integer
 			    For i = 0 To OpenFileDialog1.FileNames.Length - 1
 				    countfiles = countfiles + 1
 				    ListBoxaddfile.Items.Add(arreydatname(i))
 				    ReDim Preserve files(countfiles)
 				    files(countfiles) = arreydatname(i)
 				Next
 			Else
 
 				countfiles = countfiles + 1
 				datName = OpenFileDialog1.FileName
 				ReDim Preserve files(countfiles)
 				files(countfiles) = datName
 				ListBoxaddfile.Items.Add(datName)
 			End If
 		End If
 	End Sub
 

Neue Beiträge

Zurück