---

Hvordan for man en tid´s kontrol til at virke i en class fil

Mit bud var :

Dim WithEvents Tid As Timer

Sub Main()

Tid.Interval = 1

End Sub

Private Sub Tid_Timer()

if time = "00:23:00" then
msgbox "Hej"
end if

End Sub

---

Timeren virker nok -det er evalueringen din som er rusten.
Enten
if time = timevalue("00:23:00") then
eller
if time = timeserial(0,23,0) then

HTH. Beste hilsen Harald

"Jens" <til@infojens.dk> skrev i melding
news:3c9e68d7$0$72008$edfadb0f@dspool01.news.tele.dk...
> Hvordan for man en tid´s kontrol til at virke i en class fil
>
> Mit bud var :
>
> Dim WithEvents Tid As Timer
>
> Sub Main()
>
> Tid.Interval = 1
>
> End Sub
>
> Private Sub Tid_Timer()
>
> if time = "00:23:00" then
> msgbox "Hej"
> end if
>
> End Sub
>
>
>

---

Jens skrev:
> Hvordan for man en tid´s kontrol til at virke i en class fil
>
> Mit bud var :
>
> Dim WithEvents Tid As Timer

Svaret er: Det gør man ikke.
Timer kontrollen virker kun hvis den lægges på en form!

Alternativt kan man eksempelvis kigge på SetTimer/KillTimer
API-kaldene, men det er unægtelig lettere at bruger timer-kontrollen!

En sidste mulighed er at lave en ActiveX exe-fil, som kører i sin egen
tråd, og sender et event hver sekund, men det er temmelig besværligt!

-------
Tomas

---

Tak for svar...


"Jens" <til@infojens.dk> wrote in message
news:3c9e68d7$0$72008$edfadb0f@dspool01.news.tele.dk...
> Hvordan for man en tid´s kontrol til at virke i en class fil
>
> Mit bud var :
>
> Dim WithEvents Tid As Timer
>
> Sub Main()
>
> Tid.Interval = 1
>
> End Sub
>
> Private Sub Tid_Timer()
>
> if time = "00:23:00" then
> msgbox "Hej"
> end if
>
> End Sub
>
>
>