1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| 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 Command1_Click()
MsgBox ListView1.ListItems(3)
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
ListView1.SelectedItem = ListView1.ListItems(2) 'ici : on force la séléction de l'Item 2)
ListView1.SetFocus
DoEvents
Dim choisi As Integer
choisi = ListView1.SelectedItem
MsgBox "tu viens de sélectionner la ligne " & choisi & vbCrLf & _
" qui contient en sa 2ème colonne, le texte " & ListView1.SelectedItem.Text & vbCrLf & _
" et en sa 2ème colonne, le texte " & ListView1.ListItems(choisi).SubItems(2)
End Sub |
Partager