Opdater Form mens der læses data i do-loop

Her er en lille test..

Private Sub Form_Load()
Dim lCount As Long
  Me.Show ' Her vises form da loopet køre under Load..
  Do While lCount < 1500000
    lCount = lCount + 1 ' Ligger en til
    DoEvents ' Her laves der en kort opdatering
    Me.Caption = lCount ' Vises i titlebar
  Loop
End Sub

hvis du vil lave det med en "Slaks" timer så er her en:

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

Private Sub DoEventTime(EventTime As Long)
Static mTime As Long
  If EventTime > 0 Then
    If mTime < GetTickCount Then
      mTime = (GetTickCount + EventTime)
      DoEvents: Sleep 1
    End If
  End If
End Sub

Private Sub Form_Load()
Dim lCount As Long
  Me.Show ' Her vises form da loopet køre under Load..
  Do While lCount < 1500000
    lCount = lCount + 1 ' Ligger en til
    DoEventTime 2000 ' Her laves der en kort opdatering hvert 2. sek.. 1. sek = 1000
    Me.Caption = lCount ' Vises i titlebar
  Loop
End Sub

Du kan også bruge:

Me.Refresh

Dette vil tvinge formen (og dens objekter) til at "tegne sig selv", men uden at tillade andre events.

hallo jakobscafe

Nja, kom da til at virke - ved at DoEvents hvergang den har læst 10000 linier - men det øgede så også tiden for at løbe filen igennem. Men pyt - Det er rart at se der er liv! Dog ville jeg hellere have der blev opdateret f.eks. hvert sekund, men VBs indbyggede timere duede ikke.