Création Item dans listbox en VB6Résolu

Question

Bonjour,
Je viens du monde C# et je découvre VB6. J'ai du mal à retrouver mes petits. AUssi je cherche à peupler une listbox à partir d'un recordset. J'ai essayé ce code mais je ne sais pas comment peupler un id d'item différement du text. En fait dans ma table jai par exemple IdCategorie et LibCategorie. Je veux que IdCategoires oit dans la value de l'item et que le LibCategorie soit dans le text.

Merci de votre aide

Private Sub PeupleCategorie()
    Dim SQL As String
    Dim i As Integer   
   
 For i = 0 To Locazur.rsGetCategories.RecordCount
    List1.AddItem (Locazur.rsGetCategories(i).Value)
 Next
  
End Sub

cs_CanisLupus · Accepted Answer

Salut,

Pour une listbox, essaie &#231;a :

'Pour remplir 
Locazur.rsGetCategories.movefirst
Do While Not Locazur.rsGetCategories.EOF
  List1.AddItem Locazur.rsGetCategories.fields("LibCategorie")
  List1.ItemData(List1.NewIndex) = Locazur.rsGetCategories.fields("IdCategorie")
  Locazur.rsGetCategories.movenext
Loop

'Pour relire
Private Sub List1_Click()
   Msg = List1.ItemData(List1.ListIndex) & " " 'lire l'ID de l'item
   Msg = Msg & List1.List(List1.ListIndex) 'lire le libelle de l'item
   MsgBox Msg
End Sub

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Création Item dans listbox en VB6

1 réponse

Discussions similaires