VB6 ListView

Question

Hyper débutant en VB6!!!! J'ai un fichier" base_appli.txt" avec 5 caractéristiques séparées par des points virgules.
Dans le module, on a mis le code suivant:

Option Explicit

Public Type produit
 Num_pdt As Integer
 Nom_pdt As String
 Quantité_pdt As Integer
 Num_four As Integer
 Nom_four As String
End Type

Public actProduit As produit
Dim produits() As produit

Public Sub BaseAppli() 'init

Dim contenuLigne As String
Dim entréefichier As Integer
Dim compteur As Integer

compteur = 0
entréefichier = FreeFile

Open App.Path & "\base_appli.txt" For Input As #entréefichier 'ouvrir le fichier base_appli afin de sortir les donées

   Do While Not EOF(entréefichier)
      Line Input #entréefichier, contenuLigne
         contenuLigne = fournisseurs.ListView1.ListItems.Add
         produits = Split(contenuLigne, ";", 3)
         produits(compteur) = actProduit
         compteur = compteur + 1
         ReDim Preserve produits(UBound(produits, 1) + 1)
   Loop
   

Close #entréefichier

Et dans un form, j'aimerai insérer les caractéristiques que j'ai dans mon txt dans le listview du form!!!
Comment puis-je faire ?
Merci pour votre aide!!!!!!
emi

valtrase · Answer

Ta ligne ici n'est pas bonne:
contenuLigne = fournisseurs.ListView1.ListItems.Add

c'est plutot en VB:
Listview1.AddItem ContenuLigne

_______________________________________

Jean-Paul

Le Savoir n'a de valeur que s'il est partagé

cs_CanisLupus · Answer

Salut, sur la base des indications de ta question, le code suivant devrait fonctionner.

Public Sub BaseAppli()
Dim contenuLigne As String
Dim entréefichier As Integer
Dim produits() As String
Dim itmx As ListItem
Dim i As Integer

entréefichier = FreeFile

Open App.Path & "\base_appli.txt" For Input As #entréefichier 'ouvrir le fichier base_appli afin de sortir les donées

Do While Not EOF(entréefichier)
Line Input #entréefichier, contenuLigne
produits = Split(contenuLigne, ";")

Set itmx = fournisseurs.ListView1.ListItems.Add(, , produits(0))

For i = 1 To 4
itmx.SubItems(i) = produits(i)
Next

Loop

Close #entréefichier

End Sub


Cordialement, CanisLupus

VB6 ListView

2 réponses

Discussions similaires