Liste view

BRUNO62 · 26 Octobre 2011

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 · 26 Octobre 2011

Re : Liste view

Bonsoir Bruno,

VB:

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 :

VB:

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 · 26 Octobre 2011

Re : Liste view

Bonsoir Klin89 ,

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

Liste view

BRUNO62

XLDnaute Occasionnel

Pièces jointes

klin89

XLDnaute Accro

BRUNO62

XLDnaute Occasionnel

Discussions similaires

Liste view

BRUNO62

XLDnaute Occasionnel

Pièces jointes

klin89

XLDnaute Accro

BRUNO62

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency