Ok, allora il codice che lavora sulla listview creata da form, si chiama listview1 vista dettagli ecc, nei post precedenti ho mostrato lo screenshoot delle proprietà, ho cambiato solo la vista che ora è details.
In dichiarazione ho:
codice:
Dim colonna As New Windows.Forms.ColumnHeader
codice:
Private Sub popola()
Dim div As New ListViewItem
div.ForeColor = Color.Blue
div.ToolTipText = "Esecuzione successiva"
Dim a As String = "_"
For i As Integer = 0 To 180
a = a + "_"
Next
div.Text = a
Dim maxstring As String = a
If My.Computer.FileSystem.FileExists(Application.StartupPath & "\Error Message.txt") Then
If My.Computer.FileSystem.GetFileInfo(Application.StartupPath & "\Error Message.txt").Length.ToString = 0 Then
My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\Error Message.txt")
popola()
End If
Dim index As Integer = -1
Dim sr As New IO.StreamReader(Application.StartupPath & "\Error Message.txt")
While Not sr.EndOfStream
Dim temp As String = sr.ReadLine
If InStr(temp, "Errore") Then
index = index + 1
Dim itemp As New ListViewItem With {.Name = "itemp" & index}
itemp.ForeColor = Color.Red
itemp.ToolTipText = "Doppio Click per aprire il percorso del file"
itemp.Text = temp
itemp.Group = Errorgroup
ListView1.Items.Add(itemp)
ElseIf InStr(temp, "Conversione riuscita!") Then
index = index + 1
Dim itemp As New ListViewItem With {.Name = "itemp" & index}
itemp.ForeColor = Color.Green
itemp.ToolTipText = "Doppio Click per aprire il percorso del file"
itemp.Text = temp
itemp.Group = Rightgroup
ListView1.Items.Add(itemp)
Else
index = index + 1
Dim itemp As New ListViewItem With {.Name = "itemp" & index}
itemp.ForeColor = Color.Black
itemp.ToolTipText = "Doppio Click per aprire il percorso del file"
itemp.Text = temp
itemp.Group = Othergroup
ListView1.Items.Add(itemp)
End If
If temp.Length > maxstring.Length Then
maxstring = temp
End If
End While
sr.Close()
sr.Dispose()
div.Name = "itemp" & index
ListView1.Items.Add(div)
Else
Dim empty As New ListViewItem With {.Name = "Empty"}
empty.Text = "Non ci sono log di errori al momento."
ListView1.Items.Add(empty)
End If
ListView1.Columns(colonna.Index).Width = Graphics.FromHwnd(Me.Handle).MeasureString(maxstring, ListView1.Font).Width
End Sub
Public Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListView1.Columns.Add(colonna)
colonna.Text = "Colonna 1"
popola()
End sub
Questo è quanto lavora sulla listview, giusto per non omettere nulla.
Non capisco perché me le tronchi però!
Ho cercato la lunghezza massima del tipo stringa, mi pare sia MOOOOOLTO più elevata della stringa che io ho scritto.
Rispondi quotando
