Public Function lister(ByVal listdept As ArrayList, ByVal objrecherche As String, ByVal listnom As ArrayList) As ArrayList For i As Integer = 0 To listEntite.Count - 1 If listdept(i).indexof(objrecherche) <> -1 Then //je recherche l'objet cliqué dans ma liste listent.Add(i) //l'erreur est là End If Next
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged Dim indice As ArrayList Dim i As Integer = 0 'Dim objitem As ListViewItem indice = lister(listdept(), ListView1.SelectedItems(0).Text, listnom()) For Each i In indice Me.ListView2.Items.Add(listnom(i)) Next end class
For i As Integer = 0 To listEntite.Count - 1 If listdept(i).indexof(objrecherche) <> -1 Then
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Function lister(ByVal listdept As ArrayList, ByVal objrecherche As String, ByVal listnom As ArrayList) As ArrayList For i As Integer = 0 To listdept.Count - 1 If listdept(i).indexof(objrecherche) <> -1 Then //je recherche l'objet cliqué dans ma liste listent.Add(i) //l'erreur est là End If Next