Har helt plötsligrt fått ett problem som jag inte varit ute för tidigare Låter som det gamla vanliga svaret. Tackar, så enkelt när man väl kan det. Så här gör jag när jag jobbar med filer.Programmet låser sig efter att skärmsläckaren varit aktiverad
Har gjort ett program som uppdaterar en darabas och detta tar lång
Programmet låser sig efter att skärmsläckaren varit aktiverad Sv: Programmet låser sig efter att skärmsläckaren varit aktiverad
Du skall lägga in ett DoEvents i den Loop som uppdaterar DataBasenSv:Programmet låser sig efter att skärmsläckaren varit aktiverad
Har aldrig varit utsatt för det tidigare beroende på att normalt så har programmet
jobbat klart innan skärmsläckaren aktiveras
Ytterligare en fråga medans jag har dig på tråden
Finns det något enkelt sätt att visa hur långt t.ex uppdateringen har hunnit när man minimerar
programmet. Tex visa 12% el 159 av 2000 i minimeringsikonenSv: Programmet låser sig efter att skärmsläckaren varit aktiverad
Om du visar på hur din kod ser ut i den loop som läser in data
så kan jag komma med lämpligt förslag.
<code>
FileLen = FileLen(file) 'beroende på hur din loop ser ut
Fnum = FreeFile
Open file For Binary As Fnum
'Här vaskar jag fram det jag vill och lägger det i Fnum2
Fnum2 = FreeFile
Open OutFile For Binary As Fnum2
'main loop
For i = 1 To FileLen ' För dig hur många varv måste jag köra i huvudloopen
'Här gör du dina trix med din DataBas
If i Mod 100 = 0 Then 'här får jag % på hur mycket som är avverkat.
v = (i / FileLen) * 100 'Om du bara vet hur många looprunder som krävs så funkar detta ex.
Label1.Caption = Int(v) & " %"
End If
DoEvents
</code>