nono78220
Messages postés181Date d'inscriptiondimanche 3 décembre 2006StatutMembreDernière intervention28 octobre 2010
-
25 juin 2007 à 13:37
chaibat05
Messages postés1883Date d'inscriptionsamedi 1 avril 2006StatutMembreDernière intervention20 novembre 2007
-
25 juin 2007 à 15:38
Bonjour,
J'ai une list view avec 2 colonnes. En cliquant sur une ligne, je voudrais récupérer le nom d'un titre de la premiere et de la deuxieme colonne de la listview ?
Cela me permettrait d'associer les 2 titres dans une variable et de charger grâce à "shell" un document dont le nom est cette variable.
nono78220
Messages postés181Date d'inscriptiondimanche 3 décembre 2006StatutMembreDernière intervention28 octobre 2010 25 juin 2007 à 14:01
en fait j'ai 2 colonnes dans une listview
1 colonne qui contient des dates
1 seconde colonne contient des titres
les dates sont assiociées au titres
Je voudrais en cliquant sur une ligne, récupérer la date de la premiere colonne et le titre de la seconde colonne de façon à les associer dans une seule variable.
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 25 juin 2007 à 14:20
Bonjour Nono,
Ce qui suit devrait t'éclairer suffisamment :
Une Form avec une listview ListView1 et un bouton de CXommande Command1
Cide :
Private Sub Form_Activate()
ListView1.ColumnHeaders.Add , , "Nom", ListView1.Width / 3
ListView1.ColumnHeaders.Add , , "prénom ID", ListView1.Width / 3, lvwColumnCenter
ListView1.ColumnHeaders.Add , , "date de naissance", ListView1.Width / 3
ListView1.ColumnHeaders.Add , , "", 0
Dim itmX As ListItem
For i = 1 To 10
Set itmX = ListView1.ListItems.Add(, , i)
itmX.SubItems(1) = "a" & i
If i Mod 2 = 0 Then
itmX.SubItems(2) = "17/02/2000"
itmX.SubItems(3) = "20000117"
Else
itmX.SubItems(2) = "20/03/2002"
itmX.SubItems(3) = "20020320"
End If
Next
End Sub
Private Sub ListView1_DblClick()
Dim choisi As Integer
choisi = ListView1.SelectedItem
MsgBox "tu viens de double-cliquer sur la ligne " & choisi & vbCrLf & _
" qui contient en sa 1ère colonne, le texte " & ListView1.SelectedItem.Text & vbCrLf & _
" et en sa 2ème colonne, le texte " & ListView1.ListItems(choisi).SubItems(2)
End Sub
Private Sub Command1_Click()
MsgBox ListView1.ListItems(3) ' te donne la 1ère colonne de la ligne 3
MsgBox ListView1.ListItems(3).SubItems(2) 'te donne la 3ème colonne (2 + 1) de la ligne 3
End Sub
Tu lances... tu cliques sur Command1... vois et analyse
Tu double-cliques où tu veux en 1ère colonne, tu vois et tu analyses...
Si difficulté de compréhension en dépit de celà... tu dis...
chaibat05
Messages postés1883Date d'inscriptionsamedi 1 avril 2006StatutMembreDernière intervention20 novembre 20072 25 juin 2007 à 15:14
revu et corrigé
Première colonne : (Pas de ListSubItems)
xText=ListView.ListItems(ListView1.SelectedItem.Index).Text
Deuxième colonne : (Premier ListSubItems)
xText=ListView.ListItems(ListView1.SelectedItem.Index).ListSubItems(1).Text