Spielerei: animiertes Bild erzeugt Flackern

[Doming]

Hallo,

ich habe als kleine Spielerei in einem Formular ein animiertes Auge, welches jede Minute zwinkert.
Dafür habe ich 10 Einzelbilder, die während der Animation nacheinander aufgerufen werden.

Code [Auswählen] Erweitern

Public Aug As Byte, Schluss As Boolean, Warten As Boolean   'Augenstellung

Private Sub Form_Timer()
On Error GoTo Fehler
 Dim Auge As String, Ende As Byte

    If Schluss Then Ende = 1 Else Ende = 5
    Do
        Aug = Aug + 1
        If Aug > 10 Then Aug = 1
        Auge = Augenpfad & "Auge" & Format(Aug, "00") & ".jpg"
        Me.Auge.Picture = Auge
        DoEvents
    Loop Until Aug = Ende
    Form.TimerInterval = 60000
    Warten = False
Ende:
    Exit Sub
Fehler:
    Fehlerprot "frmFormular", "Timer", Err.Number, Err.Description, , True
    Resume Ende
End Sub

Private Sub AnimAuge(Auf As Boolean)
On Error GoTo Fehler
    Schluss = Auf
    Form.TimerInterval = 250
Ende:
    Exit Sub
Fehler:
    Fehlerprot "frmFormular", "AnimAuge", Err.Number, Err.Description, "Auf = " & Auf, True
    Resume Ende
End Sub
Das funktioniert soweit ganz gut, allerdings habe ich auf dem Formular noch ein anderes Bild und jedes Mal, wenn  ich ein neues Augenbild aufrufe, flackert es.

Kann man das zweite Bild irgendwie einfrieren, damit es Ruhe gibt?

Gruß
 Doming

[Knobbi38]

Hallo,

ich würde es mal mit einem animierten GIF versuchen.

Knobbi38

[Doming]

Hm, tja, war zwischenzeitig auch ein Gedanke, aber...

Das Formular soll Datensätze suchen. Wenn kein DS gefunden wurde, schließt sich das Auge (Ende = 1 Else Ende = 5). Ich brauche also dann mindestens 2 AniGifs, und dann bin ich ja wieder am Flackern, wenn auch vielleicht kürzer.

[Knobbi38]

Probiere es doch einfach mal aus und evtl. helfen ja zwei GIFs, welche du nur sichtbar schaltest.

M.M.:
letztendlich ist Access ein Datenbanktool und Animationen dergestalt braucht ein Anwender nicht.

Knobbi38

[PhilS]

@Doming , probier mal aus ob es einen Unterschied macht, wenn du vor dem Bildertausch die Painting-Eigenschaft des Formulars auf False setzt und danach wieder auf True.

letztendlich ist Access ein Datenbanktool und Animationen dergestalt braucht ein Anwender nicht.

Animationen und ähnliche Spielereien können sich durchaus auf Zufriedenheit und Wohlbefinden des Anwenders auswirken und Motivation und Produktivität steigern.