neo2k2
Messages postés126Date d'inscriptionjeudi 16 janvier 2003StatutMembreDernière intervention 9 novembre 2009
-
8 févr. 2008 à 17:13
neo2k2
Messages postés126Date d'inscriptionjeudi 16 janvier 2003StatutMembreDernière intervention 9 novembre 2009
-
11 févr. 2008 à 10:37
Bonjour,
Ma demande est assez urgente car dans le cadre de mon association, je souhaiterais comparer le contenu de 2 ListView.
Ma Form contient 2 ListView de 2 colonnes chacunes.
La première colonne correspond au nom du fichier, la deuxième à son numéro de version.
La ListView1 est remplie automatiquement en effectuant une recherche réseaux de divers fichiers.
La ListView2 est préremplie avec une liste exhaustive de fichier.
Je souhaite qu'en cliquant sur un élément de la ListView1, l'élément portant le même nom dans la ListView 2 soit sélectionné et que les numéros de version, respectivement les ListView.SelectedItem.Text.
Pour l'instant voici le code de mon bouton qui compare les textes, il rester ensuite à comparer les sous-items correspondant au numéro de version...
Private Sub BtnCompare_Click()
Dim fName As String, split_fName As String, Cible As Integer
Dim i As Integer
If ListView1.ListItems.Count <> 0 Then
' le nom du fichier correspond à l'élément sélectionné
fName = ListView1.SelectedItem.Text
split_fName = Right(Left(fName, Len(fName)- 4), 5)
' on va parcourir toute la ListView2 et comparer chaque ligne avec le nom du fichier
For i = 1 To ListView2.ListItems.Count
Cible = ListView2.ListItems(i).Text
' si le nom du fichier existe dans la ListView2, on sélectionne l'élément correspondant
If InStr(Cible, split_fName) <> 0 Then
ListView1.SelectedItem.Index = i
End If
End If
Next i
Else
MsgBox "La liste est vide!"
Exit Sub
End If
End Sub
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 201315 8 févr. 2008 à 22:05
Salut,
quand je lis ton explication j'ai le sentiment que tu t'es barré avant d'avoir fini...
Je souhaite qu'en cliquant sur un élément de la ListView1, l'élément
portant le même nom dans la ListView 2 soit sélectionné et que les
numéros de version, ... et ... ?!!... ... ... !!! je tourne la tete a droite, a gauche... je me retourne... personne !... Ben il est parti !... meme pas dit au revoir!...
je vais essayer quand meme ... la suite doit surement ce passer ici :
If InStr(Cible, split_fName) <> 0 The
dim n as integer
For n = 0 to ListView1.listitems(i).listsubitems(),count -1
if ListView1.ListItem(i).ListSubItems(n).Text = ... hmmm ! ben... je doit y aller aussi moi ... A+
ListView1.SelectedItem.Index = i
End If
Non sans rire, donne nous le bout d'explication qui manque.
neo2k2
Messages postés126Date d'inscriptionjeudi 16 janvier 2003StatutMembreDernière intervention 9 novembre 20093 11 févr. 2008 à 10:37
Bonjour Big-Fish,
Euh oui, j'ai posté ce message peu de temps avant de rentrer à la maison... meas culpa.
Donc que te faut-il pour comprendre davantage mon code et ma question?
L'énoncé de mon problème me semblait clair... comparer le contenu de 2 listviews.
Chacune est composée de 2 colonnes or je ne sais pas vraiment comment faire pour accéder "au contenu" des sous-éléments.