VB.NET 2008 Een loop met time out

[joopykoopy]

Heey mensjes

Ik ben voor m'n stage een programma aan het schrijven waar ik en me collega notitie's in achter kunnen laten, en dat we ze ook allebijde kunnen lezen. Dit werkt goed. Maar als ik een nieuwe notitie maak, dan ziet mijn collega hem niet zonder op de refresh knop te drukken (ja die heb ik gemaakt).

Nu komen de notitie's in een listbox, dus dacht ik van, als ik achter de listbox een code maak, die de hele tijd loopt (bijv. elke minuut) dan is het gefixt.

Toen kwam ik bij System.Threading.Thread.Sleep(60000), maar dit laat mijn hele code vastlopen...

Dat is niet de bedoeling...

Nu heb ik ook wat gevonden over een 2e thread maken (MicroSoft info ding) maar dit krijg ik niet aan de praat :S

Ik zal voor de mensen die de code willen zien ook even de code posten:

Imports System.Threading

Public Class Form2
   Dim w As IO.StreamWriter
   Dim r As IO.StreamReader


   Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       Form1.Close()

       r = New IO.StreamReader("h:\NoteList\notes.nf")
       While (r.Peek() > -1)
           ListBox1.Items.Add(r.ReadLine)
       End While
       r.Close()


   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Form1.Show()
       Me.Close()

   End Sub
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       If TextBox1.Text = "" Then
           MsgBox("Geel lege vlakken posten hea ")
           MsgBox("1x klikken is gewoon genoeg ")
       Else

           ListBox1.Items.Clear()
           r = New IO.StreamReader("h:\NoteList\notes.nf")
           While (r.Peek() > -1)
               ListBox1.Items.Add(r.ReadLine)
           End While
           r.Close()


           ListBox1.Items.Add(Label1.Text + TextBox1.Text)

           Dim i As Integer
           w = New IO.StreamWriter("h:\NoteList\notes.nf")
           For i = 0 To ListBox1.Items.Count - 1
               w.WriteLine(ListBox1.Items.Item(i))
           Next
           w.Close()
           TextBox1.Clear()
       End If
   End Sub

   Private Sub SaveNotesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
       Dim i As Integer
       w = New IO.StreamWriter("h:\NoteList\notes.nf")
       For i = 0 To ListBox1.Items.Count - 1
           w.WriteLine(ListBox1.Items.Item(i))
       Next
       w.Close()
   End Sub

   Private Sub LoadNotesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
       r = New IO.StreamReader("h:\NoteList\notes.nf")
       While (r.Peek() > -1)
           ListBox1.Items.Add(r.ReadLine)
       End While
       r.Close()
   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       ListBox1.Items.Remove(ListBox1.SelectedItem)
       Dim i As Integer
       w = New IO.StreamWriter("h:\NoteList\notes.nf")
       For i = 0 To ListBox1.Items.Count - 1
           w.WriteLine(ListBox1.Items.Item(i))
       Next
       w.Close()
   End Sub

   Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

   End Sub

   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
       ListBox1.Items.Clear()
       r = New IO.StreamReader("h:\NoteList\notes.nf")
       While (r.Peek() > -1)
           ListBox1.Items.Add(r.ReadLine)
       End While
       r.Close()

   End Sub

   Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

   End Sub


End Class

De code die in een loop moet komen is deze:

        ListBox1.Items.Clear()
       r = New IO.StreamReader("h:\NoteList\notes.nf")
       While (r.Peek() > -1)
           ListBox1.Items.Add(r.ReadLine)
       End While
       r.Close()

Ik hoop dat jullie me kunnen helpen.

Groeten,

Joopykoopy