Liste view

[BRUNO62]

Bonjour,

J'ai repris le post . 20/10/2011 15h16 LISTVIEW Ajouter Modifier Supprimer
Voir ci-dessous ma demande.
Merci, de votre aide
A+

 

[klin89]

Re : Liste view

Bonsoir Bruno,

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim i As Byte
TextBox7 = ListView1.ListItems(ListView1.SelectedItem.Index).Text
For i = 1 To 5
  Controls("TextBox" & i + 7) = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(i)
Next i
Me.CommandButton1.Enabled = True
Me.Frame1.Visible = True
Me.ListView1.MultiSelect = False
End Sub

ou ceci :

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim i As Byte
TextBox7 = ListView1.ListItems(ListView1.SelectedItem.Index).Text
For i = 8 To 12
  Controls("TextBox" & i) = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(i - 7)
Next i
Me.CommandButton1.Enabled = True
Me.Frame1.Visible = True
Me.ListView1.MultiSelect = False
End Sub

Klin89

 

[BRUNO62]

Re : Liste view

Bonsoir Klin89 ,

Grand merci, c'est ok. Encore merci pour ta rapidité de donner l'info !
Bonne soirée
A+