Автоматическое обновление

Question

Я хочу спросить, как автоматически обновлять/обновлять список, используя таймер в vb.net. Дайте мне идею или шаги или код. Вот мой код в таймере:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    conn.Open() 
    Timer1.enabled = False 
    Timer1.interval = 5000 
    Dim strquery As String = "Select * " & _ 
          "from software " 

    Dim myCommand As New OdbcCommand(strquery, conn) 
    Dim myReader As OdbcDataReader 
    myReader = myCommand.ExecuteReader 
    ListView1.Items.Clear() 
    If myReader.HasRows = True Then 
     'ListView1.BeginUpdate() 
     While myReader.Read 
      Dim ListView As ListViewItem 
      ListView = ListView1.Items.Add(myReader("log_type").ToString()) 
      ListView.SubItems.Add(myReader("log_desc").ToString()) 
      ListView.SubItems.Add(myReader("log_details").ToString()) 
      ListView.SubItems.Add(myReader("log_date").ToString()) 
      ListView.SubItems.Add(myReader("software_desc").ToString()) 
      ListView.SubItems.Add(myReader("software_name").ToString()) 
      ListView.SubItems.Add(myReader("develop_date").ToString()) 
      ListView.SubItems.Add(myReader("last_update").ToString()) 
     End While 

End Sub 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
    Timer1.Interval = 1000 
    Timer1.Enabled = False 
    ListView1.Refresh() 
    ListView1.Items.Add(DateTime.Now.ToLongTimeString() + "," + _ 
         DateTime.Now.ToLongDateString()) 
End Sub 

Этот таймер не работает. Есть ли способ автоматического обновления или автоматического обновления списка?

Answer 1

Вам необходимо включить таймер снова в конце:

Timer1.Enabled = True 

Если нет, то таймер не будет работать. Timer1.Enabled = False деактивировать таймер.