Sujet Précédent Sujet Suivant

Problème affichage contenu ListView

fyejumpy Messages postés 125 Date d'inscription dimanche 30 mars 2008 Statut Membre Dernière intervention 9 avril 2015 - Modifié par fyejumpy le 8/04/2015 à 15:56
fyejumpy Messages postés 125 Date d'inscription dimanche 30 mars 2008 Statut Membre Dernière intervention 9 avril 2015 - 9 avril 2015 à 12:49

Bonjour,

je dois faire un projet en Vb, le problème est que lorsque que je créer mes ListView dynamiquement et que je les stocke dans un tableau de ListView. je ne peux plus rien modifier.
Avant j'utilisé ce principe avec des listBox et cela marchait.

je ne comprend pas bien d'où peut provenir ce soucis, je n'ai aucun message d'erreurs.

Voici le code en question : en sachant que j'ai créer une variable globale pour avoir accès à mes listView dans n'importe quel fonction du userform.


Private Sub UserForm_Initialize()
    'Initialisation de l'interface opérateur
    'Le nombre d'onglet est calculé
    NbOnglet = ActiveWorkbook.Sheets.Count
    ' // Partie multipage
    'Redimensionnement du tableau
    ReDim Preserve tabList(0 To NbOnglet)
 
    'Nom des colonnes
    ReDim nomCol(0, 0 To 16)
    For i = 1 To 15
        nomCol(0, i - 1) = Cells(1, i).Value
    Next i
 
    'j'ajoute au MultiPage une nouvelle page pour pouvoir la parcourir
    MultiPage1.Pages.Add
    'on prend le nom du premier onglet du fichier et on lui affecte
    MultiPage1.Pages.Item(0).Caption = Worksheets(1).Name
 
    For i = 1 To NbOnglet
        'On stocke les noms des autres onglets dans un tableau
        nomOnglet(i - 1) = Worksheets(i).Name
        'on crée une nouvelle page
        MultiPage1.Pages.Add
        'On parcours l'ensemble des pages
        For j = 1 To MultiPage1.Count - 1
            'On change le nom des onglets
            MultiPage1.Pages.Item(j).Caption = nomOnglet(j)
            'on affecte dans un tableau de ListView les différentes listView
            Set tabList(i - 1) = MultiPage1.Pages.Item(j - 1).Controls.Add("MsComCtlLib.ListViewCtrl.2", "ListView" & i)
            'On paramêtre les listeViews
            With tabList(i - 1)
                For x = 1 To 15
                    .ColumnHeaders.Add , , nomCol(0, x - 1), 100
                Next x
                .View = lvwReport
                .Width = 363
                .Height = 102
            End With
        Next j
    Next i
 
    'On supprime la dernière page qui est en trop
    MultiPage1.Pages.Remove (MultiPage1.Count - 1)
End Sub

le but de ce programme est que quelque soit le fichier excel utilisé celui-ci doit pouvoir s'adapter en conséquence d'où le faites que je doit tout créer sur le tas.

J'ai fais un test et il s'avère que quand j'ajoute un item :

tabList(0).ListItems.Add , , "test"

Puis en essayant de l'afficher en msgBox, celui ci s'affiche. Cependant il n'appartait pas dans la l'affichage de la listeView.

j'avoue ne pas trop comprendre..

Merci de bien vouloir m'aider,
Cordialement

A voir également:

Problème affichage contenu ListView
Listview java - Forum Java
Affichage publicitaire ascenseur - Forum VB.NET
Delphi listview ✓ - Forum Delphi / Pascal
Wpf listview - Forum C# / .NET
Listview vba ✓ - Forum Visual Basic

1 réponse

Réponse 1 / 1

fyejumpy Messages postés 125 Date d'inscription dimanche 30 mars 2008 Statut Membre Dernière intervention 9 avril 2015
9 avril 2015 à 12:49

Up :/

Discussions similaires

affichage de caractere dans une grille

Compatibilité 32 bits et 64 bits

Comment récupérer le nombre de ligne d'une Listview

Je veux remplir mon listview

Vb.Net Remplire une Listview d'une façon horizontale

Votre réponse

Discussions similaires