Sélectionné un Item [VB6]Résolu

Question

bonsoir
dans une form j'ai une listview ou je r&#233;cupere des donn&#233;es d'une base Access,dans ma listview j'ai 5 colonnes,
est ce possible quand clickant sur un items je r&#233;cupere toutes les donn&#233;es dans des labels qui sont dans la form.
voila mon d&#233;but de code : 
Private Sub List_Click()

  Set Rs = New ADODB.Recordset
    Rs.Open "select * from film where code_film=" & CodeFilm, DB    If Rs.BOF True And Rs.EOF False Then



        lbl_arti.Caption = Rs!article
        lbl_code.Caption = Rs!code
        lbl_famille.Caption = Rs!famille
        lbl_cat&#233;.Caption = Rs!cat&#233;gorie
        lbl_stock.Caption = Rs!stock
        lbl_gere.Caption = Rs!ger&#233;
     Image5.ToolTipText = Rs.Fields("affiche")
    Image5.Picture = LoadPicture(App.Path & "\affiche" & Image5.ToolTipText)
        End If
Rs.Close
End Sub
merci
@plus
petchy

Gobillot · Accepted Answer

j'ai d&#249; mal comprendre,
je prenais les donn&#233;es des Labels pour les mettre dans l'item click&#233;

si les Labels sont vides, &#231;a s'efface ...



&#224; moins que ce soit le contraire:

Private Sub ListView_ItemClick(ByVal Item As MSComctlLib.ListItem)

     lbl_arti.Caption = Item.Text

    lbl_code.Caption = Item.SubItems(1) 

    lbl_famille.Caption = Item.SubItems(2) 


    lbl_caf&#233;.Caption = Item.SubItems(3) 


    lbl_croissant.Caption = Item.SubItems(4) 



    lbl_sucre.Caption = Item.SubItems(5) 

End Sub


hum!!! &#231;&#224; fait 6 colonnes 


Daniel

Gobillot · Answer

oui si ton ListView a des colonnes

View = lvwReport



Private Sub LV_ItemClick(ByVal Item As MSComctlLib.ListItem)

    Item.Text = lbl_arti.Caption 

    Item.SubItems(1) = lbl_code.Caption

    Item.SubItems(2) = lbl_famille.Caption

'    etc.... 


End Sub


Daniel

cs_petchy · Answer

salut Daniel
merci 
En fait je voulais dire Afficher les donn&#233;es au lieu de r&#233;cup&#233;r&#233;, d&#233;sol&#233; 
Car avec ton code quand je click sur un item &#231;a disparait mais il n'y &#224; rien qui s'affiche
petchy

cs_petchy · Answer

nickel Daniel,merci
OK pour le caf&#233; et les croissants &#224; demain matin 
@ plus
petchy

Sélectionné un Item [VB6]

4 réponses

Discussions similaires