VB.Net Listview mit Progressbar

Hallo ich habe schon lange mal nach sowas gesucht nur immer keine lust gehabt in google zu suchen 😉

jetzt habe ich es doch getan und auch gleich was gefunden.

Source:
vbfrance.com/codes/PROGRESSBAR-DANS-LISTVIEW-VB-NET_30251.aspx

Damit funktioniert das schon ganz gut aber ein paar kleine Fehler sind noch drin ich habe das mal ein wenig abgeändert 😉

Public 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 System.Windows.Forms.ProgressBar

        r = pListView.Items(ListViewItemIndex).Bounds()
        r.Width = pListView.Columns(ColumnIndex).Width
        If ColumnIndex > 0 Then
            For i = ColumnIndex - 1 To 0 Step -1
                r.X = r.X + pListView.Columns(i).Width
            Next
        End If
        pb.Parent = pListView
        pb.SetBounds(r.X, r.Y, r.Width, r.Height)

        pb.Name = ListViewItemIndex
        pb.Maximum = 100
        pb.Style = ProgressBarStyle.Continuous

        pb.Visible = True

        Return pb
    End Function

Public 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 System.Windows.Forms.ProgressBar

r = pListView.Items(ListViewItemIndex).Bounds()

r.Width = pListView.Columns(ColumnIndex).Width

If ColumnIndex > 0 Then

For i = ColumnIndex - 1 To 0 Step -1

r.X = r.X + pListView.Columns(i).Width

End If

pb.Parent = pListView

pb.SetBounds(r.X, r.Y, r.Width, r.Height)

pb.Name = ListViewItemIndex

pb.Maximum = 100

pb.Style = ProgressBarStyle.Continuous

pb.Visible = True

Return pb

End Function

HOffe das klappt bei euch auch so super wie bei mir 🙂

Google Tags:

vb listview progressbar
vb.net listview with progressbar
vb .net listview subitem ändern
vb.net progressbar

5 Antworten auf „VB.Net Listview mit Progressbar“

Hallo 🙂 Ich habe auch dasselbe gefunden und gleich Deine Erweiterung mit dazu 🙂 Sehr schön! Aber eine Frage hab ich: Wie kannst du diese ProgressBar jetzt fortlaufen lassen? Selbst wenn den Funktionsaufruf um einen parameter mit Progressbar.Value erweitere funktioniert es nicht, da sich die Progressbar scheinbar nicht nochmal an dieselbe Stelle anlegen lässt..

Antworten

Hallo
das Problem hatte ich auch. Habe dann aber die erstellten ProgressBars in eine Collection getan und dann kann man sie hinterher aufrufen.

Public curProgressGlobale As System.Windows.Forms.ProgressBar
Public CollProgressbarGlobales As New Collection

1 2	Public curProgressGlobale As System.Windows.Forms.ProgressBar Public CollProgressbarGlobales As New Collection

Dann eben nach dem erstellen die Progressbar adden

CollProgressbarGlobales.Add(pb)

1	CollProgressbarGlobales.Add(pb)

und dann kann man sie eben aus der collection auslesen und verändern

If Not CollProgressbarGlobales Is Nothing Then
Dim curEnum As IEnumerator
Dim CurProgress As ProgressBar
curEnum = CollProgressbarGlobales.GetEnumerator
While curEnum.MoveNext
CurProgress = curEnum.Current()
CurProgress.Value += 10
End While
End If

If Not CollProgressbarGlobales Is Nothing Then

Dim curEnum As IEnumerator

Dim CurProgress As ProgressBar

curEnum = CollProgressbarGlobales.GetEnumerator

While curEnum.MoveNext

CurProgress = curEnum.Current()

CurProgress.Value += 10

End While

End If

Antworten

Hey wie kann ich denn nur eine Bestimmte Progressbar ändern und nicht alle?

Antworten

Hey,
so kann man auf die Progressbars zugreifen.

        Dim CurProgress As ProgressBar
        If Not CollProgressbarGlobales Is Nothing Then
            'Holt die erste Progressbar in der Liste
            CurProgress = CollProgressbarGlobales.Item(1)
            'Ändert den Wert
            CurProgress.Value += 10
        End If

Dim CurProgress As ProgressBar

If Not CollProgressbarGlobales Is Nothing Then

'Holt die erste Progressbar in der Liste

CurProgress = CollProgressbarGlobales.Item(1)

'Ändert den Wert

CurProgress.Value += 10

End If

Antworten

Matthias sagt:

April 27, 2010 um 14:58 Uhr

Funktioniert sehr gut, ich bedanke mich!

Antworten

Schreibe einen Kommentar Antworten abbrechen

Diese Website verwendet Akismet, um Spam zu reduzieren. Erfahre mehr darüber, wie deine Kommentardaten verarbeitet werden.