Refresh

[kabourterplop]

Goedendag,

Ik ben bezig met een programmatje maar ik kom er dus nu niet meer uit.
Het is een programmatje die draait vanaf een server waar client computers aanhangen, als erop een gegeven moment gegevens worden gewijzigd, moet dit bij alle clienten zichtbaar zijn.

Als je het programma start gaat hij het document laden door de sub loadFile aan te roepen. Er zit een timer in met een interval van 1. Dus je blijft altijd up to date. Hij gaat dus controleren of de interval 1 zoja gaat hij het volgende uitvoeren.

        Dim sr As New IO.StreamReader(doc1)
        Dim regel() As String = sr.ReadLine.Split("_")

        If regel.Length = 2 Then
            If regel(0) = "a" Then
                My.Settings.a = regel(1)
                My.Settings.Save()
            End If
        End If
        sr.Close()
        loadFile()

Hij gaat hierna weer LoadFile() opnieuw proberen te laden. Ik heb om te controleren 2 textboxen in mijn formulier die aangegeven welke waarde ze hebben. Als de waarde in de 1e textbox 4 is en ik wijzig hem naar 2 blijft hij bij de 2de textbox op 4 staan.
Hier de code van loadFile()

    Private Sub loadFile()
        Try
            Do
                Dim input() As String = sr.ReadLine.Split(";")
                If input.Length = 14 Then
                    Dim b As New Band
                    If Timer1.Interval = 1 Then
                        b.a = My.Settings.a
                        TextBox2.Text = b.a
                    End If
                    b.Soort = input(0)
                    b.ArtNr = input(1)
                    b.Maat = input(2) & "/" & input(3) & "/" & input(4)
                    b.Merk = input(5)
                    b.Type = input(6)
                    b.Loadindex = input(8)
                    b.Codering = input(9)
                    b.RF = input(10)
                    Dim aantal As Integer = 1 'laat deze 1 staan, is nodig voor de rest van het programma, zo zie je bij de resultaten de juiste prijs voor het aantal banden!!
                    b.PrijsEx = (aantal * ((Convert.ToDouble(input(11)) + ((Convert.ToDouble(input(2)) / 10) - b.a) + (80 - Convert.ToDouble(input(3))) / 10)))
                    'hierboven moet aantal staan en niet cboAantal.text, want dat kent hij niet, heb jou dat uitgelegd in de vorige mail.
                    b.PrijsIn = ((((1 + 1.75) * 1)) + b.PrijsEx) * 1.19
                    banden.Add(b)
                End If
            Loop While (True)
        Catch ex As Exception
        End Try
    End Sub

Wie kan mij helpen?

 

[WILLIAMXXX]

Moet de waarde dus bij de andere clients geupdate worden?

 

[kabourterplop]

ja

 

[WILLIAMXXX]

Weten alle programma's al waarneer ze dan moeten refreschen?

 

[kabourterplop]

via een timer die via de pc klokt loopt anders weet ik geen oplossing

 

[WILLIAMXXX]

Kan je niet iets gebruiken va:

Me.refresch

 

[That Guy]

de GetTickCount libary in Kelner:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Roep aan via

doevents
sleep(1000) 'lwacht 1 hele seconde

V.:thumb:

 

[WILLIAMXXX]

de GetTickCount libary in Kelner:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Roep aan via

doevents
sleep(1000) 'lwacht 1 hele seconde

V.:thumb:

Volgens mij gaat dat meer over de 'tijd' maar hij wil hem refreschen

 

[RonaldGJ]

Form1.Refresh

 

[WILLIAMXXX]

Dat zei ik al, maar je moet niet doen form1 maar me form1 kent vb.net niet meer!!!

Dus probeer:

Me.Refresh

 

[RonaldGJ]

Oke:thumb: