From: StellaDrinker@REMOVE.ME.uboot.com   
      
   "Max" 's wild thoughts were   
   released on Tue, 6 Feb 2007 22:00:36 +1100 bearing the   
   following fruit:   
      
   >You would get the same result in VB6 any way   
      
   That's not necessarily true at all.   
      
   J   
      
   >I can't see anything in the do loop that updates the text box.   
   >   
      
   >"Jan Hyde"  wrote in message   
   >news:8imes21qhho64gubui992f0veggte0nghg@4ax.com...   
   >> "A.G.van Staveren" 's wild   
   >> thoughts were released on Mon, 5 Feb 2007 16:46:24 +0100   
   >> bearing the following fruit:   
   >>   
   >>>Start learning VB 2005 EE and made a kind of Timing program.   
   >>   
   >> This group is for VB6, you need a group with 'dotnet' in the   
   >> name.   
   >>   
   >> J   
   >>   
   >>>Tried to show a text during time-call but it comes up only after the loop   
   >>>is   
   >>>finished.   
   >>>(TextBox2 in Sub Button1_Click)   
   >>>I do not understand why.   
   >>>Cannot find it either on internet.   
   >>>Please can anyone explain to me the reason.   
   >>>Here the code so far:   
   >>>Public Class Form1   
   >>>   
   >>>Dim Uitlezing As Single = 0   
   >>>   
   >>>Dim Inlezing As Single = 0   
   >>>   
   >>>Dim BeginTime As Double = 0   
   >>>   
   >>>Dim FinishTime As Double = 0   
   >>>   
   >>>Dim ElapsedTime As Single = 0   
   >>>   
   >>>Dim Wachttijd As Single = 5   
   >>>   
   >>>Dim Wachttext As String = ""   
   >>>   
   >>>Dim TotalTime As Single = 0   
   >>>   
   >>>Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As   
   >>>System.EventArgs) Handles Button1.Click   
   >>>   
   >>>   
   >>>   
   >>>TextBox2.Text = "Program Runs"   
   >>>   
   >>>Call InitializeTimer(Uitlezing, Wachttijd)   
   >>>   
   >>>Inlezing = Uitlezing   
   >>>   
   >>>Uitlezing = 0   
   >>>   
   >>>TextBox1.Text = "Waiting Time was" & " " & Str(Inlezing) & " Seconds."   
   >>>   
   >>>   
   >>>   
   >>>End Sub   
   >>>   
   >>>   
   >>>   
   >>>Private Sub InitializeTimer(ByRef Uitlezing As Single, ByRef Wachttijd As   
   >>>Single)   
   >>>   
   >>>ElapsedTime = 0   
   >>>   
   >>>BeginTime = Microsoft.VisualBasic.DateAndTime.Timer   
   >>>   
   >>>Do While ElapsedTime < Wachttijd   
   >>>   
   >>>FinishTime = Microsoft.VisualBasic.DateAndTime.Timer   
   >>>   
   >>>ElapsedTime = (FinishTime - BeginTime)   
   >>>   
   >>>Loop   
   >>>   
   >>>Uitlezing = ElapsedTime   
   >>>   
   >>>End Sub   
   >>>   
   >>>   
   >>>   
   >>>   
   >>>   
   >>>Private Sub Wait_Click(ByVal sender As System.Object, ByVal e As   
   >>>System.EventArgs) Handles Wait.Click   
   >>>   
   >>>   
   >>>   
   >>>Wachttext = MaskedTextBox1.Text   
   >>>   
   >>>Wachttijd = Single.Parse(Wachttext)   
   >>>   
   >>>Call InitializeTimer(Uitlezing, Wachttijd)   
   >>>   
   >>>TotalTime = Inlezing + Uitlezing   
   >>>   
   >>>TextBox2.Text = "Total Time is" & " " & Str(TotalTime) & " " & "Seconds"   
   >>>   
   >>>   
   >>>End Sub   
   >>>   
   >>>   
   >>>End Class   
   >>>   
   >>>Many thanks,   
   >>>Arie   
   >>>   
   >>   
   >>   
   >> Jan Hyde (VB MVP)   
   >>   
   >> --   
   >> So I went to the dentist. He said "Say Aaah." I said "Why?" He said "My   
   >> dog's died."   
   >>   
   >   
      
      
   Jan Hyde (VB MVP)   
      
   --   
   "Eating Disorders" by Anna Rexia (Neil Enns)   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)