Ggtcf

I have the following Problem:

I have a ListView with e.g. 5 items:

AAAA (selected)
BBBB 
CCCC (selected)
AAAA (selected)
AAAA

And I will check if all the same items are selected (there can also be additional items selected here the CCCC for example) if not then I will get an Msgbox with en error message.

In this example it should get the error messag because one AAAA item is missing.

This is what I have tryed, but in this case it do not work, if you Select an additional Item so only one e.g. AAAA is working. (AAAA and BBBB are not working)

ContainerBox is the ListView

Dim SelectedContainer As Integer = ContainerBox.SelectedItems.Count - 1
Dim ContainerXY As String
Dim ContainerXYAnzahl As Integer
Dim ContainerXYAnzahlAusge As Integer

For i As Integer = 0 To SelectedContainer
 ContainerXY = ""
 ContainerXYAnzahl = 0
 ContainerXYAnzahlAusge = 0
 ContainerXY = ContainerBox.SelectedItems(i).ToString.Substring (ContainerBox.SelectedItems(i).ToString.IndexOf(":") + 1)
 For ii As Integer = 0 To ContainerBox.Items.Count - 1
 If ContainerXY = ContainerBox.Items(ii).ToString.Substring (ContainerBox.Items(ii).ToString.IndexOf(":") + 1) Then
 ContainerXYAnzahl += 1
 End If
 Next
 For ii = 0 To SelectedContainer
 If ContainerXY = ContainerBox.SelectedItems(i).ToString.Substring(ContainerBox.SelectedItems(i).ToString.IndexOf(":") + 1) Then
 ContainerXYAnzahlAusge += 1
 End If
 Next
 If ContainerXYAnzahlAusge <> ContainerXYAnzahl Then
 PresentPopup("Bitte wählen Sie alle Positionen" & Environment.NewLine & "des Container", AlertType._Error)
 Exit Sub
 End If
Next

And this is how the ListView Looks like:

Try this

Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
 Dim selectedList = ListView1.SelectedItems.OfType(Of ListViewItem)
 Dim desiredList = ListView1.Items.OfType(Of ListViewItem).Where(Function(i) selectedList.Select(Function(j) j.Text).Contains(i.Text))
 Dim missingItems = desiredList.Except(selectedList)
 Dim selectionsCorrect = Not missingItems.Any()
 Me.Text = $"Correct: selectionsCorrect; Missing items: (String.Join(", ", missingItems.Select(Function(i) i.Text)))"
End Sub