17/04/07 20:08
seven.7
img70.imageshack.us/…
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(pListView.Columns(ColumnIndex).Width, r.Y, r.X, r.Height)
pb.Visible = True
Return pb
End Function
Public Sub VisualizzaRecordXML()
Dim contatore As Integer
For contatore = 1 To Me.NumeroDiUsimRegistrate
Dim ITEM(8) As String
Dim L As ListViewItem
ITEM(0) = ds.Tables(contatore - 1).Rows(0).Item("ID"
ITEM(1) = ds.Tables(contatore - 1).Rows(0).Item("Numero3"
ITEM(2) = ds.Tables(contatore - 1).Rows(0).Item("Profilo"
ITEM(3) = ds.Tables(contatore - 1).Rows(0).Item("CreditoResiduo"
ITEM(4) = ds.Tables(contatore - 1).Rows(0).Item("ParzialeMeseInCorsoSMS"
ITEM(5) = ds.Tables(contatore - 1).Rows(0).Item("ParzialeMeseInCorsoEuro"
If ds.Tables(contatore - 1).Rows(0).Item("ParzialeMeseInCorsoEuro" <> "Non disponibile" Then
ITEM(6) = (CType(ds.Tables(contatore - 1).Rows(0).Item("ParzialeMeseInCorsoEuro", Integer).ToString("n0" * 100 / Me.Importo_limite_supertuapiu).ToString("n0" & " %"
Else
ITEM(6) = "Valore 0"
End If
ITEM(7) = ds.Tables(contatore - 1).Rows(0).Item("DataUltimoAggiornamento"
L = New ListViewItem(ITEM)
Me.USIMElenco.Items.Add(L)
ListView_AddProgressBar(Me.USIMElenco, 0, 7)
Next
End Sub
questo è lo script trovato... il mio problema è quello di visualizzare un progressbar in una list view in modo da rendere un po la grafica accattivante e veloce. mi servirebbe creare in sostanza quelle list view come i programmi sharing che ti permettono di visualizzare lo stato del download...
io sinceramente è la prima volta che mi trovo in questa situazione quindi non so' se mi conviene usare un list view oppure un datagrid view visto che i dati sono xml... cerco anche un cosiglio... grazie
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(pListView.Columns(ColumnIndex).Width, r.Y, r.X, r.Height)
pb.Visible = True
Return pb
End Function
Public Sub VisualizzaRecordXML()
Dim contatore As Integer
For contatore = 1 To Me.NumeroDiUsimRegistrate
Dim ITEM(8) As String
Dim L As ListViewItem
ITEM(0) = ds.Tables(contatore - 1).Rows(0).Item("ID"
ITEM(1) = ds.Tables(contatore - 1).Rows(0).Item("Numero3"
ITEM(2) = ds.Tables(contatore - 1).Rows(0).Item("Profilo"
ITEM(3) = ds.Tables(contatore - 1).Rows(0).Item("CreditoResiduo"
ITEM(4) = ds.Tables(contatore - 1).Rows(0).Item("ParzialeMeseInCorsoSMS"
ITEM(5) = ds.Tables(contatore - 1).Rows(0).Item("ParzialeMeseInCorsoEuro"
If ds.Tables(contatore - 1).Rows(0).Item("ParzialeMeseInCorsoEuro" <> "Non disponibile" Then
ITEM(6) = (CType(ds.Tables(contatore - 1).Rows(0).Item("ParzialeMeseInCorsoEuro", Integer).ToString("n0" * 100 / Me.Importo_limite_supertuapiu).ToString("n0" & " %"
Else
ITEM(6) = "Valore 0"
End If
ITEM(7) = ds.Tables(contatore - 1).Rows(0).Item("DataUltimoAggiornamento"
L = New ListViewItem(ITEM)
Me.USIMElenco.Items.Add(L)
ListView_AddProgressBar(Me.USIMElenco, 0, 7)
Next
End Sub
questo è lo script trovato... il mio problema è quello di visualizzare un progressbar in una list view in modo da rendere un po la grafica accattivante e veloce. mi servirebbe creare in sostanza quelle list view come i programmi sharing che ti permettono di visualizzare lo stato del download...
io sinceramente è la prima volta che mi trovo in questa situazione quindi non so' se mi conviene usare un list view oppure un datagrid view visto che i dati sono xml... cerco anche un cosiglio... grazie
aaa