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.
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
Hallo,
ich würde es mal mit einem animierten GIF versuchen.
Knobbi38
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.
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
@Doming , probier mal aus ob es einen Unterschied macht, wenn du vor dem Bildertausch die
Painting (https://learn.microsoft.com/en-us/office/vba/api/access.form.painting)-Eigenschaft des Formulars auf False setzt und danach wieder auf True.
Zitat von: Knobbi38 am Februar 25, 2026, 13:46:06letztendlich 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.