flere timere på samme form.

Timerinterval=500


Kode på VedTimerUdløb:

Dim boolLabel1 as Boolean

Me!Label2.Visible = NOt Me!Label2.Visible
If boolLabel1 then Me!Label1.Visible = NOt Me!Label1.Visible
boolLabel1 = Not boolLabel1

(Det er ikke afprøvet, en det var blot en ide)

Hvad hedder timer komponenten i Access?

label2 blinker hvert halve sekund.
label1 er konstakt "tændt"

Sæt timerinterval til 500

Dim Halv As Boolean

Private Sub Form_Timer()
    With Me.Label2
        .ForeColor = (IIf(.ForeColor = vbRed, vbBlack, vbRed))
    End With

If Anden Then
    With Me.Label1
        .ForeColor = (IIf(.ForeColor = vbRed, vbBlack, vbRed))
    End With
    Halv = False
Else
    Halv = True
End If
End Sub

konstakt = konstant

Hov, jeg havde ikke set, der allerede var kommet et svar (testede mit eget forslag)  :-)

nå ja, sorry...prøv denne:


Static boolLabel1 as Boolean
Me!Label2.Visible = NOt Me!Label2.Visible
If boolLabel1 then Me!Label1.Visible = NOt Me!Label1.Visible
boolLabel1 = Not boolLabel1

dette giver en form for fejl :

ambiguous name detected : Form_Timer

hvad det så end betyder..!!!!

det virker.

kunne man lige med i farten få at vide hvordan label1 og label2 begge ville kunne sættes til 1 sekund men blinke asynkront ??

hmmm....lad mig tænke lidt....

denne giver i hvert fald asynkron blink (dog ikke helt præcist ½ go 1 sekunde men det kan justeres)

Private Sub Form_Timer()
    Static N As Long
    N = N + 1
    If N Mod 2 = 0 Then
        Me!Label2.Visible = Not Me!Label2.Visible
    End If
    If N Mod 3 = 0 Then
        Me!Label1.Visible = Not Me!Label1.Visible
    End If
End Sub

Til orientering fandt jeg selv ud af en løsning :

Me!Label1.Visible = Not Me!Label1.Visible
If Me!Label1.Visible = True Then
Me!Label2.Visible = False
Else
Me!Label2.Visible = True
End If


godt gået hnto....    :-))))