Bonjour tout le monde,
Je souhaite placer le code qui suit et qui fonctionne dans une procédure située dans une classe.
Public Sub RemplirListView(NomForm as xxxx, NomListView as xxx)
Mais je n'arrive pas à passer le nom du formulaire et celui de la listview en paramètre...
Merci pour le coup de main,
Gwendal
Je souhaite placer le code qui suit et qui fonctionne dans une procédure située dans une classe.
Public Sub RemplirListView(NomForm as xxxx, NomListView as xxx)
Code:
Dim LstItem As ListItem
Dim Entete As ColumnHeader
Dim iLargeurListView As Integer
Dim i As Integer
Dim oRst As New ADODB.Recordset
Dim iNbreChampDb As Integer
' Initialiser le contrôle listView
Me.lstvRepertoire.ListItems.Clear
Me.lstvRepertoire.ColumnHeaders.Clear
' Largeur du contrôle
iLargeurListView = Me.lstvRepertoire.Width
' Charger la base
Set oRst = clRepertoire.ChargerTous()
' Nombre de champs
iNbreChampDb = oRst.Fields.Count - 1
' Création des entêtes
For i = 0 To oRst.Fields.Count - 1
Set Entete = Me.lstvRepertoire.ColumnHeaders.Add
Entete.Text = Trim(oRst.Fields(i).Name & "")
Entete.Width = iLargeurListView / (iNbreChampDb + 0.25)
'If i = 0 Then Entete.Width = 0
Next
i = 1
' Chargement des enregistrements
While Not oRst.EOF
Set LstItem = Me.lstvRepertoire.ListItems.Add(1, , Trim(oRst(0) & ""))
For i = 1 To oRst.Fields.Count - 1
LstItem.ListSubItems.Add i, , Trim(oRst(i) & "")
Next
oRst.MoveNext
Wend
Mais je n'arrive pas à passer le nom du formulaire et celui de la listview en paramètre...
Merci pour le coup de main,
Gwendal
Dernière édition: