......
Dim lvi As New ListViewItem
With LVTutte
.View = View.Details 'FONDAMENTALE'
'imposto alcune proprietà'
.LabelEdit = False
.AllowColumnReorder = True
.FullRowSelect = True
' .GridLines = True 'mostra una sottile griglia'
.Sorting = SortOrder.Ascending 'ordinamento'
.AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)
'creo le colonne impostando per ognuna il titolo,'
'dimensione e allineamento'
.Columns.Add("ID", 40, HorizontalAlignment.Left)
.Columns.Add("Oggetto", 200, HorizontalAlignment.Left)
.Columns.Add("Descrizione", 1000, HorizontalAlignment.Left)
.Columns.Add("Data Inizio Att", 130, HorizontalAlignment.Center)
.Columns.Add("Stato", 100, HorizontalAlignment.Center)
.Columns.Add("Day Allert", 100, HorizontalAlignment.Center)
.Columns.Add("Link File", 800, HorizontalAlignment.Left)
.Columns.Add("Con ricorrenza", 100, HorizontalAlignment.Center)
End With
' Dim i As Integer = 0
For Each item In ListAttPersonali
'I primi 2 campi li posso inserire senza'
'problemi perché obbligatori nel database'
lvi = LVTutte.Items.Add(item.IdAttivita)
lvi.UseItemStyleForSubItems = True
If item.Stato = "Nuova" Or item.Stato = "In Corso" Then
lvi.ForeColor = Color.Red
Else
lvi.ForeColor = Color.Black
End If
lvi.SubItems.Add(item.OggettoAtt)
lvi.SubItems.Add(item.Descrizione)
lvi.SubItems.Add(item.DataInizioAtt)
lvi.SubItems.Add(item.Stato)
lvi.SubItems.Add(item.DayAlert)
lvi.SubItems.Add(item.LinkFile)
If item.fkRicorrenza = 0 Then
lvi.SubItems.Add("NO")
Else
lvi.SubItems.Add("SI")
End If
' i += 1
Next
