PROGRESSBAR DANS LISTVIEW EN VB.NET

Commentaire de Benouille le 29/03/2005 15:51:27

exellent!

Commentaire de innosoft le 11/07/2005 05:35:11

good

Commentaire de winsave le 10/08/2005 16:20:59

Mon idée est de redimentionner sur MouseMove.

'// Déclarations :
    Private curLi As ListViewItem
    Private curProgressGlobale As System.Windows.Forms.ProgressBar
    Private CollProgressbarGlobales As New Collection

private sub TestIt
'// 2 colonnes par exemples
     curLi = ListView1.Items.Add("Test")
     curLi.SubItems.Add("") 'progression bar
     curLi.SubItems.Add("0 %") '%

'// on récupére curProgressGlobale pour traitement ultérieur
     curProgressGlobale = ListView_AddProgressBar(ListView1, curLi.Index, 1, CollProgressbarGlobales)

end sub

    Public Function ListView_AddProgressBar(ByRef pListView As System.Windows.Forms.ListView, ByVal ListViewItemIndex As Integer, ByVal ColumnIndex As Integer, ByRef CollProgressbar As Collection) As System.Windows.Forms.ProgressBar
        Dim r As Rectangle
        Dim pb As New System.Windows.Forms.ProgressBar
        Try
            r = pListView.Items(ListViewItemIndex).Bounds()
            r.Width = pListView.Columns(ColumnIndex).Width
            If ColumnIndex > 0 Then
                r.X = r.X + pListView.Columns(ColumnIndex - 1).Width
            End If
            pb.Parent = pListView
            pb.SetBounds(r.X, r.Y, r.Width, r.Height)
            pb.Visible = True
            If Not pb Is Nothing Then
                CollProgressbar.Add(pb)
            End If
        Catch exc As Exception
            MsgBox(exc.Message, MsgBoxStyle.Critical)
        End Try
        Return pb
    End Function


    Private Sub ListView1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        ResizeProgressbars(CollProgressbarGlobales)
    End Sub

    Private Sub ResizeProgressbars(ByRef CollProgressbar As Collection)
'// on redimentionne l'ensemble
        If Not CollProgressbar Is Nothing Then
            Dim curEnum As IEnumerator
            Dim CurProgress As ProgressBar
            curEnum = CollProgressbar.GetEnumerator
            While curEnum.MoveNext
                CurProgress = curEnum.Current()
                CurProgress.Left = ListView1.Columns(0).Width + 5
                CurProgress.Width = ListView1.Columns(1).Width - 5
            End While
        End If

    End Sub


Voili voilou ; par contre l'ajout de deux progressbar sur le même item semble poser pb.

Sam.
http://www.c6pratik.com

Commentaire de FreeZeBiT le 22/08/2005 09:22:03

On peut aussi tout gérer dans le Thread directement...
Avec cette méthode, on peut utiliser plusieurs ListView sans problème mais je crains que ce ne soit un peu "lourd" si on a beaucoup de ListView et/ou beaucoup d'Items... à voir...

    Private Structure ListViewProgressBarStruct
        Dim oProgressBar As ProgressBar
        Dim oListView As ListView
        Dim oListViewItem As ListViewItem
        Dim ColumnIndex As Integer
    End Structure

    Dim CollProgressBars As Collection
    Dim thListView As System.Threading.Thread

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer

        With ListView1
            .View = View.Details
            .Columns.Add("colonne 1", (.Width / 2) - 10, HorizontalAlignment.Left)
            .Columns.Add("colonne 2", (.Width / 2) - 10, HorizontalAlignment.Left)

            For i = 1 To 20
                Dim li As ListViewItem = .Items.Add("Ligne " & i)
                Dim si As ListViewItem.ListViewSubItem = li.SubItems.Add("")
            Next
        End With

        ' instancie la collection des ProgressBars
        CollProgressBars = New Collection

        ' ajoute des ProgressBars dans notre ListView
        ListView_AddProgressBar(ListView1, 0, 1)
        ListView_AddProgressBar(ListView1, 9, 1)
        ListView_AddProgressBar(ListView1, 19, 1)

        ' démarre le Thread qui gère le redimensionnement et le défilement pour les ProgressBars
        thListView = New System.Threading.Thread(AddressOf ListView_ProgressBarThread)
        thListView.Priority = Threading.ThreadPriority.Lowest ' priorité basse : pas besoin de consommer du proc pour rien
        thListView.Start()
    End Sub

    Private Function ListView_AddProgressBar(ByRef pListView As System.Windows.Forms.ListView, ByVal ListViewItemIndex As Integer, ByVal ColumnIndex As Integer) As System.Windows.Forms.ProgressBar
        Dim r As Rectangle
        Dim pb As New ProgressBar

        ' ajoute la ProgressBar dans l'Item du ListView sur la colonne souhaitée
        r = pListView.Items(ListViewItemIndex).Bounds()
        r.Width = pListView.Columns(ColumnIndex).Width
        If ColumnIndex > 0 Then
            r.X = r.X + pListView.Columns(ColumnIndex - 1).Width
        End If
        pb.Parent = pListView
        pb.SetBounds(r.X, r.Y, r.Width, r.Height)
        pb.Visible = True

        ' garde en mémoire les infos sur cette ProgressBar
        Dim lvpb As New ListViewProgressBarStruct
        lvpb.ColumnIndex = ColumnIndex
        lvpb.oListView = pListView
        lvpb.oProgressBar = pb
        lvpb.oListViewItem = pListView.Items(ListViewItemIndex)
        CollProgressBars.Add(lvpb)

        ' retourne la ProgressBar
        Return pb
    End Function

    Private Sub ListView_ProgressBarThread()
        Dim lvpb As ListViewProgressBarStruct

        While True
            For Each lvpb In CollProgressBars
                With lvpb
                    ' redimensionne la ProgressBar sur la colonne
                    .oProgressBar.Width = .oListView.Columns(.ColumnIndex).Width
                    If .ColumnIndex > 0 Then .oProgressBar.Left = .oListView.Columns(.ColumnIndex - 1).Width

                    ' affiche / cache la ProgressBar en fonction que l'Item sur lequel elle se trouve est visible ou non dans la liste
                    Dim r As Rectangle = .oListViewItem.Bounds
                    If (r.Top >= .oListView.Top) AndAlso (r.Top <= .oListView.Top + .oListView.Height) Then
                        .oProgressBar.Top = r.Top
                        .oProgressBar.Visible = True
                    Else
                        .oProgressBar.Visible = False
                    End If
                End With

                Application.DoEvents()
            Next
        End While
    End Sub

    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        thListView.Abort() ' termine le Thread avant de quitter le prog
    End Sub