/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Tid´s kontrol på en class fil
Fra : Jens


Dato : 25-03-02 01:02

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




 
 
Harald Staff (25-03-2002)
Kommentar
Fra : Harald Staff


Dato : 25-03-02 09:59

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
>
>
>



Tomas Christiansen (25-03-2002)
Kommentar
Fra : Tomas Christiansen


Dato : 25-03-02 23:14

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


Jens (26-03-2002)
Kommentar
Fra : Jens


Dato : 26-03-02 00:29

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
>
>
>



Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408885
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste