ListView

[geertd]

Hallo allemaal,

Hoe kan alle items uit een bestaande map (op mijn bureaublad) in een listview in mijn form weergeven?

Alvast bedankt,

Geert

 

[The Mighty Atom]

Deze code werkt alleen als je een ListView genaamd lv1 hebt en een ImageList genaamd ilIcons:

        Dim lvi As ListViewItem
        Dim DirInfo As New DirectoryInfo("Locatie van map op bureaublad hier")


        lv1.BeginUpdate()
        For Each ShortCut As FileInfo In DirInfo.GetFiles("Hier eventueel een filter als je alleen één type bestand wil ophalen") '("*.ext")
            lvi = New ListViewItem
            lvi.Text = Path.GetFileNameWithoutExtension(ShortCut.Name)
            ilIcons.Images.Add(Icon.ExtractAssociatedIcon(ShortCut.FullName).ToBitmap)
            lvi.ImageIndex = ilIcons.Images.Count - 1
            lv1.Items.Add(lvi)
        Next
        lv1.EndUpdate()

 

[geertd]

Hoe kan ik het maken dat wanneer het form opent er een FolderBrowserDialog verschijnt. Daarna moeten alle bestanden in het gekozen pad worden weergegeven in de ListView.

Ik moet de code dus toevoegen onder Form1.Load

Kan iemand mijn helpen?

 

[The Mighty Atom]

Onder Form1.MyBase (Form.Load dus) de volgende code plaatsen:

        Dim fbd As New FolderBrowserDialog

        If fbd.ShowDialog = DialogResult.OK Then

            Dim lvi As ListViewItem
            Dim DirInfo As New DirectoryInfo(fbd.SelectedPath)

            lv1.BeginUpdate()
            For Each ShortCut As FileInfo In DirInfo.GetFiles("*.lnk")
                lvi = New ListViewItem
                lvi.Text = Path.GetFileNameWithoutExtension(ShortCut.Name)
                ilIcons.Images.Add(Icon.ExtractAssociatedIcon(ShortCut.FullName).ToBitmap)
                lvi.ImageIndex = ilIcons.Images.Count - 1
                lv1.Items.Add(lvi)
            Next
            lv1.EndUpdate()

        End If

 

[geertd]

Ik heb de filter ingesteld voor *.txt.
Hoe kan ik het zo maken dat wanneer je dubbel op een bestand in de ListView klikt, de inhoud van het bijbehorende bestand wordt weergegeven in een Label.

Hoe kan ik dit doen?

Heel erg bedankt voor de vorige codes.

 

[The Mighty Atom]

In plaats van direct een volgende vraag te stellen, kan je me ook even bedanken voor de code die ik gegeven heb. En het is ook wel handig om te weten of de gegeven code daadwerkelijk doet wat jij wil.

Wat je vraag betreft, plaats een Label.

Dan onder het DoubleClick event van de ListView:

Label1.Text = lv1.SelectedItem

Das lijkt me niet zo moeilijk. Als je had gekeken naar de beschikbare events van de ListView control had je het DoubleClick event makkelijk zelf kunnen vinden,