Ayuda con vb.net, funcion para generar un progressbar en listview

[70N1]

Este codigo me genera un progressbar dentro de una colummna del listview.

Pero ahora no se como introducirle el porcentaje desde fuera de la funcion.

Código [Seleccionar] Expandir

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
            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

        Return pb
    End Function


Llamo a la funcion asi:

Código [Seleccionar] Expandir

ListView_AddProgressBar(ListView1, ListView1.Items(0).Index, ListView1.Columns.IndexOf(Progresos))
       

[MANULOMM]

la función te esta retornando el progress bar!!!... (Como se nota que no la hiciste vos  ).
Es tan sencillo como:

Código [Seleccionar] Expandir


Dim opb As New System.Windows.Forms.ProgressBar

opb = ListView_AddProgressBar(ListView1, ListView1.Items(0).Index, ListView1.Columns.IndexOf(Progresos))
opb.Value = 100


Nota: si hay algun error de sintaxis la corrigen, pues no se mucho vb, yo trabajo con C#.

Atentamente,

Juan Manuel Lombana
Medellín - Colombia

[70N1]

Pues no lo hice yo, solo la uso.

Y gracias por tu respuesta.

[joselito1]

hola ^^


a mi no me sale el progressbar

la funsion de opb.value = 100 e para dellar salir el progressbar a 100% o no ?


tienes lla una funsion para cambiar color del progressbar?

gracias ^^

[joselito1]

wolas ^^

lla no me serve mas pq aora etoy progamando con el XPTable e es mas facil gracias para todo