Hej! Jag skulle vilja göra ett VB6 program som upprepar en funktion vart 10:e minut. Har ni några tips som ni kan ge mig?

Jag tänkte först göra en oändlig slinga inne i pageload funktionen. Så här:

Private Sub Form_Load()
do while 1
timer1.enable = true
Call myfunction
loop
End Sub

När jag kör detta så låser hela VS sig o jag måste stänga ner det med taskmanagern.
Jag har ställt in timer1 till 600 000, dvs 600 000 millisekunder = 10 min. Stämmer det?

Kan jag få lite hjäp hur jag ska lösa detta?

MVH
Tony

I form_load ska du inte utföra det timern ska göra.

<code>
Private Sub Form_Load()
timer1.enabled = true
end sub

Private Sub Timer1_Timer()
call myfunction
end sub
</code>

Tack för tipset! Nu vet jag hur jag ska gå vidare. Tack än en gång

1. Du kan inte ställa Timer1 till 600 000 den kan max ställas till ca 65 000 ms.
2. Eftersom du startar Timern i Form_Load kan du lika gärna göra den Enable = True i Designläge

Så här kan du göra. Obs det blir aldrig på sek rätt med Timer lösningen. Det kan bli 3-4 sek diff
Vilket förmodligen inte spelar någon roll i ditt fall
<code>
Option Explicit
Dim mCount As Long

Private Sub Form_Load()
'MySubrutin körs första gången efter 1 sek
'Därefter var 10 minut
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
mCount = mCount + 1
If mCount >= 10 Then
mCount = 0
Timer1.Interval = 60000
Call MySubrutin
End If
End Sub

Private Sub MySubrutin()
MsgBox "10 minuter har gått"
End Sub
</code>