EALA FREYA FRESENA

EALA FREYA FRESENA

Public Class frmShowCurrentData
 
    Dim dgv As New DataGridView With 
             {.Parent = Me, .Size = New Drawing.Size(800, 640),
              .AllowUserToAddRows = False, .Font = New Font("Arial", 8)}
 
    Dim WithEvents datatim As New Timer With {.Interval = 500}
 
 
    Private Sub frmShowCurrentData_Load(sender As Object, 
                                        e As EventArgs) Handles MyBase.Load
        Me.Size = New Size(800, 660)
 
        dgv.Columns.Add("DateTime", "DateTime")
        For i As Integer = 0 To 4
            dgv.Columns.Add("Info" & CStr(i), "Info" & CStr(i))
        Next i
 
        datatim.Enabled = True
    End Sub
 
 
    Private Sub DataGenerator()
        Const MaxLines As Integer = 20
        Static Linenumber As Integer
        Linenumber += 1
        If dgv.Rows.Count > MaxLines Then dgv.Rows.RemoveAt(MaxLines)
        dgv.Rows.Insert(0, Now, Linenumber, "bla", "blabla", "nochbla", _
          "extrabla")
 
    End Sub
 
 
    Private Sub datatim_Tick(sender As Object, e As EventArgs) Handles _
      datatim.Tick
        Datagenerator
    End Sub
End Class