[VB.NET] Loop in VB.NET

[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

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

code:

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:

code:

        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

[urk_forever]

Simpelste oplossing, gebruik een timer! In het Timer.Tick event update je dan je listbox. Hoe je dat precies doet kan je vast zelf wel uitvogelen.

Je topic start voldoet ook niet helemaal, zo geef je niet aan wat je nu hebt en wat er precies fout gaat. Lees ook het PRG Beleid even voordat je een topic opent.

[ Voor 58% gewijzigd door urk_forever op 15-03-2010 10:19 ]

[joopykoopy]

Is goed, iig bedankt voor je reactie. Ik zal dat even onder ogen nemen, en dan in het vervolg m'n topics naar die regels posten