Auch mit Access lassen sich beeindruckende Animationen erstellen.
Mit dem Timer-Ereignis können Sie Ablauf und Geschwindigkeit von Animationen in Access steuern. In diesem Beispiel werden die Rechtecke der Reihe nach per Zufall mit einem von vier Blautönen eingefärbt. Über das Zeitgeberintervall steuern Sie die Geschwindigkeit der Animation.
Dieses Intervall können Sie auch aus dem Code heraus veränden. Damit haben Sie alle Möglichkeiten, Anfang, Geschwindigkeit und Ende einer Animation zu steuern. Sie können Laufschriften erzeugen, indem Sie Bezeichnungsfelder mit Zeichen auffüllen oder Bilder über ein Formular wandern lassen. Mit ein paar Programmschleifen, lassen sich auch aufwendigere Bewegungen realisieren.
-----------------------------------------------
Private Function fColor() As Long
Dim intZufall As Integer
'Initialisiert den Zufallszahlengenerator
Randomize
'Zufallszahlen im Bereich von 1 bis 4 generieren.
intZufall = Int((4 * Rnd) + 1)
Select Case intZufall
Case 1
fColor = 15243609 'Blauton 1
Case 2
fColor = 13002780 'Blauton 2
Case 3
fColor = 14911550 'Blauton 3
Case 4
fColor = 14711077 'Blauton 4
Case Else
fColor = -2147483633 'Hintergrundfarbe
End Select
End Function
-----------------------------------------------
Private Sub Form_Timer()
Dim i As Integer, j As Integer
For i = 1 To 8 'Reihen ablaufen
For j = 1 To 10 'Spalten ablaufen
Me("Rechteck" & i & j).BackColor = fColor
Me.Repaint 'Bildschirm aktualisieren
Next j
Next i
End Sub
-----------------------------------------------